Bonjour,

ça fait depuis ce matin que j'essaie de copier une plage de cellule d'un fichier à un autre, je n'y arrive pas. Voici le code que j'utilise et j'ai un message : "error runtime 9 subscript out of range".
Si quelq'un peut m'aider, merci d'avance.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
 
 
        For i = 1 To DerniereLigne
 
Application.Workbooks(" & nom & .xlsx").Worksheets("Feuil1").Range("A & i & : I & i & ").Value = _
Application.Workbooks(" & nom & .xls").Worksheets("Feuil1").Range("A & i & :I & i & ").Value
 
         Next
Là je ne sias plus que faire . Merci