Actie bij "Opslaan als"

[Peter B]

Ik loop tegen een probleempje aan waarvan ik hoop dat iemand dit voor mij op kan lossen.

Ik wil op het moment dat het bestand wordt opgeslagen dat de naam van dit bestand in een cel wordt opgenomen. Dit met als doel dat de complete inhoud van een werkblad gekopieerd kan worden zonder dat "men" zich druk moet maken om plakken als tekst. Ik weet dat ik m.b.v. "=CEL()" de bestandsnaam automatisch kan laten vullen.

Ik heb de volgende code bedacht:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

    Dim FileName As String
    
    FileName = ActiveWorkbook.Path & ActiveWorkbook.Name
    
    Worksheets("Export").Range("J2").Value = FileName

End Sub

Deze code werkt prima, mits "Opslaan" wordt gekozen maar gaat fout (de cel wordt niet gevuld) als wordt gekozen voor "Opslaan als".

Hoe kan ik zorgen dat de cel ook correct wordt gevuld als wordt gekozen voor "Opslaan als"?

 

[pasan]

heb je "Private Sub Workbook_AfterSave(ByVal Success As Boolean)" al geprobeerd? met de zelfde code uiteraard.

 

[Peter B]

Die had ik nog niet geprobeerd. Wist niet van het bestaan af ... Dat werkt inderdaad perfect. Wel moet ik hem nu 2 keer opslaan.
1 keer opslaan als; dan wordt nog een wijziging doorgevoerd, vervolgens 1 keer opslaan.

Die tweede keer opslaan moet natuurlijk ook te automatiseren zijn! Daar ga ik nog even mee aan de slag.

Dank voor de hulp!