question sur comment recuperer des titres de fichier excel à l'interieur d'un dossier et les mettre dans des cellules excel
3 réponses
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
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
malabar
Merci pour vos réponses RGI et daniel Bon week end à tous et à toutes
"Daniel" a écrit dans le message de news:
Bonjour. 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" a écrit dans le message de
news: 4454713b$0$29199$
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
Merci pour vos réponses RGI et daniel
Bon week end à tous et à toutes
"Daniel" <dZZZcolardelle@free.fr> a écrit dans le message de news:
eAK2zIDbGHA.1008@TK2MSFTNGP02.phx.gbl...
Bonjour.
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" <francisco.peleicano-vasco@wanadoo.fr> a écrit dans le message
de
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
Merci pour vos réponses RGI et daniel Bon week end à tous et à toutes
"Daniel" a écrit dans le message de news:
Bonjour. 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" a écrit dans le message de
news: 4454713b$0$29199$
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
RGI
bonjour
voir si cela te va
http://cjoint.com/?eEkIUhJLtW
salutations
RGI
"malabar" a écrit dans le message de news: 4454713b$0$29199$
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
bonjour
voir si cela te va
http://cjoint.com/?eEkIUhJLtW
salutations
RGI
"malabar" <francisco.peleicano-vasco@wanadoo.fr> a écrit dans le message de
news: 4454713b$0$29199$8fcfb975@news.wanadoo.fr...
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
"malabar" a écrit dans le message de news: 4454713b$0$29199$
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
Daniel
Bonjour. 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" a écrit dans le message de news: 4454713b$0$29199$
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
Bonjour.
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" <francisco.peleicano-vasco@wanadoo.fr> a écrit dans le message de
news: 4454713b$0$29199$8fcfb975@news.wanadoo.fr...
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
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" a écrit dans le message de news: 4454713b$0$29199$
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
