Discussion :

[kika18]

bonjour,

j'ai une macro sous excel mais je voudrais la faire tourner sur plusieurs classeurs excel les uns apres les autres. donc, en clair, je voudrais extraire la liste de tous les fichiers de type .xls, les ouvrir et faire tourner ma macro.
j'arrive a faire ca en tapant le nom de chaque fichier:
workbooks.open filename:="C:\...."
mais comme j'ai pas mal de fichiers, j'aurais voulu automatiser ca.

Stephane

[alsimbad]

tu peux essayer ça

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
stFichier = Application.GetOpenFilename
   With Application.FileSearch
   .NewSearch
   .LookIn = Left(stFichier, InStrRev(stFichier, "\"))
   .Execute
    On Error Resume Next
       For Each f In .FoundFiles
      Workbooks.Open f
............
next f

tu met d'abord tout tes fichiers dans un seul répertoire

[alsimbad]

c'est cool kika18 de mettre résolu, sans même un petit mot pour dire que la solution te conviens ou si tu as trouvé autre chose. et je parle même pas d'un éventuel merci