Ouvrir classeurs dont le nom s'incrémente

K

kjin

XLDnaute Barbatruc

• 24 Février 2011

• #2

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

Bonsoir,

Code:

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

 

Dernière édition: 24 Février 2011

Vote positif 0 Vote négatif

L

ledaf

XLDnaute Junior

• 24 Février 2011

• #3

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

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

@+

 

Vote positif 0 Vote négatif

K

kjin

XLDnaute Barbatruc

• 24 Février 2011

• #4

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

 

Vote positif 0 Vote négatif

L

ledaf

XLDnaute Junior

• 25 Février 2011

• #5

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

 

Vote positif 0 Vote négatif

L

ledaf

XLDnaute Junior

• 25 Février 2011

• #6

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

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

Code:

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

 

Vote positif 0 Vote négatif