Test d'un fichier ouvert par un autre PC

[BELLON]

Bonjour,
J'aimerais avoir une aide pour contrôler si un fichier est déjà ouvert par un autre utilisateur.
Explication:
Un fichier 'base.xls' est sur un disque J et sous un répertoire 'Données'. Ce fichier peut être ouvert par plusieurs utilisateurs.
Je voudrais incorporer ds ma macro un test de contrôle sur ce fichier 'base' avant d'exporter mes données ds ce même fichier.
J'ai essayé d'utiliser ceci:
on error resume next
workbooks('base.xls').activate
if err=0 then
avert=Msgbox'..................',vbcritical
workbooks('bilan.xls').activate
exit sub
end if
Ceci fonctionne si le fichier 'base' est ouvert avec mon PC, mais rien ne se passe s'il est ouvert par un autre PC sur le réseau.
Merci d'avance pour votre aide.

 

[MichelXld]

bonsoir

j'espere que cet exemple pourra t'aider


Sub listerUtilsateursClasseur()
'http://msdn.microsoft.com/library/default.asp?url=/library/en-us/vbaxl11/html/xlproUserStatus1_HV05205754.asp
Dim Users()
Dim i As Byte

Users = ActiveWorkbook.UserStatus

With Workbooks.Add.Sheets(1)

For i = 1 To UBound(Users, 1)
.Cells(i, 1) = Users(i, 1)
.Cells(i, 2) = Users(i, 2)
Select Case Users(i, 3)
Case 1
.Cells(i, 3).Value = 'Exclusive'
Case 2
.Cells(i, 3).Value = 'Shared'
End Select
Next

End With
End Sub



bonne soirée
MichelXld

 

[BELLON]

Bonjour et merci d'avoir répondu.
Cette après midi, je vais incorporer cette solution dans ma macro au boulot.
Je vous tiens au courant du fonctionnement et merci encore.