Bonjour,
Je débarque sur le forum, alors pardonnez-moi par avance si la question a déjà été abordée.
J'utilise un google drive pour partager des fichiers Excel. contrairement à Dropbox, Google Drive n'avertit pas si un fichier est déjà ouvert par un tiers (en tous les cas si on n'ouvre pas le fichier sous forme de google sheet).
J'ai créé un fichier gestionnaire sous excel qui permet de savoir si un autre fichier excel est ouvert et s'il ne l'est pas, il ouvre le fichier en question, sinon, il avertit que le fichier est ouvert par un tiers. (j'ai mis des liens absolus) :
Sub Bouton1_Cliquer()
Dim dossier As String
dossier = ThisWorkbook.Path & "\"
'
If IsFileOpen(dossier & "fichier.xlsx") Then
MsgBox "Le fichier est déjà utilisé. Veuillez attendre que l'utilisateur ait terminé"
Else
MsgBox "Vous pouvez Ouvrir le fichier"
Workbooks.Open dossier & "fichier.xlsx"
End If
End Sub
Ca fonctionne sur mon PC. J'ai testé avec un collègue, en ayant ouvert le fichier "fichier.xlsx". Quan il utilise ce gestionnaire qui est sous notre drive partagé, il ne lui indique pas que le fichier est ouvert.
Quelqu'un a-t-il déjà eu ce problème à traiter ?
Merci par avance pour vos suggestions.
très bonne journée
Eric
Je débarque sur le forum, alors pardonnez-moi par avance si la question a déjà été abordée.
J'utilise un google drive pour partager des fichiers Excel. contrairement à Dropbox, Google Drive n'avertit pas si un fichier est déjà ouvert par un tiers (en tous les cas si on n'ouvre pas le fichier sous forme de google sheet).
J'ai créé un fichier gestionnaire sous excel qui permet de savoir si un autre fichier excel est ouvert et s'il ne l'est pas, il ouvre le fichier en question, sinon, il avertit que le fichier est ouvert par un tiers. (j'ai mis des liens absolus) :
Sub Bouton1_Cliquer()
Dim dossier As String
dossier = ThisWorkbook.Path & "\"
'
If IsFileOpen(dossier & "fichier.xlsx") Then
MsgBox "Le fichier est déjà utilisé. Veuillez attendre que l'utilisateur ait terminé"
Else
MsgBox "Vous pouvez Ouvrir le fichier"
Workbooks.Open dossier & "fichier.xlsx"
End If
End Sub
Ca fonctionne sur mon PC. J'ai testé avec un collègue, en ayant ouvert le fichier "fichier.xlsx". Quan il utilise ce gestionnaire qui est sous notre drive partagé, il ne lui indique pas que le fichier est ouvert.
Quelqu'un a-t-il déjà eu ce problème à traiter ?
Merci par avance pour vos suggestions.
très bonne journée
Eric