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.