problème macro ouverture

Bonjour à tous,

Voici le code de l'une de mes macros (que j'ai trouvé grace au forum).

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

Sub ouverture()   Dim path As String Dim masque As String Dim Path_masque As String Dim res As String     path = "C:\data\" masque = "saisie*.xls" Path_masque = path & masque   res = Dir(Path_masque, vbHidden)   Do While res <> "" Workbooks.Open (res) res = Dir(Path_masque, vbHidden) Loop   ThisWorkbook.Activate     End Sub

---

Le petit problème, c'est quelle est censée ouvrir tout les documents commencant par : saisie or elle n' en ouvre qu'un seul et après elle reboucle dessus.

Avez vous une solution.

Salut :king:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Sub recherche() With Application.FileSearch .NewSearch .RefreshScopes .LookIn = "C:\data" .Filename = "Saisie*.*" .SearchSubFolders = True .Execute For Ctr = 1 To .FoundFiles.Count Workbooks.Open (.FoundFiles(Ctr)) Next End With End Sub

---

Enjoy :yaisse2:

EDIT : Fais gaffe, ça recherche les fichiers commençant par Saisie avec un S majuscule. Change-ça par un s minuscule si c'est ce dont t'as besoin ! En gros, le fonctionnement est le suivant : ça recherche dans le répertoire (et même les sous-répertoires :yaisse2:) "C:\data" tous les fichiers commençant par Saisie et ça te les ouvre ! La vie n'est-elle pas belle ? :mouarf:

merci beaucoup pour ton aide.
ca marche exactement comme je le souhaitais.

Bonjour Dead78,

Vous avez écrit :

Citation:

---

EDIT : Fais gaffe, ça recherche les fichiers commençant par Saisie avec un S majuscule. Change ça par un s minuscule si c'est ce dont t'as besoin !

---

Vous êtes certain de cette restriction ?

Bonjour jacques_jean,

Effectivement, vous avez raison. Je n'avais pas testé mais cela ne prend pas la casse en compte. Au temps (je ne sais jamais, c'est bien "au temps" et non "autant" d'ailleurs ? Pourquoi n'apprendre que du VBA ? :roll:) pour moi !

Merci de votre précision !