Discussion :

[vins86]

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

[SfJ5Rpw8]

bonsoir,


que sont pour toi tes variables wb et wkb ... elles semblent "pointer" sur le même classeur..

[vins86]

Bonsoir bbil,

Mes variables sont de classeur sont:

Code :

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

1
2
3
4
5
6
7
8
9
Chemin = "F:\Vincent\fichier_saisie\"
 
Fichier = Dir(Chemin & "*.xls")
 
fichierB = "test_Comp.xls"
 
Do While Fichier <> ""
 
Set Wb = Workbooks.Open(Chemin & Fichier)

Code :

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

fichierB = "test_Comp.xls"

est le fichier qui doit récupérer tout les coller.

Cordialement,

Vincent

[vins86]

Bonjour,

J'ai trouver la solution.

Merci comme même pour ton aide bbil.

Cordialement,

Vincent.