Fichier ouvert sur cloud

Le
Brat'ac
Bonjour,

Comment faire pour savoir un fichier est déjÍ  ouvert sur le cloud par
un autre utilisateur ?
Excel et Word aussi si possible.

Merci
  • Partager ce contenu :
Vos réponses
Trier par : date / pertinence
MichD
Le #26561780
Le 03/12/20 Í  06:04, Brat'ac a écrit :
Bonjour,
Comment faire pour savoir un fichier est déjÍ  ouvert sur le cloud par un
autre utilisateur ?
Excel et Word aussi si possible.
Merci

Bonjour,
Une réponse que j'ai donnée récemment ici.
Dans la procédure TestVBA(), tu affectes Í  la variable "Fichier" le nom
du fichier Í  tester, Excel ou Word.
'-----------------------------
Sub TestVBA()
Dim Fichier As String
Fichier = ThisWorkbook.Name
If IsFileOpen(Fichier) Then
If MsgBox(Fichier & " est déjÍ  ouvert en lecture seule.
Désirez-vous continuer?", vbYesNo, "Fichier déjÍ  ouvert") = vbYes Then
Else
ThisWorkbook.Close
End If
End If
End Sub
'-----------------------------
Function IsFileOpen(Fichier As String) As Boolean
Dim hdlFile As Long
On Error GoTo FileIsOpen:
hdlFile = FreeFile
Open Fichier For Random Access Read Write Lock Read Write As hdlFile
IsFileOpen = False
Close hdlFile
Exit Function
FileIsOpen:
IsFileOpen = True
Close hdlFile
End Function
'-----------------------------
MichD
Brat'ac
Le #26561883
MichD a écrit :
Le 03/12/20 Í  06:04, Brat'ac a écrit :
Bonjour,
Comment faire pour savoir un fichier est déjÍ  ouvert sur le cloud par un
autre utilisateur ?
Excel et Word aussi si possible.
Merci

Bonjour,
Une réponse que j'ai donnée récemment ici.
Dans la procédure TestVBA(), tu affectes Í  la variable "Fichier" le nom du
fichier Í  tester, Excel ou Word.
'-----------------------------
Sub TestVBA()
Dim Fichier As String
Fichier = ThisWorkbook.Name
If IsFileOpen(Fichier) Then
If MsgBox(Fichier & " est déjÍ  ouvert en lecture seule. Désirez-vous
continuer?", vbYesNo, "Fichier déjÍ  ouvert") = vbYes Then
Else
ThisWorkbook.Close
End If
End If
End Sub
'-----------------------------
Function IsFileOpen(Fichier As String) As Boolean
Dim hdlFile As Long
On Error GoTo FileIsOpen:
hdlFile = FreeFile
Open Fichier For Random Access Read Write Lock Read Write As hdlFile
IsFileOpen = False
Close hdlFile
Exit Function
FileIsOpen:
IsFileOpen = True
Close hdlFile
End Function
'-----------------------------
MichD

Merci du retour, je regarde
Poster une réponse
Anonyme