Bonjour,
J'ai exploité un partie de code sur le forum mais je ne comprends pas tout de ce code.
Le morceau de code qui coince se trouve dans la copie d'une ligne située à la 100éme ligne du classeurA à copier sur la feuille "Données" du classeurB à la dernière ligne vide.
Dim wsCopy As Worksheet
Dim wsDest As Worksheet
Dim lDestLastRow As Long
Set wsCopy = Workbooks("classeurA.xlsm").Worksheets("Suivi prod")
Set wsDest = Workbooks("classeurB.xlsx").Worksheets("Données")
lDestLastRow = wsDest.Cells(wsDest.Rows.Count, "B").End(xlUp).Offset(1).Row
wsCopy.Range("100:100").Copy _
wsDest.Range("B" & lDestLastRow)
Est-ce que vous pouvez m'aider?
Merci
Yohan
J'ai exploité un partie de code sur le forum mais je ne comprends pas tout de ce code.
Le morceau de code qui coince se trouve dans la copie d'une ligne située à la 100éme ligne du classeurA à copier sur la feuille "Données" du classeurB à la dernière ligne vide.
Dim wsCopy As Worksheet
Dim wsDest As Worksheet
Dim lDestLastRow As Long
Set wsCopy = Workbooks("classeurA.xlsm").Worksheets("Suivi prod")
Set wsDest = Workbooks("classeurB.xlsx").Worksheets("Données")
lDestLastRow = wsDest.Cells(wsDest.Rows.Count, "B").End(xlUp).Offset(1).Row
wsCopy.Range("100:100").Copy _
wsDest.Range("B" & lDestLastRow)
Est-ce que vous pouvez m'aider?
Merci
Yohan