Bonjour,
J'ai un fichier sur le reseau de mon entreprise qui est mis à jour par macro.J'utilise le code suivant pour verifier si le fichier est deja ouvert ou pas:
Ce code testé plusieurs fois avec le meme fichier et tout pareil marche tres bien que environ 8 fois sur 10. Les fois ou cela ne marche pas il ne m'ouvre pas le fichier en question. Peut etre un probleme d'acces reseau temporaire juste au moment ou la macro s'execute, j'en ai aucune idée...
Comment pourrais je ameliorer ce code ? Et eventuellement ajouter une fonction qui verifie que le fichier n'est pas en cours d'utilisation par un autre utilisateur sans passer par le partage de classeur car cela m'empeche d'utiliser des hyperliens dans ce fameux fichier listing.xls.
J'ai un fichier sur le reseau de mon entreprise qui est mis à jour par macro.J'utilise le code suivant pour verifier si le fichier est deja ouvert ou pas:
Code:
On Error Resume Next
Set Test_ouvert = Workbooks("listing.xls")
If Test_ouvert Is Nothing Then
Workbooks.Open cheminp & "listing.xls"
Else
Workbooks("listing.xls").Activate
End IfCe code testé plusieurs fois avec le meme fichier et tout pareil marche tres bien que environ 8 fois sur 10. Les fois ou cela ne marche pas il ne m'ouvre pas le fichier en question. Peut etre un probleme d'acces reseau temporaire juste au moment ou la macro s'execute, j'en ai aucune idée...
Comment pourrais je ameliorer ce code ? Et eventuellement ajouter une fonction qui verifie que le fichier n'est pas en cours d'utilisation par un autre utilisateur sans passer par le partage de classeur car cela m'empeche d'utiliser des hyperliens dans ce fameux fichier listing.xls.
