Discussion :

[ash_rmy]

Bonjour,

voilà (en simplifiant mon problème) je voudrais ouvrir tout les classeurs excel d'un repertoire - celui ci contient 5 classeurs nommés : 1, 2, 3, 4, 5.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub interm()

Dim i As Variant

For i = 1 To 5

Workbooks.Open ("Z:\IMPORT\&i.xls")

Next

End Sub

merci de votre aide,

ash.

[tazmania]

Je pense que cela devrait marcher

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub interm()
 
Dim i As Variant
 
For i = 1 To 5
 
Workbooks.Open "Z:\IMPORT\" & i & ".xls"
 
Next
 
End Sub

[ash_rmy]

merci tazmania - ça marche !!!