Bonjour,

Je souhaite copier coller des fichiers en boucles dans un fichier à la première ligne vide.

J'ai essayer ceci mais aucune donnée est coller pourtant les fichiers s'ouvre bien.
Est-ce normal?


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
19
20
21
22
23
24
25
26
27
28
29
30
31
32
Private Sub Workbook_Open()
 
Dim Fichier As String, Chemin As String, fichierB As String
Dim Wb As Workbook, wkB As Workbook
Dim i As Integer
 
Chemin = "F:\Vincent\fichier_saisie\"
 
Fichier = Dir(Chemin & "*.xls")
 
fichierB = "test_Comp.xls"
 
Do While Fichier <> ""
 
Set Wb = Workbooks.Open(Chemin & Fichier)
Set wkB = Workbooks(fichierB)
 
 
'suite de la procedure
On Error Resume Next
With Wb.Sheets("Feuil1")
   .Range("A1:A10").Copy wkB.Sheets("Feuil1").Range("A65536").End(xlUp).Row - 1
End With
Wb.Close False
 
Set Wb = Nothing
 
Fichier = Dir
 
Loop
 
End Sub
Cordialement,

Vincent