fermeture fichier

[Phoenix]

Slut a tous

Qui pourrais me dire comment faire pour ne plus que la fentre de confirmation apparraisse lorsque je ferme un fichier

Merci bcp

Phoenix

 

[myDearFriend]

Salut Phoenix,

Tu pourrais peut-être utiliser le code suivant :

Private Sub Workbook_BeforeClose(Cancel As Boolean)
'Si le classeur a été modifié
If Me.Saved = False Then
Me.Save
End If
End Sub

Le classeur est automatiquement sauvegardé à la fermeture sans confirmation.

Si tu souhaites quitter sans sauvegarder le fichier en question alors il convient de remplacer :
Me.Save
Par
Me.Saved = True

Cordialement.
Didier_mDF

 

[Papaye]

Autre solution :


Application.DisplayAlerts = False

pour désactiver ce message.

Papaye

 

[Phoenix]

Slut MdF

Merci pour les codes, mais cela ne marche pas.
VBA ne reconnait pas le code .save

As tu une autre solution SVP

MErci

Phoenix

 

[myDearFriend]

Bonsoir Phoenix, Papaye, le Forum.

Phoenix as-tu bien mis la procédure telle quelle dans le module de l'objet ThisWorkbook ?

Si c'est le cas, et bien tu me poses une colle Lol ! Je ne vois absolument pas pourquoi VBA ne reconnaitrait pas le code .save

Je viens de tester ce morceau de code et ça fonctionne chez moi.

Si les problèmes des fichiers joints sont réglés sur le Forum, peut-être pourrais-tu poster ton exemple que l'on puisse voir... (au pire, envoies-le moi par mail).

Désolé, mais je n'ai pas d'autres solutions à te fournir.

Par ailleurs, si la fermeture du classeur doit se faire de façon "classique" par l'utilisateur (non par macro) et si l'objectif est bien d'enregistrer sans alerte le fichier lors de cette fermeture, je n'ai pas eu de succès avec la méthode préconnisée par notre ami Papaye. L'utilisation de Application.DisplayAlerts dans l'évènement Workbook_BeforeClose a été un échec pour moi.

Cordialement.
Didier_mDF