XL 2016 Fichier Excel utilisation réseau

[cmdavid]

Bonjour à tous,
J'ai un fichier Excel qui peut être ouvert par plusieurs utilisateurs sur google drive. je cherche une macro pour indiquer à un utilisateur que le fichier qu'il vient d'ouvrir est déjà en cours d'utilisation par un autre utilisateur.

Merci pour votre aide,
Cordialement,

 

[cmdavid]

J'ai trouver une macro sur excel.malin, mais je sais pas comment l'adapter et ou la mettre dans la macro, feuil, thisworkboock, modules?

Sub ExempleTestOuvertureClasseur()
'par: https://excel-malin.com
Dim Verification As Boolean
Dim MonClasseur As String

MonClasseur = "C:\Test\MonClasseur.xlsx"

'd'abord le test si le fichier existe
If Len(Dir(MonClasseur)) = 0 Then 's'il n'existe pas, montrer un avertissement et quitter la macro
MsgBox "ERREUR: Le Classeur: [" & MonClasseur & "] n'existe pas..."
Exit Sub
Else
End If

'si le Classeur existe, vérifier s'il est déjà ouvert
Verification = EstClasseurOuvert(MonClasseur)

If Verification = True Then
MsgBox "Le Classeur: [" & MonClasseur & "] est déjà ouvert..."
Else
MsgBox "Le Classeur: [" & MonClasseur & "] n'est pas ouvert..."
End If
End Sub

 

[cmdavid]

Bonjour,
j'ai attaché un fichier, peut être que cela peut aider
merci pour votre aide
Cordialement,