lecture seul

eduraiss · 7 Septembre 2007

Bonjour le forum

j'ai besoin de votre aide pour la chose suivante

j'ai un dossier sur un reseau avec plusieurs fichiers, sur ses fichiers j'ai des macro qui me permette d'en ouvrir quelques uns

Si j'ouvre un fichier a l'aide d'une macro et si celui-ci est deja ouvert sur un autre ordinateur il ne me previens pas que je suis en lecture seul, sauf a la fermeture, si je veux enregister la par contre je ne peux pas

Merci a vous

fredl · 29 Novembre 2007

Re : lecture seul

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

lecture seul

eduraiss

XLDnaute Accro

fredl

XLDnaute Impliqué

Discussions similaires

lecture seul

eduraiss

XLDnaute Accro

fredl

XLDnaute Impliqué

Discussions similaires

Privacy & Transparency

Privacy & Transparency