Résumé les infos de fichiers Excel dans un fichier unique
bonjour a tous,
voila, pour mon mémoire je voudrais avoir un tableau excel qui soit un espece de fichier "bilan" de plusieurs fichiers d'un dossier.
Je m'explique, je voudrais que mon fichier excel "bilan" puisse regrouper les infos de certaines cellules d'autres fichiers excel d'un meme dossier.
Par exemple, je voudrais que toutes les cases B3 de la feuille 1 de tous les fichier excel (excel1.xls, excel2.xls...) du dossier "essai" soient mises dans mon fichier bilan excel.
Vous croyez que c'est possible de "fusionner" comme ca ?
Bonjour
Tu mets ton fichier "Bilan" dans le même répertoire (essai)
Macro à mettre dans un module du fichier "Bilan" :
Sub Transferer()
Dim dossier As Object, Fichier As Object, Chemin As String, Lg As Integer
Application.ScreenUpdating = False
Application.DisplayAlerts = True
DerLg = Range("A65536").End(xlUp).Row + 1
Range("A2:B" & DerLg).Delete
Chemin = ThisWorkbook.Path
FName = Dir(Chemin & "\" & "*.xls")
Set dossier = CreateObject("Scripting.FileSystemObject").GetFolder(Chemin)
For Each Fichier In dossier.Files
NomFichier = Fichier.Name
If Fichier.Name = "Bilan.xls" Then End
Lg = Range("A65536").End(xlUp).Row + 1
Sheets("Feuil1").Range("A" & Lg) = NomFichier
Workbooks.Open Filename:=Chemin & "/" & NomFichier
On Error Resume Next
With Workbooks(NomFichier)
.Sheets("Feuil1").Range("B3").Copy ThisWorkbook.Sheets("Feuil1").Range("B" & Lg)
.Close
End With
Next
End SubTeste et dis-moi.
Amicalement
Nad
hummm, pour le moment ca ne marche pas mais je crois savoir pourquoi:
dans ton code tu as mis que ça devait chercher quels cellules ?
moi je voudrais que ça ailler chercher la ligne numero 2 de la feuille nommée "report" de chaque fichier excel
et que ça la "copie/colle" les unes a la suite des autres.
c'est possible ?
Bonjour
Ta demande était :
mizouille a écrit :Par exemple, je voudrais que toutes les cases B3 de la feuille 1
Envoie un des fichier que je vois la structure exacte.
Amicalement
Nad