Macro pour saugarder avant la fermeture

degards · 29 Avril 2012

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 · 29 Avril 2012

Re : Macro pour saugarder avant la fermeture

Bonjour degards,

Si j'ai bien compris, voici une proposition :

Code:

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 · 29 Avril 2012

Re : Macro pour saugarder avant la fermeture

Merci beaucoup c'est exactement ce que je cherchais.

Merci mille fois !!!!

Macro pour saugarder avant la fermeture

degards

XLDnaute Occasionnel

Pièces jointes

Papou-net

XLDnaute Barbatruc

degards

XLDnaute Occasionnel

Discussions similaires

Macro pour saugarder avant la fermeture

degards

XLDnaute Occasionnel

Pièces jointes

Papou-net

XLDnaute Barbatruc

degards

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency