Savoir si le fichier est déja ouvert

[typiquement]

Bonjour,

Je voudrais connaitre le code VBA pour savoir si un fichier(.xls par ex) est déja ouvert mais sur mon poste, pas ouvert par quelqu'un sur le réseau.

Merci d'avance

 

[Baside]

Re : Savoir si le fichier est déja ouvert

Bonsoir le Forum,

Une macro récupérée sur la toile:

Sub OuvreSiPasOuvert()
Dim Worbk As Workbook
On Error Resume Next
Set Worbk = Workbooks("NomDuFichier.xls")
On Error GoTo 0
If Worbk Is Nothing Then
Workbooks.Open "D:\TonChemin\NomDuFichier.xls"
Else: Set Worbk = Nothing
End If
End Sub

Il faut remplacer NomDuFichier par le tien et TobChemin par le chemin du fichier, c'est tout.

Amicalement, Hervé.

 

[typiquement]

Re : Savoir si le fichier est déja ouvert

Merci bien pour ces informations nocturnes