Discussion :

[samuelmarineau]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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")

[jerome.vaussenat]

Salut,

ajoute

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveWorkbook.Range(Cells(2, colonne), Cells(ligne, colonne)).Copy

il est toujours préférable d'indiquer l'objet "parent" pour éviter des surprises.

En espérant que c'est bien çà.

GG

[Philippe Tulliez]

Bonjour,
Est-ce que ce n'est pas la même question posée dans cette discussion ?