Macro Compilation Fichiers

[WaxistSelecta]

Bonjour à tous,

je suis à la recherche d'un code (ou d'assistance pour l'écrire) afin de pouvoir compiler un certains nombre de fichier dans un unique classeur cible.

J'ai un dossier 'Requêtes Data' qui contient X fichiers excel contenant chacun un onglet unique. Ces fichiers sont en fait des extractions de tables d'un SI.

Je voudrais pouvoir compiler ces fichiers dans un classeur cible, contenant les différents fichiers sources, organisés en onglet (un onglet par fichier sources). En gros il suffirait de faire un Copier / Coller entre le fichier source et le fichier cible, simplement vu le nombre de fichiers à compiler c'est assez long à faire à la mano.

Je pense qu'une boucle devrait faire l'affaire.

Merci d'avance pour vos réponses!

Waxist

 

[WaxistSelecta]

Re : Macro Compilation Fichiers

Non justement j'ai supprimé tous les onglets.
+ fait une copie incrémentée (V2) de mon fichier cible.

Ce fichier contient uniquement un onglet "Consolidation", qui doit me servir à faire des calcul...

Cdt

 

[tototiti2008]

Re : Macro Compilation Fichiers

Re,

et comme ça ?

Sub CompileFic()
 
Dim FSO 'As Scripting.FileSystemObject
Dim SourceFolder 'As Scripting.Folder
Dim FileItem 'As Scripting.File
Set FSO = CreateObject("Scripting.FileSystemObject")
' Indiquer ici le bon répertoire
Set SourceFolder = FSO.GetFolder("C:\Data Requêtes")
Set FSO = New Scripting.FileSystemObject
On Error Goto Err1
' Pour chaque fichier trouvé dans le dossier
For Each FileItem In SourceFolder.Files
Workbooks.Open FileItem.Name
ActiveWorkbook.Sheets(1).Move after:=ThisWorkbook.Sheets("Consolidation")
ThisWorkbook.ActiveSheet.Name = Replace(FileItem.Name, ".xls", "")
Next FileItem
On Error GoTo 0
' Effacer les variables objet
Set FileItem = Nothing
Set SourceFolder = Nothing
Set FSO = Nothing
Exit Sub
Err1 : 
Msgbox "erreur " & fileitem.name
End Sub

 

[WaxistSelecta]

Re : Macro Compilation Fichiers

Merci de ta réponse.

Donc ici, au lancement de la macro apparait le message d'erreur que tu as ajouté avec:

Erreur PE_EMP_CNT_601.xls (qui se trouve être le 1er fichier dans mon dossier source).

 

[tototiti2008]

Re : Macro Compilation Fichiers

Re,

il faut que tu éxécutes en pas à pas pour voir ce qu'il n'arrive pas à réaliser (jusqu'où il va avant l'erreur)

 

[WaxistSelecta]

Re : Macro Compilation Fichiers

J'ai passé pas mal du code en commentaire,

c'est quand j'active le For Next que l'erreur se produit:

Sub CompileFic()

Dim FSO 'As Scripting.FileSystemObject
Dim SourceFolder 'As Scripting.Folder
Dim FileItem 'As Scripting.File
Set FSO = CreateObject("Scripting.FileSystemObject")
' Indiquer ici le bon répertoire
Set SourceFolder = FSO.GetFolder("C:\Data Requêtes")
Set FSO = New Scripting.FileSystemObject


On Error GoTo Err1
' Pour chaque fichier trouvé dans le dossier
For Each FileItem In SourceFolder.Files
Workbooks.Open FileItem.Name
'ActiveWorkbook.Sheets(1).Move after:=ThisWorkbook.Sheets("Consolidation")
'ThisWorkbook.ActiveSheet.Name = Replace(FileItem.Name, ".xls", "")
Next FileItem
'On Error GoTo 0
' Effacer les variables objet
'Set FileItem = Nothing
'Set SourceFolder = Nothing
'Set FSO = Nothing
Exit Sub
Err1:
MsgBox "erreur " & FileItem.Name
End Sub

 

[tototiti2008]

Re : Macro Compilation Fichiers

Re,

Où as-tu été aller chercher la ligne là ?? elle n'était pas dans le code de Bruno

Set FSO = New Scripting.FileSystemObject

Met la en commentaire, pour voir

 

[WaxistSelecta]

Re : Macro Compilation Fichiers

Re,

effectivement c'est une étourderie de ma part...

Par contre, même réaction de la macro après l'avoir passée en commentaire.

 

[tototiti2008]

Re : Macro Compilation Fichiers

Re,

et si tu mets ça ?

Set SourceFolder = FSO.GetFolder("C:\Data Requêtes\")

 

[WaxistSelecta]

Re : Macro Compilation Fichiers

Idem, même réaction :-(

 

[WaxistSelecta]

Re : Macro Compilation Fichiers

En fait si je désactive ton message d'erreur,

dans VBE, j'obtiens le message suivant :
"Run time error 1004
le fichier PE_EMP_CNT_601.xls est introuvable. Vérifier etc..."

Pourtant le fichier est bien présent dans mon dossier ...

 

[tototiti2008]

Re : Macro Compilation Fichiers

Re,

dernière idée, après je ne vois plus :

Workbooks.Open "C:\Data Requêtes\" & FileItem.Name

 

[WaxistSelecta]

Re : Macro Compilation Fichiers

Yes,

la dernière tentative était la bonne!
Cela fonctionne exactement comme je le souhaitait. Merci beaucoup.

Je mets le code final ci dessous pour les personnes qui visiteraient le post dans le futur:

Sub CompileFic()

Dim FSO As Scripting.FileSystemObject
Dim SourceFolder As Scripting.Folder
Dim FileItem As Scripting.File
Set FSO = CreateObject("Scripting.FileSystemObject")
' Indiquer ici le bon répertoire
Set SourceFolder = FSO.GetFolder("C:\Data Requêtes\")

Set FSO = New Scripting.FileSystemObject


'On Error GoTo Err1
' Pour chaque fichier trouvé dans le dossier
For Each FileItem In SourceFolder.Files
Workbooks.Open "C:\Data Requêtes\" & FileItem.Name
ActiveWorkbook.Sheets(1).Move after:=ThisWorkbook.Sheets("Consolidation")
ThisWorkbook.ActiveSheet.Name = Replace(FileItem.Name, ".xls", "")
Next FileItem
On Error GoTo 0
' Effacer les variables objet
Set FileItem = Nothing
Set SourceFolder = Nothing
Set FSO = Nothing
Exit Sub
'Err1:
'MsgBox "erreur " & FileItem.Name
End Sub

Merci beaucoup encore une fois!

 

[tototiti2008]

Re : Macro Compilation Fichiers

Re,

enlève la ligne là :

Set FSO = New Scripting.FileSystemObject