Ouvrir plusieurs fichiers excel

[gbcof]

Bonjour,

Je voudrais avec une macro ouvrir tous les fichiers Excel contenant "S03" (numéro de la semaine courante) contenus dans un répertoire dont je rentre le chemin dans une inputbox par exemple. Or, je ne sais pas comment faire. A vrai dire, je ne sais même pas si c'est possible.

Quelqu'un peut-il m'aider?

Merci d'avance

 

[skoobi]

Re : Ouvrir plusieurs fichiers excel

Bonjour,

Voici un exemple:

Sub ouvre()
chemin = InputBox("Indiquer le répertoire")
sem = InputBox("Indiquer la semaine")
With Application.FileSearch
    .LookIn = chemin
    .FileType = msoFileTypeExcelWorkbooks
    .Filename = "*" & sem & "*"
    .Execute
    If .FoundFiles.Count = 0 Then MsgBox "auncun fichier trouvé"
    For i = 1 To .FoundFiles.Count
      Workbooks.Open .FoundFiles(i)
   Next
End With
End Sub