Copier / Coller entre deux classeur
NécroPoney
-
NécroPoney -
NécroPoney -
Bonjour à tous,
Je souhaiterai faire un code me permettant de copier coller un cellule entre deux classeurs. J'ai le classeur IMP, ou je récupère les données et le REX, mon classeur de réception.
J'aimerai prendre les données de la colonne B de l'IMP et les mettre dans la colonne A du REX.
Voici mon code :
Public Sub REX01()
Dim LIMP, LREX As Variant
Dim La, Lb As Long
J'utilise La pour sélectionner dans IMP et Lb pour REX
LIMP = Windows("IMP.xls").Sheets("FeuilleIMP").Rows(La).Select
LREX = Windows("REX.xls").Sheets("FeuilleREX").Rows(Lb).Select
(Je crois que l'erreur provient de ces deux variables)
La = 8
Lb = 3
LIMP
Do
LIMP
Cells(ActivateCell.Row, B).Select
ActivateCell.Copy
LREX
Cells(ActivateCell.Row, A).Select
ActivateCell.Paste
La = La + 1
Lb = Lb + 1
LIMP
Loop While LIMP <> Empty
End Sub
Sauf que j'ai une erreur de compilation et je ne comprend pas pourquoi..
Merci d'avance pour votre attention.
Je souhaiterai faire un code me permettant de copier coller un cellule entre deux classeurs. J'ai le classeur IMP, ou je récupère les données et le REX, mon classeur de réception.
J'aimerai prendre les données de la colonne B de l'IMP et les mettre dans la colonne A du REX.
Voici mon code :
Public Sub REX01()
Dim LIMP, LREX As Variant
Dim La, Lb As Long
J'utilise La pour sélectionner dans IMP et Lb pour REX
LIMP = Windows("IMP.xls").Sheets("FeuilleIMP").Rows(La).Select
LREX = Windows("REX.xls").Sheets("FeuilleREX").Rows(Lb).Select
(Je crois que l'erreur provient de ces deux variables)
La = 8
Lb = 3
LIMP
Do
LIMP
Cells(ActivateCell.Row, B).Select
ActivateCell.Copy
LREX
Cells(ActivateCell.Row, A).Select
ActivateCell.Paste
La = La + 1
Lb = Lb + 1
LIMP
Loop While LIMP <> Empty
End Sub
Sauf que j'ai une erreur de compilation et je ne comprend pas pourquoi..
Merci d'avance pour votre attention.
4 réponses
-
bonjour
écris plut^tLa = 8
Lb = 3
LIMP = Windows("IMP.xls").Sheets("FeuilleIMP").Rows(La).Select
LREX = Windows("REX.xls").Sheets("FeuilleREX").Rows(Lb).Select
mais il y a beaucoup de choses à dire sur ton code. par exemple: pas besoin de boucle pour traiter ce problème
proposition non vérifiée. les 2 classeurs ouverts
Sub copier_IMP_REX()
Dim Derlig As Long
With Workbooks("IMP.xls").Sheets("FeuilleIMP")
Derlig = .Columns("B").Find(what:="*", searchdirection:=xlPrevious).Row
.Range("B8:B" & Derlig).Copy
End With
Workbooks("REX.xls").Sheets("FeuilleREX").Range("A3").Paste
End Sub
Michel
