V
VINCE
Guest
Bonjour tout le monde,
jai un soucis de compilation de données à partir de
plusieurs fichiers.je mexplique:
il faudrait que je puisse à partir de ma macro allé
chercher les données que je veux à partir de telle ou
telle ligne de ces fichiers voilà ma macro:
Option Explicit
Public i As Integer
Dim WBase As Workbook
Dim WSBase As Worksheet
Dim Book As Variant
Sub Ini
Application.ScreenUpdating = False
i = 5
Cells.Clear
Set WBase = ThisWorkbook
With WBase
Set WSBase = .Worksheetsrecapitulatif
End With
OpenBook
Application.ScreenUpdating = True
End Sub
Sub OpenBook
With Application.FileSearch
..NewSearch
..LookIn = ThisWorkbook.Path
..FileType = msoFileTypeExcelWorkbooks
..Execute
On Error Resume Next
For Each Book In .FoundFiles
If Book ThisWorkbook.FullName Then
Workbooks.Open Book
Call CheckBook
End If
Next Book
End With
End Sub
Sub CheckBook
Dim WB As Workbook
Dim lig As Integer
Set WB = ActiveWorkbook
lig = Rangea65536, Rangea1.EndxlDown.Row
i = i
Application.DisplayAlerts = False
Rows1: & lig.Copy
ThisWorkbook.Sheetsrecapitulatif.Cellsi,
1.PasteSpecial
i = i + lig
WB.Close
Application.DisplayAlerts = True
End Sub
Par exemple: je veux prendre les données de la feuille x
a partir de la ligne 6 et ainsi que dans toutes les
autres feuilles des autres classeur du répertoire
En vous remerciant davance
vince
.
jai un soucis de compilation de données à partir de
plusieurs fichiers.je mexplique:
il faudrait que je puisse à partir de ma macro allé
chercher les données que je veux à partir de telle ou
telle ligne de ces fichiers voilà ma macro:
Option Explicit
Public i As Integer
Dim WBase As Workbook
Dim WSBase As Worksheet
Dim Book As Variant
Sub Ini
Application.ScreenUpdating = False
i = 5
Cells.Clear
Set WBase = ThisWorkbook
With WBase
Set WSBase = .Worksheetsrecapitulatif
End With
OpenBook
Application.ScreenUpdating = True
End Sub
Sub OpenBook
With Application.FileSearch
..NewSearch
..LookIn = ThisWorkbook.Path
..FileType = msoFileTypeExcelWorkbooks
..Execute
On Error Resume Next
For Each Book In .FoundFiles
If Book ThisWorkbook.FullName Then
Workbooks.Open Book
Call CheckBook
End If
Next Book
End With
End Sub
Sub CheckBook
Dim WB As Workbook
Dim lig As Integer
Set WB = ActiveWorkbook
lig = Rangea65536, Rangea1.EndxlDown.Row
i = i
Application.DisplayAlerts = False
Rows1: & lig.Copy
ThisWorkbook.Sheetsrecapitulatif.Cellsi,
1.PasteSpecial
i = i + lig
WB.Close
Application.DisplayAlerts = True
End Sub
Par exemple: je veux prendre les données de la feuille x
a partir de la ligne 6 et ainsi que dans toutes les
autres feuilles des autres classeur du répertoire
En vous remerciant davance
vince
.