J'ai trouvé ceci sur Excelabo qui permet d'ouvrir des classeurs d'un
dossier, mais je ne veux pas les ouvrir, seulement récupérer leurs noms dans
une feuille et j'ai tout essayé en vain...
Dim F
With Application.FileSearch
.NewSearch
.LookIn = "C:\Temp"
.Execute
On Error Resume Next
For Each F In .FoundFiles
Workbooks.Open F (non, pas Open, mais récupérer son nom dans cellule
active)
Next F
End With
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
Misange
Bonjour,
regarde plutôt sur la page répertoires par exemple ceci avec un exemple à télécharger mais il y a d'autres soluces http://www.excelabo.net/xl/repertoires.php#caractfichdossier
Misange migrateuse http://www.excelabo.net mail : http://cerbermail.com/?k5Q8Dh2mta
le 05/11/2003 12:10:
Bonjour,
J'ai trouvé ceci sur Excelabo qui permet d'ouvrir des classeurs d'un dossier, mais je ne veux pas les ouvrir, seulement récupérer leurs noms dans une feuille et j'ai tout essayé en vain...
Dim F With Application.FileSearch .NewSearch .LookIn = "C:Temp" .Execute On Error Resume Next For Each F In .FoundFiles Workbooks.Open F (non, pas Open, mais récupérer son nom dans cellule active) Next F End With
Merci si vous pouvez m'aider Marie
Bonjour,
regarde plutôt sur la page répertoires
par exemple ceci avec un exemple à télécharger mais il y a d'autres soluces
http://www.excelabo.net/xl/repertoires.php#caractfichdossier
Misange migrateuse http://www.excelabo.net
mail : http://cerbermail.com/?k5Q8Dh2mta
le 05/11/2003 12:10:
Bonjour,
J'ai trouvé ceci sur Excelabo qui permet d'ouvrir des classeurs d'un
dossier, mais je ne veux pas les ouvrir, seulement récupérer leurs noms dans
une feuille et j'ai tout essayé en vain...
Dim F
With Application.FileSearch
.NewSearch
.LookIn = "C:Temp"
.Execute
On Error Resume Next
For Each F In .FoundFiles
Workbooks.Open F (non, pas Open, mais récupérer son nom dans cellule
active)
Next F
End With
regarde plutôt sur la page répertoires par exemple ceci avec un exemple à télécharger mais il y a d'autres soluces http://www.excelabo.net/xl/repertoires.php#caractfichdossier
Misange migrateuse http://www.excelabo.net mail : http://cerbermail.com/?k5Q8Dh2mta
le 05/11/2003 12:10:
Bonjour,
J'ai trouvé ceci sur Excelabo qui permet d'ouvrir des classeurs d'un dossier, mais je ne veux pas les ouvrir, seulement récupérer leurs noms dans une feuille et j'ai tout essayé en vain...
Dim F With Application.FileSearch .NewSearch .LookIn = "C:Temp" .Execute On Error Resume Next For Each F In .FoundFiles Workbooks.Open F (non, pas Open, mais récupérer son nom dans cellule active) Next F End With
Merci si vous pouvez m'aider Marie
Marie
Merci, Daniel c'est vraiment génial, je vais pouvoir l'utiliser mais je serais incapable de le faire...
"Daniel.j" a écrit dans le message news:
Bonjour Marie Un classeur à telecharger ici: http://dj.joss.free.fr/down.htm
lstfile.zip 39 ko Ecrit et imprime la liste des fichiers d'un répertoire.
-- Daniel MVP Excel FAQ du Forum Microsoft Public Fr Excel http://dj.joss.free.fr/faq.htm
"Marie" a écrit dans le message de news: 3fa8da95$0$6972$ | Bonjour, | | J'ai trouvé ceci sur Excelabo qui permet d'ouvrir des classeurs d'un | dossier, mais je ne veux pas les ouvrir, seulement récupérer leurs noms dans
| une feuille et j'ai tout essayé en vain... | | Dim F | With Application.FileSearch | .NewSearch | .LookIn = "C:Temp" | .Execute | On Error Resume Next | For Each F In .FoundFiles | Workbooks.Open F (non, pas Open, mais récupérer son nom dans cellule
| active) | Next F | End With | | Merci si vous pouvez m'aider | Marie | |
Merci, Daniel c'est vraiment génial, je vais pouvoir l'utiliser mais je
serais incapable de le faire...
"Daniel.j" <nospam_dj.joss@free.fr> a écrit dans le message news:
uu0YZ44oDHA.1020@TK2MSFTNGP09.phx.gbl...
Bonjour Marie
Un classeur à telecharger ici:
http://dj.joss.free.fr/down.htm
lstfile.zip 39 ko Ecrit et imprime la liste des fichiers d'un
répertoire.
--
Daniel MVP Excel
FAQ du Forum Microsoft Public Fr Excel
http://dj.joss.free.fr/faq.htm
"Marie" <maremy@club-internet.fr> a écrit dans le message de news:
3fa8da95$0$6972$7a628cd7@news.club-internet.fr...
| Bonjour,
|
| J'ai trouvé ceci sur Excelabo qui permet d'ouvrir des classeurs d'un
| dossier, mais je ne veux pas les ouvrir, seulement récupérer leurs noms
dans
| une feuille et j'ai tout essayé en vain...
|
| Dim F
| With Application.FileSearch
| .NewSearch
| .LookIn = "C:Temp"
| .Execute
| On Error Resume Next
| For Each F In .FoundFiles
| Workbooks.Open F (non, pas Open, mais récupérer son nom dans
cellule
| active)
| Next F
| End With
|
| Merci si vous pouvez m'aider
| Marie
|
|
Merci, Daniel c'est vraiment génial, je vais pouvoir l'utiliser mais je serais incapable de le faire...
"Daniel.j" a écrit dans le message news:
Bonjour Marie Un classeur à telecharger ici: http://dj.joss.free.fr/down.htm
lstfile.zip 39 ko Ecrit et imprime la liste des fichiers d'un répertoire.
-- Daniel MVP Excel FAQ du Forum Microsoft Public Fr Excel http://dj.joss.free.fr/faq.htm
"Marie" a écrit dans le message de news: 3fa8da95$0$6972$ | Bonjour, | | J'ai trouvé ceci sur Excelabo qui permet d'ouvrir des classeurs d'un | dossier, mais je ne veux pas les ouvrir, seulement récupérer leurs noms dans
| une feuille et j'ai tout essayé en vain... | | Dim F | With Application.FileSearch | .NewSearch | .LookIn = "C:Temp" | .Execute | On Error Resume Next | For Each F In .FoundFiles | Workbooks.Open F (non, pas Open, mais récupérer son nom dans cellule
| active) | Next F | End With | | Merci si vous pouvez m'aider | Marie | |
sabatier
t'en fais pas, marie, daniel non plus!!! jps
Marie wrote:
Merci, Daniel c'est vraiment génial, je vais pouvoir l'utiliser mais je serais incapable de le faire...
"Daniel.j" a écrit dans le message news:
Bonjour Marie Un classeur à telecharger ici: http://dj.joss.free.fr/down.htm
lstfile.zip 39 ko Ecrit et imprime la liste des fichiers d'un répertoire.
-- Daniel MVP Excel FAQ du Forum Microsoft Public Fr Excel http://dj.joss.free.fr/faq.htm
"Marie" a écrit dans le message de news: 3fa8da95$0$6972$ | Bonjour, | | J'ai trouvé ceci sur Excelabo qui permet d'ouvrir des classeurs d'un | dossier, mais je ne veux pas les ouvrir, seulement récupérer leurs noms dans
| une feuille et j'ai tout essayé en vain... | | Dim F | With Application.FileSearch | .NewSearch | .LookIn = "C:Temp" | .Execute | On Error Resume Next | For Each F In .FoundFiles | Workbooks.Open F (non, pas Open, mais récupérer son nom dans cellule
| active) | Next F | End With | | Merci si vous pouvez m'aider | Marie | |
t'en fais pas, marie, daniel non plus!!!
jps
Marie wrote:
Merci, Daniel c'est vraiment génial, je vais pouvoir l'utiliser mais je
serais incapable de le faire...
"Daniel.j" <nospam_dj.joss@free.fr> a écrit dans le message news:
uu0YZ44oDHA.1020@TK2MSFTNGP09.phx.gbl...
Bonjour Marie
Un classeur à telecharger ici:
http://dj.joss.free.fr/down.htm
lstfile.zip 39 ko Ecrit et imprime la liste des fichiers d'un
répertoire.
--
Daniel MVP Excel
FAQ du Forum Microsoft Public Fr Excel
http://dj.joss.free.fr/faq.htm
"Marie" <maremy@club-internet.fr> a écrit dans le message de news:
3fa8da95$0$6972$7a628cd7@news.club-internet.fr...
| Bonjour,
|
| J'ai trouvé ceci sur Excelabo qui permet d'ouvrir des classeurs d'un
| dossier, mais je ne veux pas les ouvrir, seulement récupérer leurs noms
dans
| une feuille et j'ai tout essayé en vain...
|
| Dim F
| With Application.FileSearch
| .NewSearch
| .LookIn = "C:Temp"
| .Execute
| On Error Resume Next
| For Each F In .FoundFiles
| Workbooks.Open F (non, pas Open, mais récupérer son nom dans
cellule
| active)
| Next F
| End With
|
| Merci si vous pouvez m'aider
| Marie
|
|
Merci, Daniel c'est vraiment génial, je vais pouvoir l'utiliser mais je serais incapable de le faire...
"Daniel.j" a écrit dans le message news:
Bonjour Marie Un classeur à telecharger ici: http://dj.joss.free.fr/down.htm
lstfile.zip 39 ko Ecrit et imprime la liste des fichiers d'un répertoire.
-- Daniel MVP Excel FAQ du Forum Microsoft Public Fr Excel http://dj.joss.free.fr/faq.htm
"Marie" a écrit dans le message de news: 3fa8da95$0$6972$ | Bonjour, | | J'ai trouvé ceci sur Excelabo qui permet d'ouvrir des classeurs d'un | dossier, mais je ne veux pas les ouvrir, seulement récupérer leurs noms dans
| une feuille et j'ai tout essayé en vain... | | Dim F | With Application.FileSearch | .NewSearch | .LookIn = "C:Temp" | .Execute | On Error Resume Next | For Each F In .FoundFiles | Workbooks.Open F (non, pas Open, mais récupérer son nom dans cellule
| active) | Next F | End With | | Merci si vous pouvez m'aider | Marie | |
Marie
Merci, je suis ravie, j'ai trouvé la solution simple que je voulais Marie
"Misange" a écrit dans le message news:
Bonjour,
regarde plutôt sur la page répertoires par exemple ceci avec un exemple à télécharger mais il y a d'autres soluces
Misange migrateuse http://www.excelabo.net mail : http://cerbermail.com/?k5Q8Dh2mta
le 05/11/2003 12:10:
Bonjour,
J'ai trouvé ceci sur Excelabo qui permet d'ouvrir des classeurs d'un dossier, mais je ne veux pas les ouvrir, seulement récupérer leurs noms dans
une feuille et j'ai tout essayé en vain...
Dim F With Application.FileSearch .NewSearch .LookIn = "C:Temp" .Execute On Error Resume Next For Each F In .FoundFiles Workbooks.Open F (non, pas Open, mais récupérer son nom dans cellule
active) Next F End With
Merci si vous pouvez m'aider Marie
Merci, je suis ravie, j'ai trouvé la solution simple que je voulais
Marie
"Misange" <misange@devinezou.net> a écrit dans le message news:
ehYE4W5oDHA.3612@TK2MSFTNGP11.phx.gbl...
Bonjour,
regarde plutôt sur la page répertoires
par exemple ceci avec un exemple à télécharger mais il y a d'autres
soluces
Misange migrateuse http://www.excelabo.net
mail : http://cerbermail.com/?k5Q8Dh2mta
le 05/11/2003 12:10:
Bonjour,
J'ai trouvé ceci sur Excelabo qui permet d'ouvrir des classeurs d'un
dossier, mais je ne veux pas les ouvrir, seulement récupérer leurs noms
dans
une feuille et j'ai tout essayé en vain...
Dim F
With Application.FileSearch
.NewSearch
.LookIn = "C:Temp"
.Execute
On Error Resume Next
For Each F In .FoundFiles
Workbooks.Open F (non, pas Open, mais récupérer son nom dans
cellule
Misange migrateuse http://www.excelabo.net mail : http://cerbermail.com/?k5Q8Dh2mta
le 05/11/2003 12:10:
Bonjour,
J'ai trouvé ceci sur Excelabo qui permet d'ouvrir des classeurs d'un dossier, mais je ne veux pas les ouvrir, seulement récupérer leurs noms dans
une feuille et j'ai tout essayé en vain...
Dim F With Application.FileSearch .NewSearch .LookIn = "C:Temp" .Execute On Error Resume Next For Each F In .FoundFiles Workbooks.Open F (non, pas Open, mais récupérer son nom dans cellule