XL 2019 Fermeture des nouveaux classeurs excel

[cd95]

Bonjour,

Je n'ai pas réussi avec ce code ( Workbooks("Classeur1.XLS").Close SaveChanges:=False ) à quitter ou fermer les nouveaux classeurs (Classeur1, Classeur2 ...) que j'ai créé, mais que je n'ai pas besoin. (ils sont créés juste pour un petit calcul ou une note, mais pas enregistrés dans mon ordi).

Est-ce que quelqu'un peu me fournir un petit code pour garder mes 2 classeurs de travail ouvert et qui sont déjà enregistrés sur mon PC et quitter tous les nouveaux classeurs (Classeur1, Classeur2 ...) non enregistrés.

 

[Hasco]

Bonjour,

C'est une absolue nécessité ce texte en gras ???
Un classeur non enregistré à sa propriété Path = "" :

Sub FermerClasseursNonEnregistres()
    Dim wk As Workbook
    For Each wk In Workbooks
        If wk.Path = "" Then wk.Close False
    Next
End Sub

Cordialement

 

[cd95]

Bonjour Hasco,


J'ai essayé votre code est ça fonctionne à merveille.

Merci beaucoup.

 

[cd95]

Bonjour,

C'est une absolue nécessité ce texte en gras ???
Un classeur non enregistré à sa propriété Path = "" :

Sub FermerClasseursNonEnregistres()
    Dim wk As Workbook
    For Each wk In Workbooks
        If wk.Path = "" Then wk.Close False
    Next
End Sub

Cordialement

Bonjour Hasco,


J'ai essayé votre code est ça fonctionne à merveille.


Merci beaucoup.