Bonsoir à tous,
Avec le code suivant (Voir fichier "Recap"), je souhaite extraire des données provenant de plusieurs
fichiers fermés "Stat1" et "Stat2".
En commençant par la ligne 2 (du fichier "Recap"), j'aimerais afficher les données ligne par ligne.
Ceci semble presque fonctionner, mais seules les données du dernier fichier figurant dans le dossier
"DATA" sont prises en compte.
Peut-être s'agit-il de la ligne avec "Resize"?
Je vous remercie pour votre aide.
Cordialement
BChaly
Avec le code suivant (Voir fichier "Recap"), je souhaite extraire des données provenant de plusieurs
fichiers fermés "Stat1" et "Stat2".
En commençant par la ligne 2 (du fichier "Recap"), j'aimerais afficher les données ligne par ligne.
Ceci semble presque fonctionner, mais seules les données du dernier fichier figurant dans le dossier
"DATA" sont prises en compte.
Peut-être s'agit-il de la ligne avec "Resize"?
Je vous remercie pour votre aide.
Cordialement
BChaly
Code:
Option Explicit
Sub CopyData()
Dim RowX As Integer
Dim Path As String, FileName As String
Application.EnableEvents = False
Application.ScreenUpdating = False
RowX = 2
Path = "C:\Documents and Settings\XXX\Desktop\DATA\"
FileName = Dir(Path & "*.xls")
While FileName <> ""
If FileName <> ThisWorkbook.Name Then
With Workbooks.Open(Path & FileName)
With .Sheets("Sheet1").Range("A1:H1")
ThisWorkbook.Sheets("Sheet1").Range("a" & Rows.Count).End(xlUp)(2) _
.Resize(.Rows.Count, .Columns.Count).Value = .Value
End With
.Close False
End With
End If
FileName = Dir
Wend
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub
Pièces jointes
-
Recap.xls26.5 KB · Affichages: 41
-
Stat1.xls18 KB · Affichages: 37
-
Stat2.xls15.5 KB · Affichages: 36
-
Recap.xls26.5 KB · Affichages: 50
-
Stat1.xls18 KB · Affichages: 38
-
Stat2.xls15.5 KB · Affichages: 42
-
Recap.xls26.5 KB · Affichages: 56
-
Stat1.xls18 KB · Affichages: 39
-
Stat2.xls15.5 KB · Affichages: 43
Dernière édition: