Tester si workbooks.open a bien ouvert en ecritur

okparanoid · 31 Mars 2006

Bonjour a tous !!

Je voudrais ouvrir un fichier (dans une macro) susceptible d'etre deja ouvert par un autre utilisateur sur le reseau.

Si le fichier n'est pas ouvert en ecriture je veux arreter ma macro sans que l'utilisateur est un message d'excel lui proposant de l'ouvrir en lecture seule.

Merci

fredl · 29 Novembre 2007

Re : Tester si workbooks.open a bien ouvert en ecritur

essaie ça : (ton fichier étant ouvert)
Sub fermerSiDejaUtilise()
Dim Users()
On Error GoTo 10 'il y aura erreur si le fichier est en lecture seule
Users = ActiveWorkbook.UserStatus
Exit Sub
10
MsgBox "fichier déjà utilisé par une autre personne- veuillez reessayer plus tard - merci"
Windows("tonfichier.xls").Close savechanges:=False
Application.Quit
End Sub

Tester si workbooks.open a bien ouvert en ecritur

okparanoid

Guest

fredl

XLDnaute Impliqué

Discussions similaires