XL 2016 Selectionner plages de cellule

[Anto35200]

J’ai ce code, qui me permet de sélectionner la plage de cellules A2 à P, jusqu’à la dernière cellule vide de la ligne du fichier Extraction.

Ensuite, cette plage de cellules est copiée dans le fichier BD à la suite des données déjà présentes, donc çà doit être à la ligne 23.

Mais, je ne comprends pas pourquoi cette plage est copié dans le fichier BD dans la cellule R9.

En vous remerciant de votre aide.

Set W1 = Workbooks("Extraction.xlsx")
Set W2 = Workbooks("BD.xlsx")

DerLig = W1.ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row

W1.ActiveSheet.Range("A2:P" & DerLig).Copy
W2.ActiveSheet.Paste

 

[gbinforme]

Bonjour,

Si tu n'indiques pas l'adresse de la position du collage cela ce fera en fonction de la position courante.

 

[Anto35200]

Bonjour Gbinforme,

Comment je dois mettre cette adresse ?

 

[gbinforme]

bonsoir,

il faut remplacer

W2.ActiveSheet.Paste

par

W2.Sheets("lafeuille concernée").range("la position").Paste