[VBA-E]Liste des noms de classeur dans un dossier

Version imprimable

08/09/2006, 17h44
Lexot2

[VBA-E]Liste des noms de classeur dans un dossier
8-) Bonjour

J'ai 4 classeurs fermés dans un dossier. Le nom des classeurs peut changer selon des paramètres externes. Je voudrais récupérer tous les noms dans un MsgBox avec le code suivant situé dans un 5ème classeur.
Code:

1 2 3 4 5 6 7 8 Sub ListeNClasseur() Dim cl As Workbook For Each cl In Workbooks MsgBox cl.Name Next cl End Sub
Ce code fonctionne bien si tous les classeurs sont ouverts. Mais comment avoir les noms de classeur, si seul le 5ème classeur au nom invariable est ouvert?
Je pourrais les ouvrir un après l'autre, mais comment faire si on ignore son nom?
Faut-il utiliser un appel API? Merci de m'apporter vos éclairages

bonjour

tu peux tester

Code:

1
2
3
4
5
6
7
8
Dim Fichier As String
 
Fichier = Dir("C:\Documents and Settings\michel\dossier\*.xls")
 
Do While Fichier <> ""
    MsgBox Fichier
    Fichier = Dir
Loop

bon week end
michel

09/09/2006, 19h36
Lexot2

8-) Bonsoir

Merci pour ton code. Il a l'avantage d'être très court, car en faisant des recherches, j'ai trouvé un autre beaucoup plus long.

Avec les noms, je peux ouvrir les classeurs, mais s'il est déjà ouvert, je reçois ce message :

Code:

Fichier.xls est déjà ouvert. Si vous l'ouvrez....etc

Donc, il me faut procéder à un test afin de savoir s'il est déjà ouvert. Mais je ne connais pas le code à utiliser. Merci pour ton aide.

bonjour

dans ce cas tu peux utiliser

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Dim Fichier As String
Dim Wb As Workbook
 
Fichier = Dir("C:\Documents and Settings\michel\dossier*.xls")
 
Do While Fichier <> ""
 
    '----- vérifie si le classeur est ouvert ------
    On Error Resume Next
    Set Wb = Workbooks(Fichier)
    If Not Wb Is Nothing Then MsgBox "Fichier " & _
                                Wb.Name & " déja ouvert"
    On Error GoTo 0
    '-----------------------------------------------
 
    Set Wb = Nothing
    Fichier = Dir
Loop

michel

09/09/2006, 21h04
Lexot2

8-) Rebonsoir

Quand je poste mon message, et que j'ai la solution en quelques minutes, je trouve cela formidable. Tout fonctionne comme sur des roulettes. Encore merci pour ta disponibilité, et félicitations pour ta compétence!