copier coller plusieurs fichiers dans un seul fichier [Résolu]

[hobine]

Bonjour,
je veux copier les données de plusieurs fichiers les unes après les autres dans un fichier.
J'ai écrit une macro pour cela, malheureusement, il y a un bug que je n'arrive pas à débugger. Quelqu'un pourra t il s'il vous plaît corriger l'erreur?
Le bug se trouve sur la ligne 16

Merci par avance

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
Sub COPIEBASEVG(chemin, feuille)
Dim Wbk As Workbook
Dim Rep As String
Dim Plage As Range
Dim tbl() As Variant
Dim i As Integer, j As Integer
 
 
Set Wbk = Workbooks.Open(chemin)
Set Plage = ThisWorkbook.Worksheets("service").Range("A2:E" & Range("D65536").End(xlUp).Row)
tbl = Plage.Value
 
    For i = 1 To UBound(tbl, 1)
        For j = 1 To UBound(tbl, 2)
            If tbl(i, j) = "" Then
                ThisWorkbook.Worksheets("service").Range("i,j").Value = Wbk.Worksheets(feuille).Range("A2:D7").Value
            End If
        Next j
    Next i
 
'ThisWorkbook.Worksheets("service").Range("C9:F14").Value = Wbk.Worksheets(feuille).Range("A2:D7").Value
 
Wbk.Close False
'Wbks.Close True
Set Wbk = Nothing
End Sub

[ZebreLoup]

A la place de

Code :

ThisWorkbook.Worksheets("service").Range("i,j").Value

Essaie

Code :

ThisWorkbook.Worksheets("service").Cells(i,j).Value

[ZebreLoup]

Et sans regarder plus en détail, tu essaies de copier une plage dans une cellule. Ca ne plantera pas forcément, mais c'est bizarre. Au mieux tu auras à chaque fois la première cellule de la plage.

[Daniel.C]

Bonjour,

Tu fais une erreur ici :

Code :

Set Plage = ThisWorkbook.Worksheets("service").Range("A2:E" & Range("D65536").End(xlUp).Row)

"Range("D65536").End(xlUp).Row" se réfère au classeur actif, c'est à dire celui que tu viens d'ouvrir. Tu devrais plutôt écrire :

Code :

1
2
3
With ThisWorkbook.Worksheets("service")
    Set Plage = .Range("A2:E" & .Range("D65536").End(xlUp).Row)
End With

Pour compléter ce que dit Zebreloup, écris plutôt :

Code :

1
2
                ThisWorkbook.Worksheets("service").Range("i,j").Resize(6, 4).Value = _
                Wbk.Worksheets(feuille).Range("A2:D7").Value

[hobine]

tout d'abord merci pour la peine que tu te donnes pour mon sort,
j'avais déjà essayé mais elle bug toujours

Bonjour Daniel,
qu'on se retrouve, j'ai fallu dire les grands esprits se rencontrent, malheureusement j'en suis pas un en vba.
pour revenir à mon probleme , j'ai remplacé comme indiqué mais le probleme persiste sur la même ligne, j'en vois un bout de mon code.
ligne 10 , il y a le bug

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
Set Wbk = Workbooks.Open(chemin)
With ThisWorkbook.Worksheets("service")
 Set Plage = .Range("A2:E" & Range("A65536").End(xlUp).Row)
End With
tbl = Plage.Value
 
    For i = 1 To UBound(tbl, 1)
        For j = 1 To UBound(tbl, 2)
            If tbl(i, j) = "" Then
                ThisWorkbook.Worksheets("service").Range("i,j").Resize(6, 4).Value = Wbk.Worksheets(feuille).Range("A2:D7").Value
            End If
        Next j
    Next i

[ZebreLoup]

C'est toujours ton Range("i,j") ! Fais Cells(i,j) comme on te l'a dit.

[hobine]

ZabreLoup,
je viens de remplacer range par Cells mais le problème persiste à la même ligne

[ZebreLoup]

Tu as bien enlevé les guillemets ?
Que dit le message d'erreur ?

[hobine]

ZebreLoup,
tu avais raison au niveau guillemet,
je vous remercie Daniel et toi pour le coup de pousse

[hobine]

dsl de revenir auprès de vous, car Ca ne fait pas le job puisque cela ne copie pas les fichiers à la suite les uns des autres.
Je vous remets ma macro et deux exemples de fichiers excel (ce n'est pas le fichier original) en PJ

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
Sub COPIEBASEVG(chemin, feuille)
Dim Wbk As Workbook
Dim Rep As String
Dim Plage As Range
Dim tbl() As Variant
Dim i As Integer, j As Integer
 
 
Set Wbk = Workbooks.Open(chemin)
With ThisWorkbook.Worksheets("service")
    Set Plage = .Range("A2:E" & .Range("A65536").End(xlUp).Row)
End With
tbl = Plage.Value
 
    For i = 2 To UBound(tbl, 1)
        For j = 1 To UBound(tbl, 2)
            If tbl(i, j) = "" Then
                                ThisWorkbook.Worksheets("service").Cells(i, j).Resize(6, 4).Value = _
                Wbk.Worksheets(feuille).Range("A2:D7").Value
            End If
        Next j
    Next i
 
 
 
Wbk.Close False
'Wbks.Close True
Set Wbk = Nothing
End Sub

[Daniel.C]

Normal, tu ne passes qu'une fois sur :

Code :

Sub CommandButton1_Click()

Là où tu choisis LE fichier à ouvrir.