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.