sauvegarder en quittant

[AlainM]

Bonjour à tous

Je sais que la question avait déjà été posée, le tort c'est que je ne l'ai pas noté et que je ne la retrouve pas dans les archives.

Voila ma question :

quelle est l'instruction en VBA pour sauvegarder automatiquement un fichier en le quittant?

Merci de m'aider
Bonne journée
@lain

 

[Gérard Dezamis]

Bonjour AlainM

Essayer :

Private Sub Workbook_BeforeClose(Cancel As Boolean)
ChDir "D:\le chemin ...."
ActiveWorkbook.SaveAs Filename:="D:\Le chemin ....\Nom du fichier.xls"
End Sub

Cela devrait (?) faire l'affaire.

Code à placer dans Thisworkbook

@+
GD