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
Ellimac
Bonjour,
Dans un module standard : Sub Toto() With Application.FileSearch .LookIn = "C:Stage" .SearchSubFolders = True .FileName = "*.xl*" If .Execute() > 0 Then For i = 1 To .FoundFiles.Count Cells(i, 1) = .FoundFiles(i) Next i Else MsgBox "Aucun fichier n'a été trouvé." End If End With End Sub
Camille
-----Message d'origine----- Bonjour, J'aimerais imprimer l'intitulé des fichiers d'un répertoire, est ce possible ? .
Bonjour,
Dans un module standard :
Sub Toto()
With Application.FileSearch
.LookIn = "C:Stage"
.SearchSubFolders = True
.FileName = "*.xl*"
If .Execute() > 0 Then
For i = 1 To .FoundFiles.Count
Cells(i, 1) = .FoundFiles(i)
Next i
Else
MsgBox "Aucun fichier n'a été trouvé."
End If
End With
End Sub
Camille
-----Message d'origine-----
Bonjour,
J'aimerais imprimer l'intitulé des fichiers d'un
répertoire, est ce possible ?
.
Dans un module standard : Sub Toto() With Application.FileSearch .LookIn = "C:Stage" .SearchSubFolders = True .FileName = "*.xl*" If .Execute() > 0 Then For i = 1 To .FoundFiles.Count Cells(i, 1) = .FoundFiles(i) Next i Else MsgBox "Aucun fichier n'a été trouvé." End If End With End Sub
Camille
-----Message d'origine----- Bonjour, J'aimerais imprimer l'intitulé des fichiers d'un répertoire, est ce possible ? .
David
Génial Merci beaucoup
-----Message d'origine----- Bonjour,
Dans un module standard : Sub Toto() With Application.FileSearch .LookIn = "C:Stage" .SearchSubFolders = True .FileName = "*.xl*" If .Execute() > 0 Then For i = 1 To .FoundFiles.Count Cells(i, 1) = .FoundFiles(i) Next i Else MsgBox "Aucun fichier n'a été trouvé." End If End With End Sub
Camille
-----Message d'origine----- Bonjour, J'aimerais imprimer l'intitulé des fichiers d'un répertoire, est ce possible ? .
.
Génial
Merci beaucoup
-----Message d'origine-----
Bonjour,
Dans un module standard :
Sub Toto()
With Application.FileSearch
.LookIn = "C:Stage"
.SearchSubFolders = True
.FileName = "*.xl*"
If .Execute() > 0 Then
For i = 1 To .FoundFiles.Count
Cells(i, 1) = .FoundFiles(i)
Next i
Else
MsgBox "Aucun fichier n'a été trouvé."
End If
End With
End Sub
Camille
-----Message d'origine-----
Bonjour,
J'aimerais imprimer l'intitulé des fichiers d'un
répertoire, est ce possible ?
.
Dans un module standard : Sub Toto() With Application.FileSearch .LookIn = "C:Stage" .SearchSubFolders = True .FileName = "*.xl*" If .Execute() > 0 Then For i = 1 To .FoundFiles.Count Cells(i, 1) = .FoundFiles(i) Next i Else MsgBox "Aucun fichier n'a été trouvé." End If End With End Sub
Camille
-----Message d'origine----- Bonjour, J'aimerais imprimer l'intitulé des fichiers d'un répertoire, est ce possible ? .
