Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
MichD
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
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
'-----------------------------
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
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
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
'-----------------------------
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
