XL 2019 Fermeture des nouveaux classeurs excel

cd95 · 30 Avril 2022

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 · 30 Avril 2022

Bonjour,

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

VB:

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

Cordialement

cd95 · 30 Avril 2022

Bonjour Hasco,

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

Merci beaucoup.

cd95 · 30 Avril 2022

Hasco à dit:
Bonjour,

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

VB:

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.

XL 2019 Fermeture des nouveaux classeurs excel

cd95

XLDnaute Occasionnel

Hasco

XLDnaute Barbatruc

cd95

XLDnaute Occasionnel

cd95

XLDnaute Occasionnel

Discussions similaires