Macro fermeture dossier

volfoss Messages postés 43 Statut Membre -  
ptitpanda Messages postés 67 Statut Membre -
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

1 réponse

  1.
    ptitpanda Messages postés 67 Statut Membre 8
     
    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
    0