Copier des données dans un autre classeur

[Sly le globe trotter]

Bonjour à tous,

Après plusieurs recherches sur le net, je m'en remets à vous pour avancer sur mon problème.

A partir d'un classeur A, je cherche à copier une plage de cellule dans un classeur B. Mon souci vient a priori du fait que cette plage de cellule dépend d'une ligne d'un tableau de mon fichier A. Idem pour la ligne d'arrivée dans le fichier B.
J'ai donc introduit dans mon code, deux indices, i et j. J'utilise le code suivant

Workbooks(B).Sheets("data").Range(Cells(j, 15), Cells(j, 36)).value = Workbooks(A).Sheets("Raw data").Range(Cells(i, 4), Cells(i, 25)).value

mais il génère une erreur 1004...

Auriez-vous une idée ?

Merci !
Sly

 

[gilbert_RGI]

Re : Copier des données dans un autre classeur

Bonjour

quelles sont les valeurs de J et I ???

est-ce dans une boucle ???

 

[Sly le globe trotter]

Re : Copier des données dans un autre classeur

Bonjour gilbert_RGI,

Oui, i et j sont des indices provenant d'une boucle. En exécutant pas à pas, je peux constater qu'il n'y a pas d'erreur sur ces indices, qu'ils correspondent bien aux plages qui m'intéressent.

Sly

 

[Gorfael]

Re : Copier des données dans un autre classeur

Salut Sly le globe trotter et le forum
Avec un lambeau de code, pas facile d'aider.
Erreur 1004 : mon principal but étant de supprimer les erreurs, je ne me rappelle plus qu'elle en est la description.

Essaie de vérifier la valeur de tes données, juste avant l'erreur.
A+

 

[Sly le globe trotter]

Re : Copier des données dans un autre classeur

Salut Gorfael,

J'ai bien essayé de vérifier la valeur des données mais comme il s'agit de copier et coller une plage de cellules, à part les indices, je ne peux pas vérifier grand chose.
je pensais que cela provenait de la syntaxe qui ne devait pas être approprié...

Merci pour votre aide
Sly

 

[gilbert_RGI]

Re : Copier des données dans un autre classeur

une idée comme çà
en donnant une valeur de ligne à i et à j

Sub test()
i = 2
j = 1
Workbooks("B.xls").Activate
Workbooks("B.xls").Sheets("data").Range(Cells(j, 15), Cells(j, 36)).Copy
Workbooks("A.xls").Activate
Workbooks("A.xls").Sheets("Raw data").Paste Destination:=Range(Cells(i, 4), Cells(i, 25))
End Sub

une autre proposition avec boucles

Sub test()
Application.ScreenUpdating = False
i = 2
For j = 1 To 5
Workbooks("B.xls").Activate
Workbooks("B.xls").Sheets("data").Range(Cells(j, 15), Cells(j, 36)).Copy
Workbooks("A.xls").Activate
Workbooks("A.xls").Sheets("Raw data").Paste Destination:=Range(Cells(i, 4), Cells(i, 25))
i = i + 1
Next
Application.ScreenUpdating = True
End Sub

ou encore

Sub test()
Dim wb1 As Workbook
Dim wb2 As Workbook
Application.ScreenUpdating = False
Set wb1 = Workbooks("B.xls")
Set wb2 = Workbooks("A.xls")
wb1.Sheets("data").Range("O1:AJ5").Copy wb2.Sheets("Raw data").Range("D2:Y5")
Application.ScreenUpdating = True
End Sub

🙄

 

[Sly le globe trotter]

Re : Copier des données dans un autre classeur

Re bonjour gilbert_RGI,

Merci beaucoup pour ton aide !!!!

Sly