fenêtre de sauvegarde à la fermeture

[Schtroungkipouf]

Bonjour,

Je fais actuellement tourner une macro qui, à un moment donné, ouvre d'autres classeurs pour récupérer des infos et les referme après copie de données.

A chaque fermeture de classeur, une boîte apparaît pour demander à l'utilisateur s'il souhaite sauvegarder ou pas.

Comment faut-il procéder pour ne pas que ces boîtes apparaissent (par défaut, je n'ai pas besoin de sauvegarder les classeurs qui ont été ouverts puisque aucune modification n'est faite).

Merci pour votre réponse !

 

[Minick]

Salut,

Ajoute simplement SaveChanges:=False apres ton .Close

WorkBooks("tonFichier").Close SaveChanges:=False

 

[Yolène]

Bonjour,

pour répondre à votre question, je suggère cette ligne qui je pense est la bonne, à insérer au bon endroit.

ActiveWorkbook.Close SaveChanges:=False

 

[Bernard]

Bonjour Schtrounqkipouf,

Il faut si reprendre à trois fois pour ne pas faire de faute à ton surnom.

Pour ton problème, tu vas dans dans l'explorateur de projets de VBA;
Puis dans VBAPROJECT("NOM_CLASSEUR")
Puis Microsotf Excel Objets
Puis dans thisworkbook

Tu affiches chacune des fenêtres des classeurs ("thisworkbook")
et tu écris ce code :

Option Explicit

Private Sub workbook_BeforeClose(Cancel As Boolean)
Application.ScreenUpdating = False
ActiveWorkbook.Saved = false
End Sub

Bernard
Salut

 

[michel]

Bonjour à toutes et à tous

Bernard , dans ta solution utilisant ActiveWorkbook.Saved , est ce qu'il ne faut pas plutot écrire
ActiveWorkbook.Saved = True
si je ne dis pas de bétise c'est la valeur True qui ferme le classeur sans proposer de message

Sub FermerSansSauver()
ActiveWorkbook.Saved = True
ActiveWorkbook.Close
End Sub


bon début de week end
michel