VB excel 2003

Résolu
leure007 Messages postés 8 Date d'inscription   Statut Membre -  
pijaku Messages postés 13513 Date d'inscription   Statut Modérateur Dernière intervention   -
Bonjour,

Dans excel, je désire ouvrir puis fermer tous les fichiers .xls qui se trouve dans un même répertoire.
Exemple :

Workbooks.Open Filename:= _
"D:\temp\AB.XLS"
ActiveWindow.Close
Workbooks.Open Filename:= _
"D:\temp\AC.XLS"
ActiveWindow.Close
Workbooks.Open Filename:= _
"D:\temp\AD.XLS"
ActiveWindow.Close
Workbooks.Open Filename:= _
"D:\temp\AE.XLS"
ActiveWindow.Close

Etc.
Jusque fin répertoire

Quelqu’un connaît-il une formule VB qui permettrait de le faire ?

Merci pour toute aide.
Configuration: Windows XP
Firefox 3.0.13

2 réponses

  1. pijaku Messages postés 13513 Date d'inscription   Statut Modérateur Dernière intervention   2 773
     
    Salut,
    Un exemple ici
    0
  2. leure007 Messages postés 8 Date d'inscription   Statut Membre
     
    Un grand merci Pijaku. Excellent.
    0
    1. pijaku Messages postés 13513 Date d'inscription   Statut Modérateur Dernière intervention   2 773
       
      Il n'est pas de moi, mais je ne connais pas la source.....
      0