Pouvez-vous me rappeller les qq instructions Macro pour lister dans une
feuille Excel la liste des fichiers se trouvant dans une directory? Avec sous
directory?
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
Vincnet.
Bonjour,
Voilà un truc que j'ai fait un jour :
Sub lance() Dim specdossier As String specdossier = "C:Documents and Settings" 'sans le "" final ! '(on peut faire un input box pour définir specdossier aussi) Worksheets("Feuil1").Cells.ClearContents On Error Resume Next Dim fs, f, fc, sf As Object Set fs = CreateObject("Scripting.FileSystemObject") Set f = fs.GetFolder(specdossier) If Err.Number <> 0 Then MsgBox "Le dossier saisi n'est pas un nom de dossier valide !", vbOKOnly, _ "ERREUR FATALE" Exit Sub End If Set fc = f.Files
For Each f1 In fc If [A1] = "" Then [A1] = f1.Name [B1] = specdossier ElseIf [A2] = "" Then [A2] = f1.Name [B2] = specdossier Else Range("A1").End(xlDown).Range("A2").Value = f1.Name Range("B1").End(xlDown).Range("A2").Value = specdossier End If Next Set sf = f.subfolders For Each f1 In sf arbo specdossier & "" & f1.Name Next
End Sub
-----Message d'origine----- Bonjour,
Pouvez-vous me rappeller les qq instructions Macro pour lister dans une
feuille Excel la liste des fichiers se trouvant dans une directory? Avec sous
directory?
Merci d'avance pour votre aide -- Ghislain .
Bonjour,
Voilà un truc que j'ai fait un jour :
Sub lance()
Dim specdossier As String
specdossier = "C:Documents and Settings" 'sans le ""
final !
'(on peut faire un input box pour définir specdossier
aussi)
Worksheets("Feuil1").Cells.ClearContents
On Error Resume Next
Dim fs, f, fc, sf As Object
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder(specdossier)
If Err.Number <> 0 Then
MsgBox "Le dossier saisi n'est pas un nom de dossier
valide !", vbOKOnly, _
"ERREUR FATALE"
Exit Sub
End If
Set fc = f.Files
For Each f1 In fc
If [A1] = "" Then
[A1] = f1.Name
[B1] = specdossier
ElseIf [A2] = "" Then
[A2] = f1.Name
[B2] = specdossier
Else
Range("A1").End(xlDown).Range("A2").Value =
f1.Name
Range("B1").End(xlDown).Range("A2").Value =
specdossier
End If
Next
Set sf = f.subfolders
For Each f1 In sf
arbo specdossier & "" & f1.Name
Next
End Sub
-----Message d'origine-----
Bonjour,
Pouvez-vous me rappeller les qq instructions Macro pour
lister dans une
feuille Excel la liste des fichiers se trouvant dans une
directory? Avec sous
Sub lance() Dim specdossier As String specdossier = "C:Documents and Settings" 'sans le "" final ! '(on peut faire un input box pour définir specdossier aussi) Worksheets("Feuil1").Cells.ClearContents On Error Resume Next Dim fs, f, fc, sf As Object Set fs = CreateObject("Scripting.FileSystemObject") Set f = fs.GetFolder(specdossier) If Err.Number <> 0 Then MsgBox "Le dossier saisi n'est pas un nom de dossier valide !", vbOKOnly, _ "ERREUR FATALE" Exit Sub End If Set fc = f.Files
For Each f1 In fc If [A1] = "" Then [A1] = f1.Name [B1] = specdossier ElseIf [A2] = "" Then [A2] = f1.Name [B2] = specdossier Else Range("A1").End(xlDown).Range("A2").Value = f1.Name Range("B1").End(xlDown).Range("A2").Value = specdossier End If Next Set sf = f.subfolders For Each f1 In sf arbo specdossier & "" & f1.Name Next
End Sub
-----Message d'origine----- Bonjour,
Pouvez-vous me rappeller les qq instructions Macro pour lister dans une
feuille Excel la liste des fichiers se trouvant dans une directory? Avec sous
directory?
Merci d'avance pour votre aide -- Ghislain .
Daniel
Bonjour. Voici une exemple pour lister les fichiers d'un répertoire. Pour les sous-répertoires, vois l'aide de la commande DIR.
Sub test() Chemin = "e:donneesdaniel" Fich = Dir(Chemin, vbNormal) Do While Fich <> "" MsgBox Fich Fich = Dir Loop End Sub
Cordialement. Daniel "MULLER" a écrit dans le message de news:
Bonjour,
Pouvez-vous me rappeller les qq instructions Macro pour lister dans une feuille Excel la liste des fichiers se trouvant dans une directory? Avec sous directory?
Merci d'avance pour votre aide -- Ghislain
Bonjour.
Voici une exemple pour lister les fichiers d'un répertoire. Pour les
sous-répertoires, vois l'aide de la commande DIR.
Sub test()
Chemin = "e:donneesdaniel"
Fich = Dir(Chemin, vbNormal)
Do While Fich <> ""
MsgBox Fich
Fich = Dir
Loop
End Sub
Cordialement.
Daniel
"MULLER" <MULLER@discussions.microsoft.com> a écrit dans le message de news:
5B168356-C1BF-4315-AFF3-D03CDCB1B184@microsoft.com...
Bonjour,
Pouvez-vous me rappeller les qq instructions Macro pour lister dans une
feuille Excel la liste des fichiers se trouvant dans une directory? Avec
sous
directory?
Bonjour. Voici une exemple pour lister les fichiers d'un répertoire. Pour les sous-répertoires, vois l'aide de la commande DIR.
Sub test() Chemin = "e:donneesdaniel" Fich = Dir(Chemin, vbNormal) Do While Fich <> "" MsgBox Fich Fich = Dir Loop End Sub
Cordialement. Daniel "MULLER" a écrit dans le message de news:
Bonjour,
Pouvez-vous me rappeller les qq instructions Macro pour lister dans une feuille Excel la liste des fichiers se trouvant dans une directory? Avec sous directory?
Merci d'avance pour votre aide -- Ghislain
Clément Marcotte
Bonjour,
Il y a une panoplie assez complète par là:
http://frederic.sigonneau.free.fr/Fichiers.htm
"MULLER" a écrit dans le message de news:
Bonjour,
Pouvez-vous me rappeller les qq instructions Macro pour lister dans une
feuille Excel la liste des fichiers se trouvant dans une directory? Avec sous
directory?
Merci d'avance pour votre aide -- Ghislain
Bonjour,
Il y a une panoplie assez complète par là:
http://frederic.sigonneau.free.fr/Fichiers.htm
"MULLER" <MULLER@discussions.microsoft.com> a écrit dans le message de
news:5B168356-C1BF-4315-AFF3-D03CDCB1B184@microsoft.com...
Bonjour,
Pouvez-vous me rappeller les qq instructions Macro pour lister dans
une
feuille Excel la liste des fichiers se trouvant dans une directory?
Avec sous
