pb macro avant fermeture

[laurent999]

Bonjour,

Je voudrais exécuter la macro ci dessous avant la fermeture de mon classeur.
Mais il faudrait que la macro vérifie d'abord que le fichier soit ouvert si ce n'est pas le cas, la macro ne s'exécute pas.

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Windows("test.xlsm").Activate
Sheets("Feuil1").Select
Activewindows.Close
End Sub

Merci pour votre aide.

Laurent.

 

[tototiti2008]

Re : pb macro avant fermeture

Bonjour laurent,

Pourquoi activer la feuil1 pour fermer le classeur ?

 

[laurent999]

Re : pb macro avant fermeture

Effectivement tu as raison cela ne sert à rien, c'est juste parce que j'ai pris un bout du code.

Si tu as une réponse?
je suis preneur.

 

[tototiti2008]

Re : pb macro avant fermeture

Re,

à tester

Private Sub Workbook_BeforeClose(Cancel As Boolean)
on error resume next
Workbooks("test.xlsm").close
on error goto 0
End Sub

Si tu veux enregistrer automatiquement le classeur test :

Workbooks("test.xlsm").close True

Si tu ne veux jamais l'enregistrer :

Workbooks("test.xlsm").close False

 

[laurent999]

Re : pb macro avant fermeture

Impeccable!

Encore un grand merci.

Laurent.