copier avec un range

Version imprimable

Bonjour tout le monde!

J'essaye de copier une colonne sous son titre jusqu'au dernier element d'un workbook ouvert vers le workbook actuel mais jai toujours un erreur j'tuilise excel 2013 voici mon code:
La fonction range_finer me donne le numero de la colonne selon le titre recherché. Ensuite je trouve la derniere ligne non vide avec une loop rng est un range et quand je veux copier j'obtient l'erreur 1004? quelqu'un a une idée.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 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 OpenBook.Sheets(2).Range("Rng").Copy

code changé

j'ai changer mon code et le copy semble marcher mais le paste ne marche pas :(

Code:

1
2
3
4
5
6
7
 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
    ThisWorkbook.Sheets(1).Range("A30").Paste

code changé encore

Avec ce code je reussi a paste sur le bon document mais il copy du meme document au lieu du document OpenBook?

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

14/01/2020, 20h32
Philippe Tulliez

Bonjour,
Eternel problème.
Une cellule a comme parent sa feuille qui elle même a comme parent son classeur donc en utilisant l'objet Range sans préciser sa parentalité complète VBA va choisir par défaut la cellule de la feuille active (qui fait partie du classeur actif)

Si vous avez deux lieux de résidence et qu'à la personne au téléphone, vous dites "je suis dans mon salon", il ne saura pas si vous parlez du salon de la maison A ou de la maison B
En revanche, si vous dites, "je suis dans le salon de ma maison de campagne". Il y a des chances de lever toute ambiguïté sur le lieu où vous vous trouvez.

Donc avec le VBA, le code ci-dessous ne laisse pas la place au hasard

Code:

Workbooks("Compta2019.xlsx").Worksheets("Budget").Copy After:=Workbooks("ComptaRecap").Worksheets("Sommaire")

Et bien entendu Workbooks("Compta2019.xlsx") comme Worksheets("Budget") et les autres peuvent être remplacés par des variables objets