question sur comment recuperer des titres de fichier excel à l'interieur d'un dossier et les mettre dans des cellules excel
Le
malabar
Bpnjour tout le monde
Deux questions
1) Je voudrais savoir comment je pourrais reruperer tous les nom de fichier
excel pour les stocker dans un fichier excel de manière à organiser une base
de données.
Dossier AKL
à l'interieur fichier nomme 1.xls
fichier nommé 2.xls
Ensuite
Creation d'un fichier excel nommé synthese
dans lequel je voudrais recuperer le titre de chaque fichier excel dans ules
cellules du fichier synthese
Recuperation dans une cellule
2 toutes les fiches de procedures sont contenus dans un fichier excel
cellule a exemple destination
fichier AKL cellule A1 nom fichier 1xls
Fichier EZE celuule A7 nom fichier 2.xls
Moie je voudrais obtenier comme resultat
Fichier Synthese
cellule A1 AKL
cellule A2 EZE
Merci pour vos reponses amicalemnt Francisco
Deux questions
1) Je voudrais savoir comment je pourrais reruperer tous les nom de fichier
excel pour les stocker dans un fichier excel de manière à organiser une base
de données.
Dossier AKL
à l'interieur fichier nomme 1.xls
fichier nommé 2.xls
Ensuite
Creation d'un fichier excel nommé synthese
dans lequel je voudrais recuperer le titre de chaque fichier excel dans ules
cellules du fichier synthese
Recuperation dans une cellule
2 toutes les fiches de procedures sont contenus dans un fichier excel
cellule a exemple destination
fichier AKL cellule A1 nom fichier 1xls
Fichier EZE celuule A7 nom fichier 2.xls
Moie je voudrais obtenier comme resultat
Fichier Synthese
cellule A1 AKL
cellule A2 EZE
Merci pour vos reponses amicalemnt Francisco
Poser une question
Bon week end à tous et à toutes
"Daniel"
voir si cela te va
http://cjoint.com/?eEkIUhJLtW
salutations
RGI
"malabar" news: 4454713b$0$29199$
Essaie :
Sub Test()
Dim Ctr As Long
Ctr = 1
Workbooks.Add
ActiveWorkbook.SaveAs "synthese.xls"
With Application.FileSearch
.NewSearch
.LookIn = "e:"
.SearchSubFolders = True
.FileType = msoFileTypeExcelWorkbooks
.Execute
For i = 1 To .FoundFiles.Count
Cells(Ctr, 1) = .FoundFiles(i)
Ctr = Ctr + 1
Next i
End With
End Sub
Cordialement.
Daniel
"malabar" news: 4454713b$0$29199$