Comment faire, dans une macro, pour savoir si le fichier untel.xls est ouvert (sans pour autant être actif)
Une parmi....
Sub zzz() On Error Resume Next x = Workbooks("Untel.xls").Sheets.Count If Err.Number <> 0 Then MsgBox "le fichier Untel.xls n'est pas ouvert!" End Sub
AV
Jean-François Aubert
Salut,
une autre:
Sub yyyy() For i = 1 To Workbooks.Count If Workbooks(i).Name = "Classeur2.xls" Then MsgBox "Ouvert": Exit Sub Next MsgBox "pas ouvert" End Sub
-- Amicalement
Jean-François Aubert {Vaudois de la Côte Lémanique}
"zorro" a écrit dans le message de news: 0ba601c500a0$58d74f00$ J'ai plusieurs fichiers *.xls qui sont ouverts en même temps.
Comment faire, dans une macro, pour savoir si le fichier untel.xls est ouvert (sans pour autant être actif)
A+
Salut,
une autre:
Sub yyyy()
For i = 1 To Workbooks.Count
If Workbooks(i).Name = "Classeur2.xls" Then MsgBox "Ouvert": Exit Sub
Next
MsgBox "pas ouvert"
End Sub
--
Amicalement
Jean-François Aubert
{Vaudois de la Côte Lémanique}
"zorro" <anonymous@discussions.microsoft.com> a écrit dans le message de
news: 0ba601c500a0$58d74f00$a501280a@phx.gbl...
J'ai plusieurs fichiers *.xls qui sont ouverts en même
temps.
Comment faire, dans une macro, pour savoir si le
fichier untel.xls est ouvert (sans pour autant être
actif)
