Macro pour saugarder avant la fermeture

[degards]

Bonjour à vous !!!!

Je tente de concevoir une macro qui va s'exécuter avant la fermeture de l'aplication et qui va ouvrir la fenêtre "Enregistrer sous :" pour ainsi permettre à l'utilisateur d'inscire son nom et endroit de la sauvegarde de fichier. J'ai joint mon fichier et c'est le fichier "518" qui doit être sauvegardé. Toutefois si la personne ne veux pas sauvegarder la fermeture se continue.


J'ai tenté de créer une macro mais je n'obtiens pas ce que je veux.

Degards

 

[Papou-net]

Re : Macro pour saugarder avant la fermeture

Bonjour degards,

Si j'ai bien compris, voici une proposition :

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    On Error Resume Next
    Application.CommandBars("Cell").Controls("Relève 2 et 3--- impression").Delete
    Application.CommandBars("Cell").Controls("Relève 1--- impression").Delete
    Application.Dialogs(xlDialogSaveAs).Show
 Application.Quit
End Sub

Espérant avoir répondu.

Cordialement.

 

[degards]

Re : Macro pour saugarder avant la fermeture

Merci beaucoup c'est exactement ce que je cherchais.

Merci mille fois !!!!