Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Listes des fichiers dans les sous répertoires

Listes des fichiers dans les sous répertoires

6 réponses
Avatar
bruno
Bonsoir à tous,
je cherche à créer par une macro la liste des fichiers se trouvant dans les
sous répertoires de ma feuille Excel. Je ne sais vraiment pas par où
commencer.
Merci de me donner une piste :-))
Signaler un problème avec ce contenu

6 réponses

Supprimer
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
Avatar
Pounet95
Bonsoir,
Voir du côté de FILESEARCH dans l'aide de VBA
sinon sur le site dans la signature
Bonne recherche

--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/


"bruno" a écrit dans le message de news:
41b9fa2a$0$31919$
Bonsoir à tous,
je cherche à créer par une macro la liste des fichiers se trouvant dans
les
sous répertoires de ma feuille Excel. Je ne sais vraiment pas par où
commencer.
Merci de me donner une piste :-))




Avatar
bruno
Je te remercie, je vais étudier ça.
Bonne soirée.
:-)

"Pounet95" a écrit dans le message de news:

| Bonsoir,
| Voir du côté de FILESEARCH dans l'aide de VBA
| sinon sur le site dans la signature
| Bonne recherche
|
| --
| Pounet95
| on trouve tout ( ou presque ) http://www.excelabo.net/
|
|
| "bruno" a écrit dans le message de news:
| 41b9fa2a$0$31919$
| > Bonsoir à tous,
| > je cherche à créer par une macro la liste des fichiers se trouvant dans
| > les
| > sous répertoires de ma feuille Excel. Je ne sais vraiment pas par où
| > commencer.
| > Merci de me donner une piste :-))
| >
| >
|
Avatar
Andréa Parker
Bonsoir

un jour j'ai récupéré sur le forum ceci
================================================== Sub ContenuDossier()
Dim Chemin As String, TypeFichier As String
Dim TableauFichier() As String, I As Long
Dim Fichier As String

I = 0
Chemin = "C:winntsystem32"
TypeFichier = "*.dll"
Fichier = Dir(Chemin & "" & TypeFichier)
Do While Fichier <> ""
I = I + 1
ReDim Preserve TableauFichier(I + 1)
TableauFichier(I) = Fichier
Fichier = Dir
Loop
If I > 0 Then
'Coller le contenu du tablau dans la feuil1
With Worksheets("feuil1")
.Range(.Range("A1"), Cells(UBound(TableauFichier), "a")) = _
Application.WorksheetFunction.Transpose(TableauFichier)
End With
'obtenir le nombre de fichier que contient le tableau.
MsgBox UBound(TableauFichier)
Erase TableauFichier
End If
End Sub
===========================
bruno a écrit:
Bonsoir à tous,
je cherche à créer par une macro la liste des fichiers se trouvant dans les
sous répertoires de ma feuille Excel. Je ne sais vraiment pas par où
commencer.
Merci de me donner une piste :-))




Avatar
Monique Brunel
Bonjour,

En voilà deux, tu y trouveras sans doute ton bonheur
http://www.excelabo.net/xl/repertoires.php
http://frederic.sigonneau.free.fr/Fichiers.htm


Bonsoir à tous,
je cherche à créer par une macro la liste des fichiers se trouvant dans les
sous répertoires de ma feuille Excel. Je ne sais vraiment pas par où
commencer.
Merci de me donner une piste :-))




--
Amicalement,
Monique
en campagne pour des sites conformes aux standards et accessibles...
http://www.webmaster-hub.com/ et http://www.opquast.org/
avec des navigateurs évolutifs http://www.mozilla-europe.org/
Pour les amateurs d'athlétisme : http://users.skynet.be/osga/

Avatar
bruno
Merci Andréa,
C'est la commande Dir le secret de l'opération ! Cela complète ce que j'ai
trouvé par ailleurs.

Amicalement.


"Andréa Parker" a écrit dans le message
de news:
| Bonsoir
|
| un jour j'ai récupéré sur le forum ceci
| ================================================== | Sub ContenuDossier()
| Dim Chemin As String, TypeFichier As String
| Dim TableauFichier() As String, I As Long
| Dim Fichier As String
|
| I = 0
| Chemin = "C:winntsystem32"
| TypeFichier = "*.dll"
| Fichier = Dir(Chemin & "" & TypeFichier)
| Do While Fichier <> ""
| I = I + 1
| ReDim Preserve TableauFichier(I + 1)
| TableauFichier(I) = Fichier
| Fichier = Dir
| Loop
| If I > 0 Then
| 'Coller le contenu du tablau dans la feuil1
| With Worksheets("feuil1")
| .Range(.Range("A1"), Cells(UBound(TableauFichier), "a")) = _
| Application.WorksheetFunction.Transpose(TableauFichier)
| End With
| 'obtenir le nombre de fichier que contient le tableau.
| MsgBox UBound(TableauFichier)
| Erase TableauFichier
| End If
| End Sub
| =========================== |
| bruno a écrit:
| > Bonsoir à tous,
| > je cherche à créer par une macro la liste des fichiers se trouvant dans
les
| > sous répertoires de ma feuille Excel. Je ne sais vraiment pas par où
| > commencer.
| > Merci de me donner une piste :-))
| >
| >
|
Avatar
bruno
Merci Monique,
Effectivement, ces 2 sites sont une vraie mine d'informations.
Amicalement.

"Monique Brunel" a écrit dans le message de news:
%
| Bonjour,
|
| En voilà deux, tu y trouveras sans doute ton bonheur
| http://www.excelabo.net/xl/repertoires.php
| http://frederic.sigonneau.free.fr/Fichiers.htm
|
|
| > Bonsoir à tous,
| > je cherche à créer par une macro la liste des fichiers se trouvant dans
les
| > sous répertoires de ma feuille Excel. Je ne sais vraiment pas par où
| > commencer.
| > Merci de me donner une piste :-))
| >
| >
|
| --
| Amicalement,
| Monique
| en campagne pour des sites conformes aux standards et accessibles...
| http://www.webmaster-hub.com/ et http://www.opquast.org/
| avec des navigateurs évolutifs http://www.mozilla-europe.org/
| Pour les amateurs d'athlétisme : http://users.skynet.be/osga/