Import d'une plage variable de données vers un autre tableau source

Version imprimable

Bonjour à tous,
Cela fait un moment que je cherche et que j'essaie d'adapter différentes solutions que je trouves un peu partout mais rien y fait...
Voici mon problème :

J'ai, sur un classeur "Wbk2", une plage de donnée "PlageWbk2" que je voudrais extraire pour l'ajouter à la suite d'un tableau existant.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 Dim titre As String Dim wbk1 As Workbook Dim wbk2 As Workbook Dim PlageWbk2 As Range Dim PlageWbk1 As Range Dim LastColWbk2 As Variant Dim LastLigneWbk2 As Variant Dim LastCol As Variant Dim Lastligne As Variant Dim OngletWbk2 As String OngletWbk2 = "Feuil2" titre = "MonFichier.xlsx" Set wbk1 = ThisWorkbook Set wbk2 = Workbooks.Open(titre) ' jouvre le classeur (titre) 'Verification de la dernière ligne/colone du tableau Wbk2 LastColWbk2 = wbk2.Worksheets(OngletWbk2).Cells(1, Cells.Columns.Count).End(xlToLeft).Column LastLigneWbk2 = wbk2.Worksheets(OngletWbk2).Range("A" & Rows.Count).End(xlUp).Row 'Verification de la dernière ligne/colone du tableau source LastCol = Cells(1, Cells.Columns.Count).End(xlToLeft).Column Lastligne = Range("A" & Rows.Count).End(xlUp).Row PlageWbk2 = wbk2.Worksheets(OngletWbk2).Range(LastLigneWbk2, LastColWbk2) 'si je mets .Range("A1", "A6") ça passe mais ça mets une erreur à la ligne 33 PlageRecep = Range(Cells(Lastligne + 1, 1), Cells(Lastligne + LastLigneWbk2, LastCol)) wbk2.Worksheets(OngletWbk2).Range(PlageWbk2).Copy wbk1.Worksheets(1).Range(PlageRecep) wbk2.Close
Ce code qui fonctionne très bien pour une cellule ou pour une plage fixe. Mais dés que j'essaie de mettre des variable dans ma plage source cela me mets une erreur à chaque fois... Pouvez vous m'aider ? Merci beaucoup a tous !

22/09/2017, 10h28
Menhir
Un Range est un objet et non une valeur.
Pour mettre une référence dans une variable objet, le "=" ne suffit pas. Il faut utiliser l'instruction Set.
https://msdn.microsoft.com/fr-fr/lib.../gg251642.aspx

Code:

Set PlageWbk2 = wbk2.Worksheets(OngletWbk2).Range(LastLigneWbk2, LastColWbk2)

Autre chose : autant que possible, évite de déclarer des variables avec le type Variant. Ca évite les ambigüités et ça permet de repérer plus facilement les erreurs lors du débugage.
Code:

1 2 3 4 Dim LastColWbk2 As Long Dim LastLigneWbk2 As Long Dim LastCol As Long Dim Lastligne As Long

Merci pour les informations ! Mais j'ai toujours une erreur à la ligne 27 "1004 erreur définie par l'application ou par l'objet"...

Voici le code modifié :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
Dim titre As String
Dim wbk1 As Workbook
Dim wbk2 As Workbook
 
Dim PlageWbk2 As Range
Dim PlageWbk1 As Range
Dim LastColWbk2 As Long
Dim LastLigneWbk2 As Long
Dim LastCol As Long
Dim Lastligne As Long
Dim OngletWbk2 As String
 
OngletWbk2 = "Feuil2"
 
titre = "MonFichier.xlsx"
Set wbk1 = ThisWorkbook
Set wbk2 = Workbooks.Open(titre) ' jouvre le classeur (titre)
 
'Verification de la dernière ligne/colonne du tableau Wbk2
LastColWbk2 = wbk2.Worksheets(OngletWbk2).Cells(1, Cells.Columns.Count).End(xlToLeft).Column
LastLigneWbk2 = wbk2.Worksheets(OngletWbk2).Range("A" & Rows.Count).End(xlUp).Row
 
'Verification de la dernière ligne/colonne du tableau source
LastCol = Cells(1, Cells.Columns.Count).End(xlToLeft).Column
Lastligne = Range("A" & Rows.Count).End(xlUp).Row
 
Set PlageWbk2 = wbk2.Worksheets(OngletWbk2).Range(Cells(2, 1), Cells(LastLigneWbk2, LastColWbk2))
 
Set PlageRecep = Range(Cells(Lastligne + 1, 1), Cells(Lastligne + LastLigneWbk2, LastCol))
 
 
wbk2.Worksheets(OngletWbk2).Range(PlageWbk2).Copy wbk1.Worksheets(1).Range(PlageRecep)
 
wbk2.Close

Cela peut, peut être, simplifier le code :
Le tableau que je dois extraire correspond à toutes les information d'un onget sans la première ligne.

Merci encore pour votre aide !

22/09/2017, 12h13
Menhir
Citation:

Envoyé par Grdcolas

Merci pour les informations ! Mais j'ai toujours une erreur à la ligne 27 "1004 erreur définie par l'application ou par l'objet"...

Code:

Set PlageWbk2 = wbk2.Worksheets(OngletWbk2).Range(Cells(2, 1), Cells(LastLigneWbk2, LastColWbk2))

Le problème est au niveau de tes Cells.
Ecrit ainsi, les Cells désignent des cellules de l'onglet actif et non pas ceux de wbk2.Worksheets(OngletWbk2), même si tu as mis cette référence devant le Range.

Tu peux utiliser un With pour éviter d'avoir à répéter wbk2.Worksheets(OngletWbk2).
https://msdn.microsoft.com/fr-fr/lib.../gg264723.aspx

Ou bien tu peux simplifier ton code ainsi :

Remplace
Code:

1 2 Dim LastColWbk2 As Long Dim LastLigneWbk2 As Long
Par

Code:

Dim LastCellWbk2 As Range

Remplace
Code:

1 2 LastColWbk2 = wbk2.Worksheets(OngletWbk2).Cells(1, Cells.Columns.Count).End(xlToLeft).Column LastLigneWbk2 = wbk2.Worksheets(OngletWbk2).Range("A" & Rows.Count).End(xlUp).Row
Par

Code:

Set LastCellWbk2 = wbk2.Worksheets(OngletWbk2).UsedRange.SpecialCells(xlCellTypeLastCell)

Remplace

Code:

Set PlageWbk2 = wbk2.Worksheets(OngletWbk2).Range(Cells(2, 1), Cells(LastLigneWbk2, LastColWbk2))

Par

Code:

Set PlageWbk2 = wbk2.Worksheets(OngletWbk2).Range("A2", LastCellWbk2)

J'ai remplacé tout ce que tu m'as dis et il me sort encore la même erreur 1004, mais à la ligne 30
En ajoutant un espion il semblerai que ce soit "PlageWbk2" qui renvoie ça dans l'onglet "Error" Cependant je le trouve dans d'autres variables, je ne sais pas si ça peut être gênant aussi.

Revoici le code encore modifié :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
Dim titre As String
Dim wbk1 As Workbook
Dim wbk2 As Workbook
 
Dim PlageWbk2 As Range
Dim PlageWbk1 As Range
Dim LastCellWbk2 As Range
Dim LastCol As Long
Dim Lastligne As Long
Dim OngletWbk2 As String
 
OngletWbk2 = "Feuil2"
 
titre = "Monfichier.xlsx"
Set wbk1 = ThisWorkbook
Set wbk2 = Workbooks.Open(titre) ' jouvre le classeur (titre)
 
'Verification de la dernière ligne/colonne du tableau Wbk2
Set LastCellWbk2 = wbk2.Worksheets(OngletWbk2).UsedRange.SpecialCells(xlCellTypeLastCell)
 
'Verification de la dernière ligne/colonne du tableau source
LastCol = Cells(1, Cells.Columns.Count).End(xlToLeft).Column
Lastligne = Range("A" & Rows.Count).End(xlUp).Row
 
'Définition des plages
Set PlageWbk2 = wbk2.Worksheets(OngletWbk2).Range("A2", LastCellWbk2)
Set PlageRecep = Range(Cells(Lastligne + 1, 1), Cells(Lastligne + LastLigneWbk2, LastCol))
 
 
wbk2.Worksheets(OngletWbk2).Range(PlageWbk2).Copy wbk1.Worksheets(1).Range("A1")
 
wbk2.Close

Merci pour tout !

22/09/2017, 15h42
Menhir

Citation:

Envoyé par Grdcolas

J'ai remplacé tout ce que tu m'as dis et il me sort encore la même erreur 1004, mais à la ligne 30
En ajoutant un espion il semblerai que ce soit "PlageWbk2"

PlageWbk2 est un objet de type Range.
Il ne se contente pas de contenir l'adresse d'une cellule (ou d'une plage de cellules), il contient TOUTE sa référence y compris son classeur et son onglet, il pointe sur cette cellule unique.

Donc, quand on l'utilise, on peut le faire bien plus simplement que dans ton code.

Code:

PlageWbk2.Copy wbk1.Worksheets(1).Range("A1")
22/09/2017, 16h16
Grdcolas

Hmmmm ok ! Merci pour toutes ces informations, cela marche très bien !

Bonne fin de journée et bon weekend !