Lister les fichiers d'un répertoire ?

Bonjour
Un domaine nouveau pour moi, et je ne m'en sort pas !
1 - Je voudrais lister tous les fichiers (.pdf, .mid .mp3 etc.)
du dossier D:Mon dossierMusique
dans la colonne A:A d'un classeur (par exemple : Toto.xls)
à créer sur le Bureau.

2 - Plus tard dans mon exploitation, il me faudra ouvrir Toto.xls
(qui entre temps aura peut-être été fermé)
Quel est le code qui permet de savoir si Toto est déjà ouvert ?
afin d'utiliser dans ce cas l'instruction "Activate", et non "Open".

3 - Si qqun a un peu de tps pour m'expliquer cet exemple de l'aide VBA :
**************
Sub AfficherListeDossiers(specdossier)
Dim fs, f, f1, fc, s
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder(specdossier)
Set fc = f.Files
For Each f1 In fc
s = s & f1.Name
s = s & vbCrLf
Next
MsgBox s
End Sub
****************
Je n'arrive pas à exécuter cet exemple
Que faut-il mettre à la place de specdossier ?

4 - L'autre jour lSteph (j'espère qu'il me lira) m'a suggéré le code
ci-dessous :
##########################
Sub ToutleRepertoire()
f = Dir("*.doc")
Do While Len(f) > 0
Documents.Open (f)
'ChangeLh (Exécution d'une macro dans chaque fichier du répertoire)
f = Dir
Loop
End Sub
#########################
La boucle "Do" ne se fait jamais car f = "", probablement parce que je
ne mets pas ce qu'il faut à la place de "*.doc"

IL Y A LONGTEMPS QUE JE NE ME SUIS PAS SENTI AUSSI NUL :-(((
Merci pour votre aide, d'autant que je me sens exigeant aujourd'hui !

Bonjour
Un domaine nouveau pour moi, et je ne m'en sort pas !
1 - Je voudrais lister tous les fichiers (.pdf, .mid .mp3 etc.)
du dossier D:Mon dossierMusique
dans la colonne A:A d'un classeur (par exemple : Toto.xls)
à créer sur le Bureau.

2 - Plus tard dans mon exploitation, il me faudra ouvrir Toto.xls
(qui entre temps aura peut-être été fermé)
Quel est le code qui permet de savoir si Toto est déjà ouvert ?
afin d'utiliser dans ce cas l'instruction "Activate", et non "Open".

3 - Si qqun a un peu de tps pour m'expliquer cet exemple de l'aide VBA :
**************
Sub AfficherListeDossiers(specdossier)
Dim fs, f, f1, fc, s
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder(specdossier)
Set fc = f.Files
For Each f1 In fc
s = s & f1.Name
s = s & vbCrLf
Next
MsgBox s
End Sub
****************
Je n'arrive pas à exécuter cet exemple
Que faut-il mettre à la place de specdossier ?

4 - L'autre jour lSteph (j'espère qu'il me lira) m'a suggéré le code
ci-dessous :
##########################
Sub ToutleRepertoire()
f = Dir("*.doc")
Do While Len(f) > 0
Documents.Open (f)
'ChangeLh (Exécution d'une macro dans chaque fichier du répertoire)
f = Dir
Loop
End Sub
#########################
La boucle "Do" ne se fait jamais car f = "", probablement parce que je
ne mets pas ce qu'il faut à la place de "*.doc"

IL Y A LONGTEMPS QUE JE NE ME SUIS PAS SENTI AUSSI NUL :-(((
Merci pour votre aide, d'autant que je me sens exigeant aujourd'hui !

Bonjour
Un domaine nouveau pour moi, et je ne m'en sort pas !
1 - Je voudrais lister tous les fichiers (.pdf, .mid .mp3 etc.)
du dossier D:Mon dossierMusique
dans la colonne A:A d'un classeur (par exemple : Toto.xls)
à créer sur le Bureau.

2 - Plus tard dans mon exploitation, il me faudra ouvrir Toto.xls
(qui entre temps aura peut-être été fermé)
Quel est le code qui permet de savoir si Toto est déjà ouvert ?
afin d'utiliser dans ce cas l'instruction "Activate", et non "Open".

3 - Si qqun a un peu de tps pour m'expliquer cet exemple de l'aide VBA :
**************
Sub AfficherListeDossiers(specdossier)
Dim fs, f, f1, fc, s
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder(specdossier)
Set fc = f.Files
For Each f1 In fc
s = s & f1.Name
s = s & vbCrLf
Next
MsgBox s
End Sub
****************
Je n'arrive pas à exécuter cet exemple
Que faut-il mettre à la place de specdossier ?

4 - L'autre jour lSteph (j'espère qu'il me lira) m'a suggéré le code
ci-dessous :
##########################
Sub ToutleRepertoire()
f = Dir("*.doc")
Do While Len(f) > 0
Documents.Open (f)
'ChangeLh (Exécution d'une macro dans chaque fichier du répertoire)
f = Dir
Loop
End Sub
#########################
La boucle "Do" ne se fait jamais car f = "", probablement parce que je ne
mets pas ce qu'il faut à la place de "*.doc"

IL Y A LONGTEMPS QUE JE NE ME SUIS PAS SENTI AUSSI NUL :-(((
Merci pour votre aide, d'autant que je me sens exigeant aujourd'hui !

bonjour,

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

isabelle

Bonjour
Un domaine nouveau pour moi, et je ne m'en sort pas !
1 - Je voudrais lister tous les fichiers (.pdf, .mid .mp3 etc.)
du dossier D:Mon dossierMusique
dans la colonne A:A d'un classeur (par exemple : Toto.xls)
à créer sur le Bureau.

2 - Plus tard dans mon exploitation, il me faudra ouvrir Toto.xls
(qui entre temps aura peut-être été fermé)
Quel est le code qui permet de savoir si Toto est déjà ouvert ?
afin d'utiliser dans ce cas l'instruction "Activate", et non "Open".

3 - Si qqun a un peu de tps pour m'expliquer cet exemple de l'aide VBA :
**************
Sub AfficherListeDossiers(specdossier)
Dim fs, f, f1, fc, s
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder(specdossier)
Set fc = f.Files
For Each f1 In fc
s = s & f1.Name
s = s & vbCrLf
Next
MsgBox s
End Sub
****************
Je n'arrive pas à exécuter cet exemple
Que faut-il mettre à la place de specdossier ?

4 - L'autre jour lSteph (j'espère qu'il me lira) m'a suggéré le code
ci-dessous :
##########################
Sub ToutleRepertoire()
f = Dir("*.doc")
Do While Len(f) > 0
Documents.Open (f)
'ChangeLh (Exécution d'une macro dans chaque fichier du répertoire)
f = Dir
Loop
End Sub
#########################
La boucle "Do" ne se fait jamais car f = "", probablement parce que je
ne mets pas ce qu'il faut à la place de "*.doc"

IL Y A LONGTEMPS QUE JE NE ME SUIS PAS SENTI AUSSI NUL :-(((
Merci pour votre aide, d'autant que je me sens exigeant aujourd'hui !

Bonjour
pour AfficherListeDossiers
ajouter ça en test

Sub test()
dossier = "c:"
AfficherListeDossiers (dossier)
End Sub

salutations

RGI

Bonjour
Un domaine nouveau pour moi, et je ne m'en sort pas !
1 - Je voudrais lister tous les fichiers (.pdf, .mid .mp3 etc.)
du dossier D:Mon dossierMusique
dans la colonne A:A d'un classeur (par exemple : Toto.xls)
à créer sur le Bureau.

2 - Plus tard dans mon exploitation, il me faudra ouvrir Toto.xls
(qui entre temps aura peut-être été fermé)
Quel est le code qui permet de savoir si Toto est déjà ouvert ?
afin d'utiliser dans ce cas l'instruction "Activate", et non "Open".

3 - Si qqun a un peu de tps pour m'expliquer cet exemple de l'aide VBA :
**************
Sub AfficherListeDossiers(specdossier)
Dim fs, f, f1, fc, s
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder(specdossier)
Set fc = f.Files
For Each f1 In fc
s = s & f1.Name
s = s & vbCrLf
Next
MsgBox s
End Sub
****************
Je n'arrive pas à exécuter cet exemple
Que faut-il mettre à la place de specdossier ?

4 - L'autre jour lSteph (j'espère qu'il me lira) m'a suggéré le code
ci-dessous :
##########################
Sub ToutleRepertoire()
f = Dir("*.doc")
Do While Len(f) > 0
Documents.Open (f)
'ChangeLh (Exécution d'une macro dans chaque fichier du répertoire)
f = Dir
Loop
End Sub
#########################
La boucle "Do" ne se fait jamais car f = "", probablement parce que je
ne mets pas ce qu'il faut à la place de "*.doc"

IL Y A LONGTEMPS QUE JE NE ME SUIS PAS SENTI AUSSI NUL :-(((
Merci pour votre aide, d'autant que je me sens exigeant aujourd'hui !

Merci Isabelle
Juste un petit pb, ton code liste bien les fichiers,
mais avec leur chemin complet (D:Mon DossierMusique...)
Je voudrais les noms de fichiers, seuls,
mais je ne sais pas faire.
(En +, je ne suis pas très à l'aise avec les blocs WITH
il va falloir que je m'y mette !)
Merci encore

bonjour,

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

isabelle

Bonjour
Un domaine nouveau pour moi, et je ne m'en sort pas !
1 - Je voudrais lister tous les fichiers (.pdf, .mid .mp3 etc.)
du dossier D:Mon dossierMusique
dans la colonne A:A d'un classeur (par exemple : Toto.xls)
à créer sur le Bureau.

2 - Plus tard dans mon exploitation, il me faudra ouvrir Toto.xls
(qui entre temps aura peut-être été fermé)
Quel est le code qui permet de savoir si Toto est déjà ouvert ?
afin d'utiliser dans ce cas l'instruction "Activate", et non "Open".

3 - Si qqun a un peu de tps pour m'expliquer cet exemple de l'aide VBA :
**************
Sub AfficherListeDossiers(specdossier)
Dim fs, f, f1, fc, s
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder(specdossier)
Set fc = f.Files
For Each f1 In fc
s = s & f1.Name
s = s & vbCrLf
Next
MsgBox s
End Sub
****************
Je n'arrive pas à exécuter cet exemple
Que faut-il mettre à la place de specdossier ?

4 - L'autre jour lSteph (j'espère qu'il me lira) m'a suggéré le code
ci-dessous :
##########################
Sub ToutleRepertoire()
f = Dir("*.doc")
Do While Len(f) > 0
Documents.Open (f)
'ChangeLh (Exécution d'une macro dans chaque fichier du répertoire)
f = Dir
Loop
End Sub
#########################
La boucle "Do" ne se fait jamais car f = "", probablement parce que
je ne mets pas ce qu'il faut à la place de "*.doc"

IL Y A LONGTEMPS QUE JE NE ME SUIS PAS SENTI AUSSI NUL :-(((
Merci pour votre aide, d'autant que je me sens exigeant aujourd'hui !

f = Dir("*.*")
au lieu de.. f = Dir("*.doc")
J'ai donc essayé, mais qqchose ne va pas :

pour la question 2
on gère l'erreur, on essai d'activer le fichier, si error on l'ouvre
Merci pour le rappel de "On Error",

On Error Resume Next
Workbooks("Toto.xls").Activate
If Err <> 0 Then Workbooks.Open ("Toto.xls")
Err.Clear

Youky

"LANIMAL" <lanimal@tiscali.fr> a écrit dans le message de news:
u%23T6ahE%23GHA.3456@TK2MSFTNGP02.phx.gbl...

Bonjour
Un domaine nouveau pour moi, et je ne m'en sort pas !
1 - Je voudrais lister tous les fichiers (.pdf, .mid .mp3 etc.)
du dossier D:Mon dossierMusique
dans la colonne A:A d'un classeur (par exemple : Toto.xls)
à créer sur le Bureau.

2 - Plus tard dans mon exploitation, il me faudra ouvrir Toto.xls
(qui entre temps aura peut-être été fermé)
Quel est le code qui permet de savoir si Toto est déjà ouvert ?
afin d'utiliser dans ce cas l'instruction "Activate", et non "Open".

3 - Si qqun a un peu de tps pour m'expliquer cet exemple de l'aide VBA :
**************
Sub AfficherListeDossiers(specdossier)
Dim fs, f, f1, fc, s
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder(specdossier)
Set fc = f.Files
For Each f1 In fc
s = s & f1.Name
s = s & vbCrLf
Next
MsgBox s
End Sub
****************
Je n'arrive pas à exécuter cet exemple
Que faut-il mettre à la place de specdossier ?

4 - L'autre jour lSteph (j'espère qu'il me lira) m'a suggéré le code
ci-dessous :
##########################
Sub ToutleRepertoire()
f = Dir("*.doc")
Do While Len(f) > 0
Documents.Open (f)
'ChangeLh (Exécution d'une macro dans chaque fichier du répertoire)
f = Dir
Loop
End Sub
#########################
La boucle "Do" ne se fait jamais car f = "", probablement parce que je ne
mets pas ce qu'il faut à la place de "*.doc"

IL Y A LONGTEMPS QUE JE NE ME SUIS PAS SENTI AUSSI NUL :-(((
Merci pour votre aide, d'autant que je me sens exigeant aujourd'hui !

bonjour,

voici une autre approche,

Sub TousFichiersDunDossier()
Dim fso As Object, Dossier As Object, NomDossier
Dim Files As Object, File As Object, I As Integer
Set fso = CreateObject("Scripting.FileSystemObject")
Répertoire = "c:zaza" 'Modifie le répertoire
If Répertoire = "" Then Exit Sub
Set Dossier = fso.getfolder(Répertoire)
Set Files = Dossier.Files
If Files.Count <> 0 Then
For Each File In Files
Fichier = File.Name
x = x + 1
Range("A" & x) = Fichier
Next
End If
End Sub

isabelle

Merci Isabelle
Juste un petit pb, ton code liste bien les fichiers,
mais avec leur chemin complet (D:Mon DossierMusique...)
Je voudrais les noms de fichiers, seuls,
mais je ne sais pas faire.
(En +, je ne suis pas très à l'aise avec les blocs WITH
il va falloir que je m'y mette !)
Merci encore

bonjour,

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

isabelle

Bonjour
Un domaine nouveau pour moi, et je ne m'en sort pas !
1 - Je voudrais lister tous les fichiers (.pdf, .mid .mp3 etc.)
du dossier D:Mon dossierMusique
dans la colonne A:A d'un classeur (par exemple : Toto.xls)
à créer sur le Bureau.

2 - Plus tard dans mon exploitation, il me faudra ouvrir Toto.xls
(qui entre temps aura peut-être été fermé)
Quel est le code qui permet de savoir si Toto est déjà ouvert ?
afin d'utiliser dans ce cas l'instruction "Activate", et non "Open".

3 - Si qqun a un peu de tps pour m'expliquer cet exemple de l'aide
VBA :
**************
Sub AfficherListeDossiers(specdossier)
Dim fs, f, f1, fc, s
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder(specdossier)
Set fc = f.Files
For Each f1 In fc
s = s & f1.Name
s = s & vbCrLf
Next
MsgBox s
End Sub
****************
Je n'arrive pas à exécuter cet exemple
Que faut-il mettre à la place de specdossier ?

4 - L'autre jour lSteph (j'espère qu'il me lira) m'a suggéré le code
ci-dessous :
##########################
Sub ToutleRepertoire()
f = Dir("*.doc")
Do While Len(f) > 0
Documents.Open (f)
'ChangeLh (Exécution d'une macro dans chaque fichier du répertoire)
f = Dir
Loop
End Sub
#########################
La boucle "Do" ne se fait jamais car f = "", probablement parce que
je ne mets pas ce qu'il faut à la place de "*.doc"

IL Y A LONGTEMPS QUE JE NE ME SUIS PAS SENTI AUSSI NUL :-(((
Merci pour votre aide, d'autant que je me sens exigeant aujourd'hui !

Bonjour
Un domaine nouveau pour moi, et je ne m'en sort pas !
1 - Je voudrais lister tous les fichiers (.pdf, .mid .mp3 etc.)
du dossier D:Mon dossierMusique
dans la colonne A:A d'un classeur (par exemple : Toto.xls)
à créer sur le Bureau.

2 - Plus tard dans mon exploitation, il me faudra ouvrir Toto.xls
(qui entre temps aura peut-être été fermé)
Quel est le code qui permet de savoir si Toto est déjà ouvert ?
afin d'utiliser dans ce cas l'instruction "Activate", et non "Open".

3 - Si qqun a un peu de tps pour m'expliquer cet exemple de l'aide VBA :
**************
Sub AfficherListeDossiers(specdossier)
Dim fs, f, f1, fc, s
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder(specdossier)
Set fc = f.Files
For Each f1 In fc
s = s & f1.Name
s = s & vbCrLf
Next
MsgBox s
End Sub
****************
Je n'arrive pas à exécuter cet exemple
Que faut-il mettre à la place de specdossier ?

4 - L'autre jour lSteph (j'espère qu'il me lira) m'a suggéré le code
ci-dessous :
##########################
Sub ToutleRepertoire()
f = Dir("*.doc")
Do While Len(f) > 0
Documents.Open (f)
'ChangeLh (Exécution d'une macro dans chaque fichier du répertoire)
f = Dir
Loop
End Sub
#########################
La boucle "Do" ne se fait jamais car f = "", probablement parce que je ne
mets pas ce qu'il faut à la place de "*.doc"

IL Y A LONGTEMPS QUE JE NE ME SUIS PAS SENTI AUSSI NUL :-(((
Merci pour votre aide, d'autant que je me sens exigeant aujourd'hui !

Bonsoir LANIMAL,

Oui je viens de lire.
L'autre jour ta question portait sur un ensemble de fichiers Word. D'où
le *.doc.
Pour tous fichiers Youky a donné la réponse *.*

Explication:
Lorsque tu appelle une première fois
f=dir("*.xls")
vient la liste des fichiers xls du répertoire en cours
mais en l'occurence le premier seul sera retenu.
Dans la boucle ( à la fin)
lorsque tu rappelle simplement
f=dir
le même critère est conservé mais
on passe au fichier suivant.

Le len(f)>0
mesure la longuer de chaine de f, ceci permet de s'arrêter lorsqu'il n'y
a plus de fichiers.

Cordialement.

lSteph




LANIMAL a exprimé avec précision :

Bonjour
Un domaine nouveau pour moi, et je ne m'en sort pas !
1 - Je voudrais lister tous les fichiers (.pdf, .mid .mp3 etc.)
du dossier D:Mon dossierMusique
dans la colonne A:A d'un classeur (par exemple : Toto.xls)
à créer sur le Bureau.

2 - Plus tard dans mon exploitation, il me faudra ouvrir Toto.xls
(qui entre temps aura peut-être été fermé)
Quel est le code qui permet de savoir si Toto est déjà ouvert ?
afin d'utiliser dans ce cas l'instruction "Activate", et non "Open".

3 - Si qqun a un peu de tps pour m'expliquer cet exemple de l'aide VBA :
**************
Sub AfficherListeDossiers(specdossier)
Dim fs, f, f1, fc, s
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder(specdossier)
Set fc = f.Files
For Each f1 In fc
s = s & f1.Name
s = s & vbCrLf
Next
MsgBox s
End Sub
****************
Je n'arrive pas à exécuter cet exemple
Que faut-il mettre à la place de specdossier ?

4 - L'autre jour lSteph (j'espère qu'il me lira) m'a suggéré le code
ci-dessous :
##########################
Sub ToutleRepertoire()
f = Dir("*.doc")
Do While Len(f) > 0
Documents.Open (f)
'ChangeLh (Exécution d'une macro dans chaque fichier du répertoire)
f = Dir
Loop
End Sub
#########################
La boucle "Do" ne se fait jamais car f = "", probablement parce que je
ne mets pas ce qu'il faut à la place de "*.doc"

IL Y A LONGTEMPS QUE JE NE ME SUIS PAS SENTI AUSSI NUL :-(((
Merci pour votre aide, d'autant que je me sens exigeant aujourd'hui !