Problème de syntaxe

bonjour,

Voilà une macro qui marche bien...

Sub Data()

Workbooks.Open Filename:= _

"C:\Users\chahine\Desktop\1.xls", _

UpdateLinks:=0

Sheets("Données").Select

Windows("1.xls").Activate

End Sub

j'aimerais la faire évoluée, alors j'ai eu l'idée d'utiliser la boucle for et alors j'ai écris cette macro:

Sub Data()

Dim i as integer

for i=1 to i=4

Workbooks.Open Filename:= _

"C:\Users\chahine\Desktop\i.xls", _

UpdateLinks:=0

Sheets("Données").Select

Windows("i.xls").Activate

next i

End Sub

mais elle ne marche pas

Pouvez-vous m'aider sur la syntaxe à utiliser?

d'avance merci

Bonjour,

A tester

Sub Data()
Dim i As Integer
    For i = 1 To 4
        Workbooks.Open Filename:= _
        "C:\Users\chahine\Desktop\" & i & ".xls", _
        UpdateLinks:=0
    Next i
End Sub

A+

Merci Frangy,

Je viens de le tester... malheureusement, ça ne marche pas t...

A+

Oups tout est ok....J'avais copié qu'une partie du code...

Désolé...

Merci frangy!!!