Discussion :

[une_tite_question]

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

[neiluj26]

Bonjour,

Essaie

Code :

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

1
2
 
Workbooks(" & nom & ".xlsx").Worksheets("Feuil1").Range("A1:I "& DerniereLigne).copy Destination:=Workbooks(" & nom & ".xls").Worksheets("Feuil1").Range("A1")

pour voir...

[Invité]

Bonjour,

S'agissant d'une boucle, je pense plutôt à :

Code :

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

1
2
3
4
5
6
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

[une_tite_question]

Merci d'avoir répondu,
J'ai tapé ton code en retirant deux " qui ne passaient pas à la compilation, mais j'ai toujours le même message d'erreur : "Runtime error 9 subscript out of range"

[Invité]

Bizarre, car chez moi cela fonctionne.

Mais il n'y a pas que deux " à supprimer et il y en a à ajouter.

Une variable peut être précédée ou suivie de & mais jamais de ".

[une_tite_question]

Merci Jacques Jean ainsi que toi Neiluj26, le deuxième code passe parfaitement et dire que j'y ai passé la matinée.
Par contre,si je veux insérer les donneés dans le fichier xlsx sans écrasez le reste. Suis je obligé de faire des inserts de ligne avant de copier ou y a t il une méthode plus simple.

Merci

[une_tite_question]

J'ai l'impression qu'il ya un petit décalage dans nos messages. Ton code fonctionne parfaitement.
Et maintenant, je me demandais si simplement, on pouvait faire la copie sur la premiere ligne du fichier xlsx sans écraser les données dejà existants, ceux ci descendraient.

Ma question était peut être mal posé :
LE code précédent écrase mes données.
Comment faire pour qu'il se copie sans écraser les données existantes.

Merci

[Invité]

Bonjour,

Vous voulez dire que votre Feuil2 contient déjà des données ?

Si c'est le cas, il faut deux variables "DernièreLigne", je vais les nommer Dl1 pour la Feuil1 et Dl2 pour la Feuil2 (c'est plus court).

Code :

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

1
2
3
4
5
6
For i = 1 To Dl1
Application.Workbooks(nom & ".xlsx").Worksheets("Feuil2").Range("A" & Dl2 +1 & ": I" & Dl2 + 1).Value = _
Application.Workbooks(nom & ".xls").Worksheets("Feuil1").Range("A" & i & ":I" & i).Value
 
Dl2 = Dl2 + 1
         Next

Sinon, précisez.

Encore une erreur que j'ai rectifiée :

Code :

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

1
2
3
Range("A" & Dl2 + 1 & ": I" & Dl2 + 1).Value =

J'avais oublié le + 1 en rouge.