VB excel 2003

Résolu
leure007 Messages postés 19 Date d'inscription   Statut Membre Dernière intervention   -  
pijaku Messages postés 12263 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.
A voir également:

2 réponses

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