Excelsjabloon opslaan als bestand met macro's en mailen

[nando64]

Beste Leden,

Ik ben al een poos bezig om een Excelsjabloon via VBA op te slaan als een bestand met macro's in een map met de structuur "jaar-maandnummer-maandnaam" en dan te versturen per email. Alleen het werkt nog niet optimaal. Het versturen lukt, alleen het opslaan werkt niet. Na het activeren van de macro blijft de Excel applicatie open staan en het bestand wordt niet opgeslagen. Zou iemand de code kunnen nakijken en evt aanpassen. Alvast bedankt, bestand is als zip-map toegevoegd aangezien ik geen .xltx bestanden kan uploaden.

 

[AHulpje]

Doe het eens zo:

    Application.DisplayAlerts = False
    ThisWorkbook.Saved = True
    Application.Quit
    Application.DisplayAlerts = True

 

[edmoor]

Misschien die laatste twee regels even omdraaien?

 

[nando64]

Code van AHulpje geprobeerd, Excel sluit netjes af, alleen het bestand wordt niet opgeslagen.

 

[edmoor]

Welk bestand wordt niet opgeslagen?
De xltm?
Dat lijkt me ook niet de bedoeling.
De xlsm wordt keurig opgeslagen.
Maar niet in ThisWorkbook.Path & "\"
Wel in een volledig opgegeven pad.

 

[nando64]

De xslm komt keurig als bijlage in Outlook, alleen wordt niet opgeslagen. Het xltm wordt netjes afgesloten. Ik heb geen idee wat ik fout doe.

 

[edmoor]

Wat ik al zei, ThisWorkbook.Path & "\" wordt in de xltm vertaald naar "\"
Van een template krijg je daarmee dus het pad niet terug.
Het bestand wordt dan opgeslagen in C:\, als dat je current drive is, in een map met als naam de huidige datum.

 

[nando64]

Ik had eerst een xlsm gebruikt in plaats van een xltm, daar werkte het wel. Ik ga in de xltm een verwijzing proberen naar een volledig opgegeven pad.

 

[edmoor]

Bij een ander document dan een template werkt dat inderdaad wel.

 

[nando64]

Het werkt met een volledig opgegeven pad. Heel erg bedankt.

 

[nando64]

Helaas werkt het toch zoals ik had gewild. Wanneer het xlsm bestand is opgeslagen en ik wil vanuit het xlsm bestand een correctie sturen lukt dit niet. Ik heb geen idee hoe dit komt. Zou iemand mij hierbij kunnen helpen? Ik heb het xltm bestand toegevoegd van waaruit wordt gewerkt.

Alvast bedankt

 

[edmoor]

Je zegt vanuit het xlsm bestand een actie uit te voeren.
Dan kan je beter dat xlsm bestand plaatsen en er bij vertellen wat je dan precies doet en wat er dan niet lukt.

 

[nando64]

Ik heb het bestand toegevoegd. Ik krijg bij het openenen een melding over werkmapkoppelingen. Wanneer ik de koppelingen verbreek lukt het ook niet. Wat opvalt is dat alle code is verwijderd.

 

[AHulpje]

Doe het eens zo (dus zonder sjabloon):

 

[snb]

Of beperk je tot:

Sub M_snb()
    c00 = "X:\Planning\Bestellijst Transcore\voorbeeld.xlsm"
    c01 = Format(Cells(2, 8), "dddd dd-mm-yyyy ") & ActiveSheet.Name
    
    ActiveWorkbook.SaveCopyAs c00
    
    With CreateObject("Outlook.Application").CreateItem(0)
        .To = "werkbriefje@transcore.nl"
        .CC = "ops@lashing.nl"
        .Subject = "Bestelling " & c01
        .HTMLBody = "Beste,<br><br>In de bijlage vind je de bestelling van:<br>" & c01 & "<br><br>"
        .Attachments.Add c00
        .Send
    End With
End Sub