Discussion :

[Nouky95]

Bonjour à Tous,
J'ai une macro qui ferme et sauvegarde mon fichier excel puis l'application excel, je souhaiterai tester si d'autres fichiers sont ouverts afin de ne pas fermer l'application excel dans ce cas mais uniquement mon fichier.
Merci pour votre aide

[Menhir]

J'ai une macro qui ferme [...] l'application excel

TREEEES mauvaise idée.
Idéal si on veut mourir luncher.

je souhaiterai tester si d'autres fichiers sont ouverts

Workbooks.Count : https://docs.microsoft.com/fr-FR/off...orkbooks.count
Mais, je le répète, c'est une mauvaise idée.

[Nouky95]

Merci Menhir,
En fait, je fais cela pour éviter à la personne qui ouvre le fichier d'avoir à fermer excel après la fermeture automatique de son fichier (bouton associé à une macro qui ferme et sauvegarde).
Je trouve cela plus propre. Mais bon à priori ce n'est pas le cas

[Nouky95]

Menhir, j'avoue ne pas comprendre le code qu'il faut que je créé avec Workbooks.Count ! Peux tu me préciser
Merci

[Menhir]

En fait, je fais cela pour éviter à la personne qui ouvre le fichier d'avoir à fermer excel après la fermeture automatique de son fichier (bouton associé à une macro qui ferme et sauvegarde).
Je trouve cela plus propre. Mais bon à priori ce n'est pas le cas

Prendre des risque juste pour éviter UN clic sur la croix rouge, je trouve que c'est disproportionné.
Mais ce n'est qu'un avis personnel.

Personnellement, pour plusieurs raisons, je fais attention à tout ce qui est trop automatisé et qui ne laisse pas un certain contrôle aux utilisateurs.

Menhir, j'avoue ne pas comprendre le code qu'il faut que je créé avec Workbooks.Count ! Peux tu me préciser

Workbooks.Count renvoie le nombre de classeurs ouverts.

[Nouky95]

Donc si je comprends bien je un test de type If workbooks.count =0 Then Application.Quit.
Merci pour ton avis sur la question en tous les cas

[Patrice740]

Re,

Tu pourrais mettre dans le module du classeur :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Workbook_BeforeClose(Cancel As Boolean)
  If Workbooks.Count = 1 And ThisWorkbook.Saved = True Then Application.Quit
End Sub

[Nouky95]

Merci Patrice