Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Nom des dossiers et fichiers

Nom des dossiers et fichiers

8 réponses
Avatar
sharmi
Bonjour,
Est il possible de r=E9cup=E9rer dans word ou excel =E0 partir=20
d'un repertoire du disque, le nom des sous repertoires=20
ainsi des fichiers inclus ?
Merci par avance.
En attendant, je continue mes recherches.
sharmi
Signaler un problème avec ce contenu

8 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
Denis Michon
Bonjour Shami,


Voici une procédure de Laurent Longre :

Dans la procédure "Test", Définis la ligne de code suivante : " Recurse "i:" ", le répertoire source à partir duquel
tu désires obtenir la liste des fichiers et de tous les sous-répertoires et leurs fichiers.


'--------------------------------
Sub Test()
ReDim Arr(1 To 1)
NbFichiers = 0
Recurse "i:"
Application.ScreenUpdating = False
With Range("A1").Resize(NbFichiers)
.Value = Application.Transpose(Arr)
.Sort [A1]
.EntireColumn.AutoFit
End With
End Sub

Private Sub Recurse(ByVal Chemin As String)
Dim hFindfile As Long
hFindfile = FindFirstFileA(Chemin & "*.*", FileFindData)
If Chemin <> "D:" Then
FindNextFileA hFindfile, FileFindData
If FindNextFileA(hFindfile, FileFindData) = 0 Then
FindClose hFindfile
Exit Sub
End If
End If
Do
Fichier = Chemin & Left$(FileFindData.cFileName, _
InStr(1, FileFindData.cFileName, vbNullChar) - 1)
If GetAttr(Fichier) And vbDirectory Then
Recurse Fichier & ""
ElseIf Fichier Like Masque Then
NbFichiers = NbFichiers + 1
ReDim Preserve Arr(1 To NbFichiers)
Arr(NbFichiers) = Fichier
End If
Loop While FindNextFileA(hFindfile, FileFindData)
FindClose hFindfile
End Sub
'--------------------------------


Salutations!


"sharmi" a écrit dans le message de
news:2c9bf01c393e7$3ae6f990$
Bonjour,
Est il possible de récupérer dans word ou excel à partir
d'un repertoire du disque, le nom des sous repertoires
ainsi des fichiers inclus ?
Merci par avance.
En attendant, je continue mes recherches.
sharmi
Avatar
Herdet
Bonsoir Sharmi,
J'ai créé un programme qui lit le contenu complet d'un répertoire, sous
répertoires et fichiers avec la possibilité d'exporter le résultat dans un
fichier Excel formaté avec ou sans indentation des noms de fichiers et mode
plan jusqu'à 8 niveaux.
Si tu le souhaites, je peux te l'envoyer en boite aux lettres perso, le
fichier ZIP fait 88 ko
Cordialement
Robert Dezan


"sharmi" a écrit dans le message de
news: 2c9bf01c393e7$3ae6f990$
Bonjour,
Est il possible de récupérer dans word ou excel à partir
d'un repertoire du disque, le nom des sous repertoires
ainsi des fichiers inclus ?
Merci par avance.
En attendant, je continue mes recherches.
sharmi
Avatar
S.H.
Bonsoir,
ceci peut être utile aussi
http://perso.wanadoo.fr/frederic.sigonneau/code/Fichiers/ListeFichiersEtDossiers.txt
Amicalement
Sitting hoax
"Herdet" a écrit dans le message de
news:
Bonsoir Sharmi,
J'ai créé un programme qui lit le contenu complet d'un répertoire, sous
répertoires et fichiers avec la possibilité d'exporter le résultat dans un
fichier Excel formaté avec ou sans indentation des noms de fichiers et
mode

plan jusqu'à 8 niveaux.
Si tu le souhaites, je peux te l'envoyer en boite aux lettres perso, le
fichier ZIP fait 88 ko
Cordialement
Robert Dezan


"sharmi" a écrit dans le message de
news: 2c9bf01c393e7$3ae6f990$
Bonjour,
Est il possible de récupérer dans word ou excel à partir
d'un repertoire du disque, le nom des sous repertoires
ainsi des fichiers inclus ?
Merci par avance.
En attendant, je continue mes recherches.
sharmi




Avatar
Herdet
Salut Laurent,
On ne peut ignorer les codes sources compilés par Frédéric mais suite à un
besoin perso et pour des collègues dans mon entreprise, je suis allé un peu
plus loin dans l'extraction des infos, l'export , l'indentation et le
formatage des résultats.
Amitiés
Robert

"S.H." a écrit dans le message de news:

Bonsoir,
ceci peut être utile aussi

http://perso.wanadoo.fr/frederic.sigonneau/code/Fichiers/ListeFichiersEtDoss

iers.txt
Amicalement
Sitting hoax
"Herdet" a écrit dans le message de
news:
Bonsoir Sharmi,
J'ai créé un programme qui lit le contenu complet d'un répertoire, sous
répertoires et fichiers avec la possibilité d'exporter le résultat dans
un


fichier Excel formaté avec ou sans indentation des noms de fichiers et
mode

plan jusqu'à 8 niveaux.
Si tu le souhaites, je peux te l'envoyer en boite aux lettres perso, le
fichier ZIP fait 88 ko
Cordialement
Robert Dezan


"sharmi" a écrit dans le message
de


news: 2c9bf01c393e7$3ae6f990$
Bonjour,
Est il possible de récupérer dans word ou excel à partir
d'un repertoire du disque, le nom des sous repertoires
ainsi des fichiers inclus ?
Merci par avance.
En attendant, je continue mes recherches.
sharmi








Avatar
S.H.
Ah mais c'est Robert !
Je n'avais même pas remarqué ton adresse dans le message:-)
si j'avais su que c'était toi,
je ne me serais même pas permis de te signaler ce que je sais que tu sais
déjà .
Ca fait toujours une occasion de se passer le bonjour.
PS : L'Archos tourne bien ?;-))
Amicalement
Sitting Hoax


"Herdet" a écrit dans le message de
news:
Salut Laurent,
On ne peut ignorer les codes sources compilés par Frédéric mais suite à un
besoin perso et pour des collègues dans mon entreprise, je suis allé un
peu

plus loin dans l'extraction des infos, l'export , l'indentation et le
formatage des résultats.
Amitiés
Robert

"S.H." a écrit dans le message de news:

Bonsoir,
ceci peut être utile aussi



http://perso.wanadoo.fr/frederic.sigonneau/code/Fichiers/ListeFichiersEtDoss

iers.txt
Amicalement
Sitting hoax
"Herdet" a écrit dans le message de
news:
Bonsoir Sharmi,
J'ai créé un programme qui lit le contenu complet d'un répertoire,
sous



répertoires et fichiers avec la possibilité d'exporter le résultat
dans



un
fichier Excel formaté avec ou sans indentation des noms de fichiers et
mode

plan jusqu'à 8 niveaux.
Si tu le souhaites, je peux te l'envoyer en boite aux lettres perso,
le



fichier ZIP fait 88 ko
Cordialement
Robert Dezan


"sharmi" a écrit dans le message
de


news: 2c9bf01c393e7$3ae6f990$
Bonjour,
Est il possible de récupérer dans word ou excel à partir
d'un repertoire du disque, le nom des sous repertoires
ainsi des fichiers inclus ?
Merci par avance.
En attendant, je continue mes recherches.
sharmi












Avatar
Misange
Bonjour Robert
Et tu l'as même mis sur excelabo ce fichier :-)
http://disciplus.simplex.free.fr/classeursxl/rd-contenurepertoires.zip

Misange migrateuse http://www.excelabo.net
mail : http://cerbermail.com/?k5Q8Dh2mta


Herdet wrote:
Bonsoir Sharmi,
J'ai créé un programme qui lit le contenu complet d'un répertoire, sous
répertoires et fichiers avec la possibilité d'exporter le résultat dans un
fichier Excel formaté avec ou sans indentation des noms de fichiers et mode
plan jusqu'à 8 niveaux.
Si tu le souhaites, je peux te l'envoyer en boite aux lettres perso, le
fichier ZIP fait 88 ko
Cordialement
Robert Dezan


"sharmi" a écrit dans le message de
news: 2c9bf01c393e7$3ae6f990$
Bonjour,
Est il possible de récupérer dans word ou excel à partir
d'un repertoire du disque, le nom des sous repertoires
ainsi des fichiers inclus ?
Merci par avance.
En attendant, je continue mes recherches.
sharmi




Avatar
Misange
Eh ! tu peux causer de sa signature ! la tienne est pas vachement plus
explicite !
coucou
Misange migrateuse http://www.excelabo.net
mail : http://cerbermail.com/?k5Q8Dh2mta


S.H. wrote:
Ah mais c'est Robert !
Je n'avais même pas remarqué ton adresse dans le message:-)
si j'avais su que c'était toi,
je ne me serais même pas permis de te signaler ce que je sais que tu sais
déjà .
Ca fait toujours une occasion de se passer le bonjour.
PS : L'Archos tourne bien ?;-))
Amicalement
Sitting Hoax


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

Salut Laurent,
On ne peut ignorer les codes sources compilés par Frédéric mais suite à un
besoin perso et pour des collègues dans mon entreprise, je suis allé un


peu

plus loin dans l'extraction des infos, l'export , l'indentation et le
formatage des résultats.
Amitiés
Robert

"S.H." a écrit dans le message de news:


Bonsoir,
ceci peut être utile aussi



http://perso.wanadoo.fr/frederic.sigonneau/code/Fichiers/ListeFichiersEtDoss


iers.txt

Amicalement
Sitting hoax
"Herdet" a écrit dans le message de
news:

Bonsoir Sharmi,
J'ai créé un programme qui lit le contenu complet d'un répertoire,




sous

répertoires et fichiers avec la possibilité d'exporter le résultat




dans

un

fichier Excel formaté avec ou sans indentation des noms de fichiers et


mode

plan jusqu'à 8 niveaux.
Si tu le souhaites, je peux te l'envoyer en boite aux lettres perso,




le

fichier ZIP fait 88 ko
Cordialement
Robert Dezan


"sharmi" a écrit dans le message



de

news: 2c9bf01c393e7$3ae6f990$
Bonjour,
Est il possible de récupérer dans word ou excel à partir
d'un repertoire du disque, le nom des sous repertoires
ainsi des fichiers inclus ?
Merci par avance.
En attendant, je continue mes recherches.
sharmi















Avatar
S.H.
Robert a dû relire quelques "Tintin", (Hergé RG:-))))
quant à moi, je vais remettre ma signature, qui est un peu plus explicite:-)
bisous
Amicalement
Sitting Hoax (BM) ;-)))

"Misange" a écrit dans le message de
news:%
Eh ! tu peux causer de sa signature ! la tienne est pas vachement plus
explicite !
coucou
Misange migrateuse http://www.excelabo.net
mail : http://cerbermail.com/?k5Q8Dh2mta


S.H. wrote:
Ah mais c'est Robert !
Je n'avais même pas remarqué ton adresse dans le message:-)
si j'avais su que c'était toi,
je ne me serais même pas permis de te signaler ce que je sais que tu
sais


déjà .
Ca fait toujours une occasion de se passer le bonjour.
PS : L'Archos tourne bien ?;-))
Amicalement
Sitting Hoax


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

Salut Laurent,
On ne peut ignorer les codes sources compilés par Frédéric mais suite à
un



besoin perso et pour des collègues dans mon entreprise, je suis allé un


peu

plus loin dans l'extraction des infos, l'export , l'indentation et le
formatage des résultats.
Amitiés
Robert

"S.H." a écrit dans le message de news:


Bonsoir,
ceci peut être utile aussi





http://perso.wanadoo.fr/frederic.sigonneau/code/Fichiers/ListeFichiersEtDoss



iers.txt

Amicalement
Sitting hoax
"Herdet" a écrit dans le message de
news:

Bonsoir Sharmi,
J'ai créé un programme qui lit le contenu complet d'un répertoire,




sous

répertoires et fichiers avec la possibilité d'exporter le résultat




dans

un

fichier Excel formaté avec ou sans indentation des noms de fichiers et


mode

plan jusqu'à 8 niveaux.
Si tu le souhaites, je peux te l'envoyer en boite aux lettres perso,




le

fichier ZIP fait 88 ko
Cordialement
Robert Dezan


"sharmi" a écrit dans le message



de

news: 2c9bf01c393e7$3ae6f990$
Bonjour,
Est il possible de récupérer dans word ou excel à partir
d'un repertoire du disque, le nom des sous repertoires
ainsi des fichiers inclus ?
Merci par avance.
En attendant, je continue mes recherches.
sharmi