Copier avec un range et copy d'un workbook à un autre
Salut guys je suis nouveau en excel vba et j'essaie de copier une colonne d'un workbook vers un autre. voici mon code:
La fonction range_finder me donne le numéro de la colonne selon le titre que je cherche dans mon tableau. La boucle sert a trouver la dernière case non vide.
Le problème est que mon programme semble copier a partir du workbook où je veux envoyer le paste au lieu de copier dans le bon workbook?
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
| colonne = range_finder(OpenBook, ThisWorkbook, wscopy, wsdest, Titrecolonne(13))
ligne = 1
Do While (IsEmpty(wscopy.Cells(ligne, colonne).Value)) = VRAI
ligne = ligne + 1
Loop
ligne = ligne - 1
'ligne = Cells(1, 1).End(xlDown).Row
'Ligne = Cells(Rows.Count, Colonne).End(x1down).Row
Set Rng = Range(Cells(2, colonne), Cells(ligne, colonne))
OpenBook.Activate
Sheets(2).Select
Range(Cells(2, colonne), Cells(ligne, colonne)).Copy
ThisWorkbook.Activate
Sheets(1).Select
ActiveSheet.Paste Destination:=Range("A30") |