Discussion :

[the_djjd]

Bonjour à tous,

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

Code :

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

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.

[DeaD78]

Salut

Code :

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

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

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 ) "C:\data" tous les fichiers commençant par Saisie et ça te les ouvre ! La vie n'est-elle pas belle ?

[the_djjd]

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

[Invité]

Bonjour Dead78,

Vous avez écrit :

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 ?

[DeaD78]

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 ? ) pour moi !

Merci de votre précision !