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

liste fichiers excel

9 réponses
Avatar
stephprod
Bonjour,

je souhaiterais avoir un code me permettant de récuperer la liste des
fichiers excel sur une feuille de calcul.
par exemple:
donc en a1 le chemin du fichier
en a2 le nom du fichier


j'ai trouvé sur le net ce code
mais il me cherche tous les fichiers et non seulement les excel

QUELQU'UN A UNE IDEE?

merci d'avance

Private Sub test()
ListFilesInFolder "w:\", True
End Sub


' Option Explicit
Sub ListFilesInFolder(strFolderName As String, bIncludeSubfolders As
Boolean)
' adapté de Ole P Erlandsen
' necessite d'activer la reference Microsoft Scripting RunTime
Static FSO As FileSystemObject
Dim oSourceFolder As Scripting.Folder
Dim oSubFolder As Scripting.Folder
Dim oFile As Scripting.File
Static wksDest As Worksheet
Static iRow As Long
Static bNotFirstTime As Boolean

If Not bNotFirstTime Then
Set wksDest = ActiveSheet
Set FSO = CreateObject("Scripting.FileSystemObject")
wksDest.Cells(1, 1) = "Parent folder"
wksDest.Cells(1, 2) = "Full path"
wksDest.Cells(1, 3) = "File name"
wksDest.Cells(1, 4) = "Size"
wksDest.Cells(1, 5) = "Type"
wksDest.Cells(1, 6) = "Date created"
wksDest.Cells(1, 7) = "Date last modified"
wksDest.Cells(1, 8) = "Date last accessed"
wksDest.Cells(1, 9) = "Attributes"
wksDest.Cells(1, 10) = "Short path"
wksDest.Cells(1, 11) = "Short name"

iRow = 2
bNotFirstTime = True
End If
Set oSourceFolder = FSO.GetFolder(strFolderName)
For Each oFile In oSourceFolder.Files
wksDest.Cells(iRow, 1) = oFile.ParentFolder.Path
wksDest.Cells(iRow, 2) = oFile.Path
wksDest.Cells(iRow, 3) = oFile.Name
wksDest.Cells(iRow, 4) = oFile.Size
wksDest.Cells(iRow, 5) = oFile.Type
wksDest.Cells(iRow, 6) = oFile.DateCreated
wksDest.Cells(iRow, 7) = oFile.DateLastModified
wksDest.Cells(iRow, 8) = oFile.DateLastAccessed
wksDest.Cells(iRow, 9) = oFile.Attributes
wksDest.Cells(iRow, 10) = oFile.ShortPath
wksDest.Cells(iRow, 11) = oFile.ShortName

iRow = iRow + 1
Next oFile

For Each oSubFolder In oSourceFolder.SubFolders
' On peut mettre ici un traitement spécifique pour les dossiers
Next oSubFolder

If bIncludeSubfolders Then
For Each oSubFolder In oSourceFolder.SubFolders
ListFilesInFolder oSubFolder.Path, True
Next oSubFolder
End If

End Sub
Signaler un problème avec ce contenu

9 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
stephprod
excusez moi j'ai oublié récupérer les fichiers excel d'un répertoire ainsi
que ses sous répertoires
si possible en pouvant personaliser le chemin de récup



"stephprod" a écrit dans le message de news:
47c5950e$0$896$
Bonjour,

je souhaiterais avoir un code me permettant de récuperer la liste des
fichiers excel sur une feuille de calcul.
par exemple:
donc en a1 le chemin du fichier
en a2 le nom du fichier


j'ai trouvé sur le net ce code
mais il me cherche tous les fichiers et non seulement les excel

QUELQU'UN A UNE IDEE?

merci d'avance

Private Sub test()
ListFilesInFolder "w:", True
End Sub


' Option Explicit
Sub ListFilesInFolder(strFolderName As String, bIncludeSubfolders As
Boolean)
' adapté de Ole P Erlandsen
' necessite d'activer la reference Microsoft Scripting RunTime
Static FSO As FileSystemObject
Dim oSourceFolder As Scripting.Folder
Dim oSubFolder As Scripting.Folder
Dim oFile As Scripting.File
Static wksDest As Worksheet
Static iRow As Long
Static bNotFirstTime As Boolean

If Not bNotFirstTime Then
Set wksDest = ActiveSheet
Set FSO = CreateObject("Scripting.FileSystemObject")
wksDest.Cells(1, 1) = "Parent folder"
wksDest.Cells(1, 2) = "Full path"
wksDest.Cells(1, 3) = "File name"
wksDest.Cells(1, 4) = "Size"
wksDest.Cells(1, 5) = "Type"
wksDest.Cells(1, 6) = "Date created"
wksDest.Cells(1, 7) = "Date last modified"
wksDest.Cells(1, 8) = "Date last accessed"
wksDest.Cells(1, 9) = "Attributes"
wksDest.Cells(1, 10) = "Short path"
wksDest.Cells(1, 11) = "Short name"

iRow = 2
bNotFirstTime = True
End If
Set oSourceFolder = FSO.GetFolder(strFolderName)
For Each oFile In oSourceFolder.Files
wksDest.Cells(iRow, 1) = oFile.ParentFolder.Path
wksDest.Cells(iRow, 2) = oFile.Path
wksDest.Cells(iRow, 3) = oFile.Name
wksDest.Cells(iRow, 4) = oFile.Size
wksDest.Cells(iRow, 5) = oFile.Type
wksDest.Cells(iRow, 6) = oFile.DateCreated
wksDest.Cells(iRow, 7) = oFile.DateLastModified
wksDest.Cells(iRow, 8) = oFile.DateLastAccessed
wksDest.Cells(iRow, 9) = oFile.Attributes
wksDest.Cells(iRow, 10) = oFile.ShortPath
wksDest.Cells(iRow, 11) = oFile.ShortName

iRow = iRow + 1
Next oFile

For Each oSubFolder In oSourceFolder.SubFolders
' On peut mettre ici un traitement spécifique pour les dossiers
Next oSubFolder

If bIncludeSubfolders Then
For Each oSubFolder In oSourceFolder.SubFolders
ListFilesInFolder oSubFolder.Path, True
Next oSubFolder
End If

End Sub








Avatar
JB
Bonjour,

http://boisgontierjacques.free.fr/pages_site/GestionRepertoire.htm#Arboresce nceDisqueDur

http://boisgontierjacques.free.fr/fichiers/ArborescenceRepertoire.xls

JB


On 27 fév, 17:53, "stephprod" wrote:
excusez moi j'ai oublié récupérer les fichiers excel d'un répertoi re ainsi
que ses sous répertoires
si possible en pouvant personaliser le chemin de récup

"stephprod" a écrit dans le message de news:
47c5950e$0$896$



Bonjour,

je souhaiterais avoir un code me permettant de récuperer la liste des
fichiers excel sur une feuille de calcul.
par exemple:
donc en a1 le chemin du fichier
en a2 le nom du fichier

j'ai trouvé sur le net ce code
mais il me cherche tous les fichiers et non seulement les excel

QUELQU'UN A UNE IDEE?

merci d'avance

Private Sub test()
 ListFilesInFolder "w:", True
End Sub

' Option Explicit
Sub ListFilesInFolder(strFolderName As String, bIncludeSubfolders As
Boolean)
 ' adapté de Ole P Erlandsen
 ' necessite d'activer la reference Microsoft Scripting RunTime
 Static FSO As FileSystemObject
 Dim oSourceFolder As Scripting.Folder
 Dim oSubFolder As Scripting.Folder
 Dim oFile As Scripting.File
 Static wksDest As Worksheet
 Static iRow As Long
 Static bNotFirstTime As Boolean

 If Not bNotFirstTime Then
   Set wksDest = ActiveSheet
   Set FSO = CreateObject("Scripting.FileSystemObject")
   wksDest.Cells(1, 1) = "Parent folder"
   wksDest.Cells(1, 2) = "Full path"
   wksDest.Cells(1, 3) = "File name"
   wksDest.Cells(1, 4) = "Size"
   wksDest.Cells(1, 5) = "Type"
   wksDest.Cells(1, 6) = "Date created"
   wksDest.Cells(1, 7) = "Date last modified"
   wksDest.Cells(1, 8) = "Date last accessed"
   wksDest.Cells(1, 9) = "Attributes"
   wksDest.Cells(1, 10) = "Short path"
   wksDest.Cells(1, 11) = "Short name"

   iRow = 2
   bNotFirstTime = True
 End If
 Set oSourceFolder = FSO.GetFolder(strFolderName)
 For Each oFile In oSourceFolder.Files
   wksDest.Cells(iRow, 1) = oFile.ParentFolder.Path
   wksDest.Cells(iRow, 2) = oFile.Path
   wksDest.Cells(iRow, 3) = oFile.Name
   wksDest.Cells(iRow, 4) = oFile.Size
   wksDest.Cells(iRow, 5) = oFile.Type
   wksDest.Cells(iRow, 6) = oFile.DateCreated
   wksDest.Cells(iRow, 7) = oFile.DateLastModified
   wksDest.Cells(iRow, 8) = oFile.DateLastAccessed
   wksDest.Cells(iRow, 9) = oFile.Attributes
   wksDest.Cells(iRow, 10) = oFile.ShortPath
   wksDest.Cells(iRow, 11) = oFile.ShortName

   iRow = iRow + 1
 Next oFile

 For Each oSubFolder In oSourceFolder.SubFolders
   ' On peut mettre ici un traitement spécifique pour les dossiers
 Next oSubFolder

 If bIncludeSubfolders Then
   For Each oSubFolder In oSourceFolder.SubFolders
     ListFilesInFolder oSubFolder.Path, True
   Next oSubFolder
 End If

End Sub- Masquer le texte des messages précédents -


- Afficher le texte des messages précédents -



Avatar
stephprod
merci JB mais il ne check pas les sous répertoires!!!


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

Bonjour,

http://boisgontierjacques.free.fr/pages_site/GestionRepertoire.htm#ArborescenceDisqueDur

http://boisgontierjacques.free.fr/fichiers/ArborescenceRepertoire.xls

JB


On 27 fév, 17:53, "stephprod" wrote:
excusez moi j'ai oublié récupérer les fichiers excel d'un répertoire ainsi
que ses sous répertoires
si possible en pouvant personaliser le chemin de récup

"stephprod" a écrit dans le message de news:
47c5950e$0$896$



Bonjour,

je souhaiterais avoir un code me permettant de récuperer la liste des
fichiers excel sur une feuille de calcul.
par exemple:
donc en a1 le chemin du fichier
en a2 le nom du fichier

j'ai trouvé sur le net ce code
mais il me cherche tous les fichiers et non seulement les excel

QUELQU'UN A UNE IDEE?

merci d'avance

Private Sub test()
ListFilesInFolder "w:", True
End Sub

' Option Explicit
Sub ListFilesInFolder(strFolderName As String, bIncludeSubfolders As
Boolean)
' adapté de Ole P Erlandsen
' necessite d'activer la reference Microsoft Scripting RunTime
Static FSO As FileSystemObject
Dim oSourceFolder As Scripting.Folder
Dim oSubFolder As Scripting.Folder
Dim oFile As Scripting.File
Static wksDest As Worksheet
Static iRow As Long
Static bNotFirstTime As Boolean

If Not bNotFirstTime Then
Set wksDest = ActiveSheet
Set FSO = CreateObject("Scripting.FileSystemObject")
wksDest.Cells(1, 1) = "Parent folder"
wksDest.Cells(1, 2) = "Full path"
wksDest.Cells(1, 3) = "File name"
wksDest.Cells(1, 4) = "Size"
wksDest.Cells(1, 5) = "Type"
wksDest.Cells(1, 6) = "Date created"
wksDest.Cells(1, 7) = "Date last modified"
wksDest.Cells(1, 8) = "Date last accessed"
wksDest.Cells(1, 9) = "Attributes"
wksDest.Cells(1, 10) = "Short path"
wksDest.Cells(1, 11) = "Short name"

iRow = 2
bNotFirstTime = True
End If
Set oSourceFolder = FSO.GetFolder(strFolderName)
For Each oFile In oSourceFolder.Files
wksDest.Cells(iRow, 1) = oFile.ParentFolder.Path
wksDest.Cells(iRow, 2) = oFile.Path
wksDest.Cells(iRow, 3) = oFile.Name
wksDest.Cells(iRow, 4) = oFile.Size
wksDest.Cells(iRow, 5) = oFile.Type
wksDest.Cells(iRow, 6) = oFile.DateCreated
wksDest.Cells(iRow, 7) = oFile.DateLastModified
wksDest.Cells(iRow, 8) = oFile.DateLastAccessed
wksDest.Cells(iRow, 9) = oFile.Attributes
wksDest.Cells(iRow, 10) = oFile.ShortPath
wksDest.Cells(iRow, 11) = oFile.ShortName

iRow = iRow + 1
Next oFile

For Each oSubFolder In oSourceFolder.SubFolders
' On peut mettre ici un traitement spécifique pour les dossiers
Next oSubFolder

If bIncludeSubfolders Then
For Each oSubFolder In oSourceFolder.SubFolders
ListFilesInFolder oSubFolder.Path, True
Next oSubFolder
End If

End Sub- Masquer le texte des messages précédents -


- Afficher le texte des messages précédents -



Avatar
JB
On obtient bien toute l'arborescence (sous-répertoires et fichiers)

racine = "c:" donne l'arborescence du disque C:

http://cjoint.com/?cBsGi7dZpa

JB

On 27 fév, 18:14, "stephprod" wrote:
merci JB mais il ne check pas les sous répertoires!!!

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

Bonjour,

http://boisgontierjacques.free.fr/pages_site/GestionRepertoire.htm#Ar...

http://boisgontierjacques.free.fr/fichiers/ArborescenceRepertoire.xls

JB

On 27 fév, 17:53, "stephprod" wrote:



excusez moi j'ai oublié récupérer les fichiers excel d'un répert oire ainsi
que ses sous répertoires
si possible en pouvant personaliser le chemin de récup

"stephprod" a écrit dans le message de news:
47c5950e$0$896$

Bonjour,

je souhaiterais avoir un code me permettant de récuperer la liste de s
fichiers excel sur une feuille de calcul.
par exemple:
donc en a1 le chemin du fichier
en a2 le nom du fichier

j'ai trouvé sur le net ce code
mais il me cherche tous les fichiers et non seulement les excel

QUELQU'UN A UNE IDEE?

merci d'avance

Private Sub test()
ListFilesInFolder "w:", True
End Sub

' Option Explicit
Sub ListFilesInFolder(strFolderName As String, bIncludeSubfolders As
Boolean)
' adapté de Ole P Erlandsen
' necessite d'activer la reference Microsoft Scripting RunTime
Static FSO As FileSystemObject
Dim oSourceFolder As Scripting.Folder
Dim oSubFolder As Scripting.Folder
Dim oFile As Scripting.File
Static wksDest As Worksheet
Static iRow As Long
Static bNotFirstTime As Boolean

If Not bNotFirstTime Then
Set wksDest = ActiveSheet
Set FSO = CreateObject("Scripting.FileSystemObject")
wksDest.Cells(1, 1) = "Parent folder"
wksDest.Cells(1, 2) = "Full path"
wksDest.Cells(1, 3) = "File name"
wksDest.Cells(1, 4) = "Size"
wksDest.Cells(1, 5) = "Type"
wksDest.Cells(1, 6) = "Date created"
wksDest.Cells(1, 7) = "Date last modified"
wksDest.Cells(1, 8) = "Date last accessed"
wksDest.Cells(1, 9) = "Attributes"
wksDest.Cells(1, 10) = "Short path"
wksDest.Cells(1, 11) = "Short name"

iRow = 2
bNotFirstTime = True
End If
Set oSourceFolder = FSO.GetFolder(strFolderName)
For Each oFile In oSourceFolder.Files
wksDest.Cells(iRow, 1) = oFile.ParentFolder.Path
wksDest.Cells(iRow, 2) = oFile.Path
wksDest.Cells(iRow, 3) = oFile.Name
wksDest.Cells(iRow, 4) = oFile.Size
wksDest.Cells(iRow, 5) = oFile.Type
wksDest.Cells(iRow, 6) = oFile.DateCreated
wksDest.Cells(iRow, 7) = oFile.DateLastModified
wksDest.Cells(iRow, 8) = oFile.DateLastAccessed
wksDest.Cells(iRow, 9) = oFile.Attributes
wksDest.Cells(iRow, 10) = oFile.ShortPath
wksDest.Cells(iRow, 11) = oFile.ShortName

iRow = iRow + 1
Next oFile

For Each oSubFolder In oSourceFolder.SubFolders
' On peut mettre ici un traitement spécifique pour les dossiers
Next oSubFolder

If bIncludeSubfolders Then
For Each oSubFolder In oSourceFolder.SubFolders
ListFilesInFolder oSubFolder.Path, True
Next oSubFolder
End If

End Sub- Masquer le texte des messages précédents -


- Afficher le texte des messages précédents -- Masquer le texte des messages précédents -


- Afficher le texte des messages précédents -




Avatar
stephprod
je te remercie JB
j'ai bien compris le code mais ce que je veux c'est qu'il me donne que les
fichiers excel de ses sous répertoires!

en te remerciant par avance

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

On obtient bien toute l'arborescence (sous-répertoires et fichiers)

racine = "c:" donne l'arborescence du disque C:

http://cjoint.com/?cBsGi7dZpa

JB

On 27 fév, 18:14, "stephprod" wrote:
merci JB mais il ne check pas les sous répertoires!!!

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

Bonjour,

http://boisgontierjacques.free.fr/pages_site/GestionRepertoire.htm#Ar...

http://boisgontierjacques.free.fr/fichiers/ArborescenceRepertoire.xls

JB

On 27 fév, 17:53, "stephprod" wrote:



excusez moi j'ai oublié récupérer les fichiers excel d'un répertoire
ainsi
que ses sous répertoires
si possible en pouvant personaliser le chemin de récup

"stephprod" a écrit dans le message de news:
47c5950e$0$896$

Bonjour,

je souhaiterais avoir un code me permettant de récuperer la liste des
fichiers excel sur une feuille de calcul.
par exemple:
donc en a1 le chemin du fichier
en a2 le nom du fichier

j'ai trouvé sur le net ce code
mais il me cherche tous les fichiers et non seulement les excel

QUELQU'UN A UNE IDEE?

merci d'avance

Private Sub test()
ListFilesInFolder "w:", True
End Sub

' Option Explicit
Sub ListFilesInFolder(strFolderName As String, bIncludeSubfolders As
Boolean)
' adapté de Ole P Erlandsen
' necessite d'activer la reference Microsoft Scripting RunTime
Static FSO As FileSystemObject
Dim oSourceFolder As Scripting.Folder
Dim oSubFolder As Scripting.Folder
Dim oFile As Scripting.File
Static wksDest As Worksheet
Static iRow As Long
Static bNotFirstTime As Boolean

If Not bNotFirstTime Then
Set wksDest = ActiveSheet
Set FSO = CreateObject("Scripting.FileSystemObject")
wksDest.Cells(1, 1) = "Parent folder"
wksDest.Cells(1, 2) = "Full path"
wksDest.Cells(1, 3) = "File name"
wksDest.Cells(1, 4) = "Size"
wksDest.Cells(1, 5) = "Type"
wksDest.Cells(1, 6) = "Date created"
wksDest.Cells(1, 7) = "Date last modified"
wksDest.Cells(1, 8) = "Date last accessed"
wksDest.Cells(1, 9) = "Attributes"
wksDest.Cells(1, 10) = "Short path"
wksDest.Cells(1, 11) = "Short name"

iRow = 2
bNotFirstTime = True
End If
Set oSourceFolder = FSO.GetFolder(strFolderName)
For Each oFile In oSourceFolder.Files
wksDest.Cells(iRow, 1) = oFile.ParentFolder.Path
wksDest.Cells(iRow, 2) = oFile.Path
wksDest.Cells(iRow, 3) = oFile.Name
wksDest.Cells(iRow, 4) = oFile.Size
wksDest.Cells(iRow, 5) = oFile.Type
wksDest.Cells(iRow, 6) = oFile.DateCreated
wksDest.Cells(iRow, 7) = oFile.DateLastModified
wksDest.Cells(iRow, 8) = oFile.DateLastAccessed
wksDest.Cells(iRow, 9) = oFile.Attributes
wksDest.Cells(iRow, 10) = oFile.ShortPath
wksDest.Cells(iRow, 11) = oFile.ShortName

iRow = iRow + 1
Next oFile

For Each oSubFolder In oSourceFolder.SubFolders
' On peut mettre ici un traitement spécifique pour les dossiers
Next oSubFolder

If bIncludeSubfolders Then
For Each oSubFolder In oSourceFolder.SubFolders
ListFilesInFolder oSubFolder.Path, True
Next oSubFolder
End If

End Sub- Masquer le texte des messages précédents -


- Afficher le texte des messages précédents -- Masquer le texte des
messages précédents -


- Afficher le texte des messages précédents -




Avatar
JB
Il y a une instruction qui filtre les fichiers .xls:

If Right(f.Name, 4) = ".xls" Then

JB

On 27 fév, 18:42, "stephprod" wrote:
je te remercie JB
j'ai bien compris le code mais ce que je veux c'est qu'il me donne que les
fichiers excel de ses sous répertoires!

en te remerciant par avance

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

On obtient bien toute l'arborescence (sous-répertoires et fichiers)

racine = "c:" donne l'arborescence du disque C:

http://cjoint.com/?cBsGi7dZpa

JB

On 27 fév, 18:14, "stephprod" wrote:



merci JB mais il ne check pas les sous répertoires!!!

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

Bonjour,

http://boisgontierjacques.free.fr/pages_site/GestionRepertoire.htm#Ar...

http://boisgontierjacques.free.fr/fichiers/ArborescenceRepertoire.xls

JB

On 27 fév, 17:53, "stephprod" wrote:

excusez moi j'ai oublié récupérer les fichiers excel d'un répe rtoire
ainsi
que ses sous répertoires
si possible en pouvant personaliser le chemin de récup

"stephprod" a écrit dans le message de news:
47c5950e$0$896$

Bonjour,

je souhaiterais avoir un code me permettant de récuperer la liste des
fichiers excel sur une feuille de calcul.
par exemple:
donc en a1 le chemin du fichier
en a2 le nom du fichier

j'ai trouvé sur le net ce code
mais il me cherche tous les fichiers et non seulement les excel

QUELQU'UN A UNE IDEE?

merci d'avance

Private Sub test()
ListFilesInFolder "w:", True
End Sub

' Option Explicit
Sub ListFilesInFolder(strFolderName As String, bIncludeSubfolders As
Boolean)
' adapté de Ole P Erlandsen
' necessite d'activer la reference Microsoft Scripting RunTime
Static FSO As FileSystemObject
Dim oSourceFolder As Scripting.Folder
Dim oSubFolder As Scripting.Folder
Dim oFile As Scripting.File
Static wksDest As Worksheet
Static iRow As Long
Static bNotFirstTime As Boolean

If Not bNotFirstTime Then
Set wksDest = ActiveSheet
Set FSO = CreateObject("Scripting.FileSystemObject")
wksDest.Cells(1, 1) = "Parent folder"
wksDest.Cells(1, 2) = "Full path"
wksDest.Cells(1, 3) = "File name"
wksDest.Cells(1, 4) = "Size"
wksDest.Cells(1, 5) = "Type"
wksDest.Cells(1, 6) = "Date created"
wksDest.Cells(1, 7) = "Date last modified"
wksDest.Cells(1, 8) = "Date last accessed"
wksDest.Cells(1, 9) = "Attributes"
wksDest.Cells(1, 10) = "Short path"
wksDest.Cells(1, 11) = "Short name"

iRow = 2
bNotFirstTime = True
End If
Set oSourceFolder = FSO.GetFolder(strFolderName)
For Each oFile In oSourceFolder.Files
wksDest.Cells(iRow, 1) = oFile.ParentFolder.Path
wksDest.Cells(iRow, 2) = oFile.Path
wksDest.Cells(iRow, 3) = oFile.Name
wksDest.Cells(iRow, 4) = oFile.Size
wksDest.Cells(iRow, 5) = oFile.Type
wksDest.Cells(iRow, 6) = oFile.DateCreated
wksDest.Cells(iRow, 7) = oFile.DateLastModified
wksDest.Cells(iRow, 8) = oFile.DateLastAccessed
wksDest.Cells(iRow, 9) = oFile.Attributes
wksDest.Cells(iRow, 10) = oFile.ShortPath
wksDest.Cells(iRow, 11) = oFile.ShortName

iRow = iRow + 1
Next oFile

For Each oSubFolder In oSourceFolder.SubFolders
' On peut mettre ici un traitement spécifique pour les dossiers
Next oSubFolder

If bIncludeSubfolders Then
For Each oSubFolder In oSourceFolder.SubFolders
ListFilesInFolder oSubFolder.Path, True
Next oSubFolder
End If

End Sub- Masquer le texte des messages précédents -


- Afficher le texte des messages précédents -- Masquer le texte de s
messages précédents -


- Afficher le texte des messages précédents -- Masquer le texte des messages précédents -


- Afficher le texte des messages précédents -





Avatar
isabelle
bonjour,

Sub TousLesFichiersDunDossier2()
Set fs = Application.FileSearch
With fs
.LookIn = "C:zaza"
.SearchSubFolders = True
.Filename = "*.*"
.Execute
If .FoundFiles.Count = 0 Then
MsgBox "Aucun fichier n'a été trouvé."
Else
For i = 1 To .FoundFiles.Count
x = x + 1
Range("A" & x) = .FoundFiles(i)
Next i
End If
End With
End Sub

isabelle

merci JB mais il ne check pas les sous répertoires!!!


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

Bonjour,

http://boisgontierjacques.free.fr/pages_site/GestionRepertoire.htm#ArborescenceDisqueDur

http://boisgontierjacques.free.fr/fichiers/ArborescenceRepertoire.xls

JB


On 27 fév, 17:53, "stephprod" wrote:
excusez moi j'ai oublié récupérer les fichiers excel d'un répertoire ainsi
que ses sous répertoires
si possible en pouvant personaliser le chemin de récup

"stephprod" a écrit dans le message de news:
47c5950e$0$896$



Bonjour,
je souhaiterais avoir un code me permettant de récuperer la liste des
fichiers excel sur une feuille de calcul.
par exemple:
donc en a1 le chemin du fichier
en a2 le nom du fichier
j'ai trouvé sur le net ce code
mais il me cherche tous les fichiers et non seulement les excel
QUELQU'UN A UNE IDEE?
merci d'avance
Private Sub test()
ListFilesInFolder "w:", True
End Sub
' Option Explicit
Sub ListFilesInFolder(strFolderName As String, bIncludeSubfolders As
Boolean)
' adapté de Ole P Erlandsen
' necessite d'activer la reference Microsoft Scripting RunTime
Static FSO As FileSystemObject
Dim oSourceFolder As Scripting.Folder
Dim oSubFolder As Scripting.Folder
Dim oFile As Scripting.File
Static wksDest As Worksheet
Static iRow As Long
Static bNotFirstTime As Boolean
If Not bNotFirstTime Then
Set wksDest = ActiveSheet
Set FSO = CreateObject("Scripting.FileSystemObject")
wksDest.Cells(1, 1) = "Parent folder"
wksDest.Cells(1, 2) = "Full path"
wksDest.Cells(1, 3) = "File name"
wksDest.Cells(1, 4) = "Size"
wksDest.Cells(1, 5) = "Type"
wksDest.Cells(1, 6) = "Date created"
wksDest.Cells(1, 7) = "Date last modified"
wksDest.Cells(1, 8) = "Date last accessed"
wksDest.Cells(1, 9) = "Attributes"
wksDest.Cells(1, 10) = "Short path"
wksDest.Cells(1, 11) = "Short name"
iRow = 2
bNotFirstTime = True
End If
Set oSourceFolder = FSO.GetFolder(strFolderName)
For Each oFile In oSourceFolder.Files
wksDest.Cells(iRow, 1) = oFile.ParentFolder.Path
wksDest.Cells(iRow, 2) = oFile.Path
wksDest.Cells(iRow, 3) = oFile.Name
wksDest.Cells(iRow, 4) = oFile.Size
wksDest.Cells(iRow, 5) = oFile.Type
wksDest.Cells(iRow, 6) = oFile.DateCreated
wksDest.Cells(iRow, 7) = oFile.DateLastModified
wksDest.Cells(iRow, 8) = oFile.DateLastAccessed
wksDest.Cells(iRow, 9) = oFile.Attributes
wksDest.Cells(iRow, 10) = oFile.ShortPath
wksDest.Cells(iRow, 11) = oFile.ShortName
iRow = iRow + 1
Next oFile
For Each oSubFolder In oSourceFolder.SubFolders
' On peut mettre ici un traitement spécifique pour les dossiers
Next oSubFolder
If bIncludeSubfolders Then
For Each oSubFolder In oSourceFolder.SubFolders
ListFilesInFolder oSubFolder.Path, True
Next oSubFolder
End If
End Sub- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -








Avatar
stephprod
je te remercie JB vraiment impeccable c est ce que je cherchais...
merci harchi bcps


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

Il y a une instruction qui filtre les fichiers .xls:

If Right(f.Name, 4) = ".xls" Then

JB

On 27 fév, 18:42, "stephprod" wrote:
je te remercie JB
j'ai bien compris le code mais ce que je veux c'est qu'il me donne que les
fichiers excel de ses sous répertoires!

en te remerciant par avance

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

On obtient bien toute l'arborescence (sous-répertoires et fichiers)

racine = "c:" donne l'arborescence du disque C:

http://cjoint.com/?cBsGi7dZpa

JB

On 27 fév, 18:14, "stephprod" wrote:



merci JB mais il ne check pas les sous répertoires!!!

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

Bonjour,

http://boisgontierjacques.free.fr/pages_site/GestionRepertoire.htm#Ar...

http://boisgontierjacques.free.fr/fichiers/ArborescenceRepertoire.xls

JB

On 27 fév, 17:53, "stephprod" wrote:

excusez moi j'ai oublié récupérer les fichiers excel d'un répertoire
ainsi
que ses sous répertoires
si possible en pouvant personaliser le chemin de récup

"stephprod" a écrit dans le message de news:
47c5950e$0$896$

Bonjour,

je souhaiterais avoir un code me permettant de récuperer la liste
des
fichiers excel sur une feuille de calcul.
par exemple:
donc en a1 le chemin du fichier
en a2 le nom du fichier

j'ai trouvé sur le net ce code
mais il me cherche tous les fichiers et non seulement les excel

QUELQU'UN A UNE IDEE?

merci d'avance

Private Sub test()
ListFilesInFolder "w:", True
End Sub

' Option Explicit
Sub ListFilesInFolder(strFolderName As String, bIncludeSubfolders As
Boolean)
' adapté de Ole P Erlandsen
' necessite d'activer la reference Microsoft Scripting RunTime
Static FSO As FileSystemObject
Dim oSourceFolder As Scripting.Folder
Dim oSubFolder As Scripting.Folder
Dim oFile As Scripting.File
Static wksDest As Worksheet
Static iRow As Long
Static bNotFirstTime As Boolean

If Not bNotFirstTime Then
Set wksDest = ActiveSheet
Set FSO = CreateObject("Scripting.FileSystemObject")
wksDest.Cells(1, 1) = "Parent folder"
wksDest.Cells(1, 2) = "Full path"
wksDest.Cells(1, 3) = "File name"
wksDest.Cells(1, 4) = "Size"
wksDest.Cells(1, 5) = "Type"
wksDest.Cells(1, 6) = "Date created"
wksDest.Cells(1, 7) = "Date last modified"
wksDest.Cells(1, 8) = "Date last accessed"
wksDest.Cells(1, 9) = "Attributes"
wksDest.Cells(1, 10) = "Short path"
wksDest.Cells(1, 11) = "Short name"

iRow = 2
bNotFirstTime = True
End If
Set oSourceFolder = FSO.GetFolder(strFolderName)
For Each oFile In oSourceFolder.Files
wksDest.Cells(iRow, 1) = oFile.ParentFolder.Path
wksDest.Cells(iRow, 2) = oFile.Path
wksDest.Cells(iRow, 3) = oFile.Name
wksDest.Cells(iRow, 4) = oFile.Size
wksDest.Cells(iRow, 5) = oFile.Type
wksDest.Cells(iRow, 6) = oFile.DateCreated
wksDest.Cells(iRow, 7) = oFile.DateLastModified
wksDest.Cells(iRow, 8) = oFile.DateLastAccessed
wksDest.Cells(iRow, 9) = oFile.Attributes
wksDest.Cells(iRow, 10) = oFile.ShortPath
wksDest.Cells(iRow, 11) = oFile.ShortName

iRow = iRow + 1
Next oFile

For Each oSubFolder In oSourceFolder.SubFolders
' On peut mettre ici un traitement spécifique pour les dossiers
Next oSubFolder

If bIncludeSubfolders Then
For Each oSubFolder In oSourceFolder.SubFolders
ListFilesInFolder oSubFolder.Path, True
Next oSubFolder
End If

End Sub- Masquer le texte des messages précédents -


- Afficher le texte des messages précédents -- Masquer le texte des
messages précédents -


- Afficher le texte des messages précédents -- Masquer le texte des
messages précédents -


- Afficher le texte des messages précédents -





Avatar
Philippe.R
Bonsoir,
Une belle palette d'outils chez Frédéric :
http://frederic.sigonneau.free.fr/Fichiers.htm
et peut être plus précisément :
http://frederic.sigonneau.free.fr/code/Fichiers/FichiersDunDossier.txt
--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
http://jacxl.free.fr/mpfe/trombino.html
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
"stephprod" a écrit dans le message de
news:47c5950e$0$896$
Bonjour,

je souhaiterais avoir un code me permettant de récuperer la liste des
fichiers excel sur une feuille de calcul.
par exemple:
donc en a1 le chemin du fichier
en a2 le nom du fichier


j'ai trouvé sur le net ce code
mais il me cherche tous les fichiers et non seulement les excel

QUELQU'UN A UNE IDEE?

merci d'avance

Private Sub test()
ListFilesInFolder "w:", True
End Sub


' Option Explicit
Sub ListFilesInFolder(strFolderName As String, bIncludeSubfolders As
Boolean)
' adapté de Ole P Erlandsen
' necessite d'activer la reference Microsoft Scripting RunTime
Static FSO As FileSystemObject
Dim oSourceFolder As Scripting.Folder
Dim oSubFolder As Scripting.Folder
Dim oFile As Scripting.File
Static wksDest As Worksheet
Static iRow As Long
Static bNotFirstTime As Boolean

If Not bNotFirstTime Then
Set wksDest = ActiveSheet
Set FSO = CreateObject("Scripting.FileSystemObject")
wksDest.Cells(1, 1) = "Parent folder"
wksDest.Cells(1, 2) = "Full path"
wksDest.Cells(1, 3) = "File name"
wksDest.Cells(1, 4) = "Size"
wksDest.Cells(1, 5) = "Type"
wksDest.Cells(1, 6) = "Date created"
wksDest.Cells(1, 7) = "Date last modified"
wksDest.Cells(1, 8) = "Date last accessed"
wksDest.Cells(1, 9) = "Attributes"
wksDest.Cells(1, 10) = "Short path"
wksDest.Cells(1, 11) = "Short name"

iRow = 2
bNotFirstTime = True
End If
Set oSourceFolder = FSO.GetFolder(strFolderName)
For Each oFile In oSourceFolder.Files
wksDest.Cells(iRow, 1) = oFile.ParentFolder.Path
wksDest.Cells(iRow, 2) = oFile.Path
wksDest.Cells(iRow, 3) = oFile.Name
wksDest.Cells(iRow, 4) = oFile.Size
wksDest.Cells(iRow, 5) = oFile.Type
wksDest.Cells(iRow, 6) = oFile.DateCreated
wksDest.Cells(iRow, 7) = oFile.DateLastModified
wksDest.Cells(iRow, 8) = oFile.DateLastAccessed
wksDest.Cells(iRow, 9) = oFile.Attributes
wksDest.Cells(iRow, 10) = oFile.ShortPath
wksDest.Cells(iRow, 11) = oFile.ShortName

iRow = iRow + 1
Next oFile

For Each oSubFolder In oSourceFolder.SubFolders
' On peut mettre ici un traitement spécifique pour les dossiers
Next oSubFolder

If bIncludeSubfolders Then
For Each oSubFolder In oSourceFolder.SubFolders
ListFilesInFolder oSubFolder.Path, True
Next oSubFolder
End If

End Sub