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
Philippe.R
Bonjour, Ceci par exemple : http://frederic.sigonneau.free.fr/code/Fichiers/ListeFichiers.txt ou une autre de chez Frédéric. -- Amicales Salutations XL 97 / 2000 / 2002 Retirer A_S_ pour répondre en privé. Préférez suivre facilement sur le forum : news://msnews.microsoft.com/microsoft.public.fr.excel (Voulez-vous vous abonner ? -> Oui)
"salut07" a écrit dans le message de news:%
Bonjour,
Je cherche le code qui me permet de recupérer la liste des fichiers contenu dans un dossier
Merci :)
Bonjour,
Ceci par exemple :
http://frederic.sigonneau.free.fr/code/Fichiers/ListeFichiers.txt
ou une autre de chez Frédéric.
--
Amicales Salutations
XL 97 / 2000 / 2002
Retirer A_S_ pour répondre en privé.
Préférez suivre facilement sur le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)
"salut07" <w.gardes@ch-privas.fr> a écrit dans le message de
news:%23uWyFlmlEHA.2380@TK2MSFTNGP14.phx.gbl...
Bonjour,
Je cherche le code qui me permet de recupérer la liste des fichiers contenu
dans un dossier
Bonjour, Ceci par exemple : http://frederic.sigonneau.free.fr/code/Fichiers/ListeFichiers.txt ou une autre de chez Frédéric. -- Amicales Salutations XL 97 / 2000 / 2002 Retirer A_S_ pour répondre en privé. Préférez suivre facilement sur le forum : news://msnews.microsoft.com/microsoft.public.fr.excel (Voulez-vous vous abonner ? -> Oui)
"salut07" a écrit dans le message de news:%
Bonjour,
Je cherche le code qui me permet de recupérer la liste des fichiers contenu dans un dossier
Merci :)
papou
Bonjour Voici une façon de faire (à adapter) avec FileSearch (il y a d'autres méthodes plus élaborées) Sub ChercheLesFichiers() With Application.FileSearch .NewSearch .LookIn = "C:DOC" .SearchSubFolders = False .FileType = msoFileTypeAllFiles .Execute msoSortByFileName, msoSortOrderAscending If .FoundFiles.Count <> 0 Then For i = 1 To .FoundFiles.Count Cells(i, 1) = .FoundFiles(i) Next i Else MsgBox "Pas de fichier trouvé" End If End With End Sub
Cordialement Pascal
"salut07" a écrit dans le message de news:%
Bonjour,
Je cherche le code qui me permet de recupérer la liste des fichiers contenu
dans un dossier
Merci :)
Bonjour
Voici une façon de faire (à adapter) avec FileSearch (il y a d'autres
méthodes plus élaborées)
Sub ChercheLesFichiers()
With Application.FileSearch
.NewSearch
.LookIn = "C:DOC"
.SearchSubFolders = False
.FileType = msoFileTypeAllFiles
.Execute msoSortByFileName, msoSortOrderAscending
If .FoundFiles.Count <> 0 Then
For i = 1 To .FoundFiles.Count
Cells(i, 1) = .FoundFiles(i)
Next i
Else
MsgBox "Pas de fichier trouvé"
End If
End With
End Sub
Cordialement
Pascal
"salut07" <w.gardes@ch-privas.fr> a écrit dans le message de
news:%23uWyFlmlEHA.2380@TK2MSFTNGP14.phx.gbl...
Bonjour,
Je cherche le code qui me permet de recupérer la liste des fichiers
contenu
Bonjour Voici une façon de faire (à adapter) avec FileSearch (il y a d'autres méthodes plus élaborées) Sub ChercheLesFichiers() With Application.FileSearch .NewSearch .LookIn = "C:DOC" .SearchSubFolders = False .FileType = msoFileTypeAllFiles .Execute msoSortByFileName, msoSortOrderAscending If .FoundFiles.Count <> 0 Then For i = 1 To .FoundFiles.Count Cells(i, 1) = .FoundFiles(i) Next i Else MsgBox "Pas de fichier trouvé" End If End With End Sub
Cordialement Pascal
"salut07" a écrit dans le message de news:%
Bonjour,
Je cherche le code qui me permet de recupérer la liste des fichiers contenu
