Discussion :

[Lexot2]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[SilkyRoad]

bonjour

tu peux tester

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Lexot2]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[SilkyRoad]

bonjour

dans ce cas tu peux utiliser

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Lexot2]

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!