macro fermeture dossier Fermé

Question

Bonjour, 

la macro suivante ferme le dernier dossier ouvert, elle fonctionne :
' ferme le dernier dossier ouvert
Dim Sh As Object, Wn As Object
Set Sh = CreateObject("Shell.Application")
Set Wn = Sh.Windows
Sh.Windows(Wn.Count - 1).Quit
Set Wn = Nothing
Set Sh = Nothing

Mon souci est le suivant si lorsque j'utilise mon programme sous excel et que je n'est pas de dossier ouvert lors de la fermeture du programme il se met en défaut (car aucun dossier ouvert à ce moment là) comment y remédier?
Est-il également possible de fermer plusieurs dossiers ouverts à la fois ?
Merci pour votre aide

ptitpanda · Answer

Bonjour,

Rajoute une boucle comme ci dessous pour compter combien de dossiers sont ouvert et si il n'y'en a pas il n’exécute pas la boucle:

Dim Sh As Object, Wn As Object
Set Sh = CreateObject("Shell.Application")
Set Wn = Sh.Windows
For nb = 1 To Wn.Count
    Sh.Windows(Wn.Count - 1).Quit
Next nb
Set Wn = Nothing
Set Sh = Nothing

Bonne journée

Macro fermeture dossier

1 réponse

Discussions similaires