liste fichiers excel

Le
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
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
stephprod
Le #5238221
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" 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








JB
Le #5238191
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"
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" 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 -



stephprod
Le #5238181
merci JB mais il ne check pas les sous répertoires!!!


"JB"
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"
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" 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 -



JB
Le #5238161
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"
merci JB mais il ne check pas les sous répertoires!!!

"JB"
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"


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" 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 -




stephprod
Le #5238151
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"
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"
merci JB mais il ne check pas les sous répertoires!!!

"JB"
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"


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" 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 -




JB
Le #5238141
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"
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"
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"


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

"JB"
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"
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" 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 -





isabelle
Le #5238091
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"
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"
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" 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 -








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


"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"
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"
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"


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

"JB"
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"
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" 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 -





Philippe.R
Le #5237941
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" 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







Publicité
Poster une réponse
Anonyme