Ouvrir classeurs dont le nom s'incrémente

[ledaf]

Bonjour à tous,

Voilà je souhaite récupérer des données sur plusieurs fichiers (il y en a beaucoup).
Je veux donc les ouvrir un par un par le biai d'une boucle dans laquelle je ferais plusieurs manipulations.
J'utilise donc ma formule:

Application.Workbooks.Open "C:\Documents and Settings\...\2010\s1a2010.gaz"

Et ce qui va s'incrémenter ce sera:
s2a2010
s3a2010
...

Merci à tous pour votre aide.

 

[kjin]

Re : Ouvrir classeurs dont le nom s'incrémente

Bonsoir,

rep = "C:\Documents and Settings\...\2010\"
f = Dir(rep & "s*a2010.gaz")
Do While f <> ""
'Workbooks.Open Rep & f
'...
f = Dir()
Loop

Pour la suite, il risque d'y avoir de l'eau dans le gaz...
A+
kjin

 

[ledaf]

Re : Ouvrir classeurs dont le nom s'incrémente

Je te remercie pour ta réponse.
Je vais tester ça de suite.

@+

 

[kjin]

Re : Ouvrir classeurs dont le nom s'incrémente

Re,
J'ai modifié le code en remplaçant "?" par "*" car il peut y avoir plusieurs caractères de remplacement
A+
kjin

 

[ledaf]

Re : Ouvrir classeurs dont le nom s'incrémente

Bon j'ai testé et ça n'a pas l'air de fonctionner...
De plus je ne comprends pas tout le code que tu m'a envoyé.
Peux tu stp m'apporter quelques précisions?
Je te remercie par avance

 

[ledaf]

Re : Ouvrir classeurs dont le nom s'incrémente

C'est bon j'ai trouvé la parade:

For i = 0 To 52
NomFichier = "s" & i & "a2010.gaz"
Application.Workbooks.Open "C:\Documents and Settings\...\2010\" & NomFichier
Next