Discussion :

[Benjamin.Dohogne]

Bonjour,

Je cherche comment verifier si un fichier excel dont le nom commence par "NOM ERs" a ete ouverte dans la session courante et si oui, qu'elle soit activee.

Je ne trouve pas grand chose... j'ai essaye en vain un truc du genre:

Code :

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

1
2
3
4
5
6
On error Resume Next
Windows("NOM ERs%").Activate
If Err <> 0 then
MsgBox "No File"
End
End If

Mais comme vous vous en doutez ca n'a pas fonctionné.

Merci d'avance

[Benjamin.Dohogne]

OK j'ai trouvé... merci quand meme!

Code :

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

1
2
3
4
5
6
7
8
9
10
11
My_File = ""
a = Windows.Count
For i = a To 1 Step -1
If UCase(Left(Windows(i).Caption, 7)) = "NOM ERS" Then My_File = Windows(i).Caption
Next i
if My_File = "" then
MsgBox "No File"
End
Else
Windows(My_File).Activate
End If