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 lister les fichiers d'un repertoire

lister les fichiers d'un repertoire

2 réponses
Avatar
gilles
bonjour à tous,
j'ai honteusement copié le code suivant sur le site de MISANGE
Sub zaza()
Set Fs = Application.Filesearch
With Fs
.LookIn = "D:ADAPTATION système LMP"
'DataMicrosoftExcel ""
.filename = "*"
.Execute
For I = 1 To .FoundFiles.Count
MsgBox .FoundFiles(I)
Next I
If .FoundFiles.Count = 0 Then
MsgBox "Aucun fichier n'a été trouvé."
End If
End With
End Sub

Le code fait bien apparaitre les msg correspondants aux fichiers, y compris
word, mais ne les écrit pas sur la page (ce que je cherche à faire)
si kekun voit le code à ajouter pour que ces noms de fichiers s'inscrivent
sur une feuille du classeur, je lui en serai éternellement reconnaissant!!!
merci
à+

--
en VBA aussi, ne remettons pas au lendemain ce qu'on peut faire aujourd'hui,
mais à chaque jour suffit sa peine...
Signaler un problème avec ce contenu

2 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
papou
Bonjour
Tu remplaces
MsgBox .FoundFiles(I)
Par (par exemple)

Activesheet.Cells(I,1).Value = .FoundFiles(I)

Cordialement
Pascal

"gilles" a écrit dans le message de
news:
bonjour à tous,
j'ai honteusement copié le code suivant sur le site de MISANGE
Sub zaza()
Set Fs = Application.Filesearch
With Fs
.LookIn = "D:ADAPTATION système LMP"
'DataMicrosoftExcel ""
.filename = "*"
.Execute
For I = 1 To .FoundFiles.Count
MsgBox .FoundFiles(I)
Next I
If .FoundFiles.Count = 0 Then
MsgBox "Aucun fichier n'a été trouvé."
End If
End With
End Sub

Le code fait bien apparaitre les msg correspondants aux fichiers, y
compris

word, mais ne les écrit pas sur la page (ce que je cherche à faire)
si kekun voit le code à ajouter pour que ces noms de fichiers s'inscrivent
sur une feuille du classeur, je lui en serai éternellement
reconnaissant!!!

merci
à+

--
en VBA aussi, ne remettons pas au lendemain ce qu'on peut faire
aujourd'hui,

mais à chaque jour suffit sa peine...


Avatar
gilles
Bonjour PASCAL
merci
j'essaie ça et je demande à dieu de te le rendre au centuple
à+
gilles
--
en VBA aussi, ne remettons pas au lendemain ce qu'on peut faire aujourd'hui,
mais à chaque jour suffit sa peine...



Bonjour
Tu remplaces
MsgBox .FoundFiles(I)
Par (par exemple)

Activesheet.Cells(I,1).Value = .FoundFiles(I)

Cordialement
Pascal

"gilles" a écrit dans le message de
news:
bonjour à tous,
j'ai honteusement copié le code suivant sur le site de MISANGE
Sub zaza()
Set Fs = Application.Filesearch
With Fs
.LookIn = "D:ADAPTATION système LMP"
'DataMicrosoftExcel ""
.filename = "*"
.Execute
For I = 1 To .FoundFiles.Count
MsgBox .FoundFiles(I)
Next I
If .FoundFiles.Count = 0 Then
MsgBox "Aucun fichier n'a été trouvé."
End If
End With
End Sub

Le code fait bien apparaitre les msg correspondants aux fichiers, y
compris

word, mais ne les écrit pas sur la page (ce que je cherche à faire)
si kekun voit le code à ajouter pour que ces noms de fichiers s'inscrivent
sur une feuille du classeur, je lui en serai éternellement
reconnaissant!!!

merci
à+

--
en VBA aussi, ne remettons pas au lendemain ce qu'on peut faire
aujourd'hui,

mais à chaque jour suffit sa peine...