Test si un classeur est ouvert sur serveur

[Ternoise]

Bonjour le forum

Je cherche à tester si un classeur est ouvert à l'aide d'un bouton et m'indiquer le résultat dans une boite de dialogue.

J'ai trouvé entre autres cette solution mais cela ne fonctionne pas.
Cela m'indique toujours que "Le classeur CHRONOS n'est pas ouvert" alors qu'il est bien ouvert

Sub Test_Ouvert()
On Error Resume Next
Workbooks("c:\DOSSIERS SALARIES\CHRONOS.xls").Activate
If Err <> 0 Then
MsgBox "Le classeur CHRONOS n'est pas ouvert"
Else : MsgBox "Le classeur CHRONOS est ouvert"
End If
End Sub

Mes classeurs sont sur un serveur et je me connecte en TS.
Mon classeur "test" avec le bouton est sur c:\DOSSIERS DIRECTION\TEST.xls
Le classeur a tester est sur c:\DOSSIERS SALARIES\CHRONOS.xls

Quand le classeur CHRONOS est ouvert sur la même session cela fonctionne mais pas dans une session différente.

Merci de votre aide
David

 

[kiki29]

Re : Test si un classeur est ouvert sur serveur

Salut, regarde ici et éventuellement adapte à ton contexte.

 

[Ternoise]

Re : Test si un classeur est ouvert sur serveur

Bonjour et merci. Cela fonctionne nickel

 

[job75]

Re : Test si un classeur est ouvert sur serveur

Bonsoir,

Annulé, je n'avais pas tout lu.