Discussion :

[GeyGeyJi]

Bonjour,

Je n'arrive pas à solutionner un problème d'erreur automation sur un fichier partagé utilisant dans un module, une fonction personnalisée "existeFichier" trouvée sur ce forum.
Quand j'ouvre en premier, le fichier partagé en question, aucun problème n’apparaît et les cellules qui utilisent la fonction "existeFichier" donnent le résultat mais quand un deuxième utilisateur de l'entreprise utilise ce même fichier partagé, une erreur automation apparaît sur son PC et il en est de même pour les autres utilisateurs de ce fichier. Il est alors impossible de débugger car l'application Excel est plantée et il me faut l’arrêter via le gestionnaire de tâches.
Si je retire le partage de ce fichier, il n'y a plus de problème, même pour les utilisateurs utilisant ce fichier en mode "Lecture".
D'autre part, si je retire cette fonction personnalisée de ce fichier partagé alors le problème n’existe plus et toutes les macros de ce fichier fonctionnent parfaitement et ce quelque soit le nombre de personnes utilisant ce fichier.
Dans la mesure du possible, je souhaiterai laisser cette fonction personnalisée dans ce fichier partagé et ne pas avoir à l'enregistrer dans un fichier .xla ou .xlam.

Quelqu'un pourrait il m'aider à solutionner ce problème ? Merci d'avance.

Ci-dessous le code de cette fonction personnalisée

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Function existeFichier(fichier, Optional répertoire)
   Application.Volatile
   If IsMissing(répertoire) Then répertoire = ThisWorkbook.Path
   temp = Dir(répertoire & "\" & fichier)
   existeFichier = (temp <> "")
End Function

[Patrice740]

Bonjour,

Essaies en supprimant Application.Volatile (qui n'est pas utile dans ce cas)

[GeyGeyJi]

Bonjour Patrice740,

Merci pour ton aide et j'ai essayé ce matin en retirant "Application.Volatile", mais hélas même erreur. J'avoue que je désespère d'autant que je n'arrive pas à trouver sur le net une solution à ce problème.

[unparia]

Bonjour
Je ne vois dans ton code rien qui provoquerait cette erreur.
Il se peut par contre qu'elle surgisse (mais ailleurs dans ton code) si est ouvert le fichier (si non partagé, lui) dont le chemin est :

répertoire & "\" & fichier

alors indisponible tant qu'il n'est pas refermé.

[GeyGeyJi]

Bonjour,

Merci pour votre attention sur ce problème et, suite à votre remarque, et compte tenu que c'est un fichier que j'ai créé et utilise au travail, demain matin, je modifierai le fichier pour que la fonction "existefichier" pointe sur un seul fichier dont je suis certain qu'il n'est pas ouvert afin de voir si cela solutionne le problème et je vous tiens informé.

[GeyGeyJi]

Bonjour,
Comme convenu, je reviens sur le sujet et j'ai donc suivi ta recommandation (unparia) en allant un peu plus loin, à savoir j'ai créé un fichier simplifié avec la dite macro "Function existefichier" avec dans la feuil1, et dans une seule cellule, une formule utilisant la fonction personnalisée "existefichier" et pointant sur un fichier dont je suis certain qu'il n'est pas ouvert, puis j'ai partagé le fichier.
Grosse surprise, ça fonctionne sur tous les PCs qui veulent utiliser ce fichier partagé, et donc il est maintenant clair que le problème ne vient pas de la macro :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Function existeFichier(fichier, Optional répertoire)
   Application.Volatile
   If IsMissing(répertoire) Then répertoire = ThisWorkbook.Path
   temp = Dir(répertoire & "\" & fichier)
   existeFichier = (temp <> "")
End Function

J'ai donc poursuivit ma recherche du problème sur le fichier d'origine (celui où j'ai le problème) et j'ai finalement trouvé, que c'est une formule qui est à l'origine de cette erreur "erreur automation".
La formule en question est celle-ci :

=SI(AA5="";"";SI(existefichier("PLC_"&G5&"*";+Repertoire_archives_PLC)=FAUX;LIEN_HYPERTEXTE(AA5;"PL");LIEN_HYPERTEXTE(AA5;"PL + PLC")))

et ce qui est étonnant, si je la remplace par :

=existefichier("PLC_"&G5&"*";+Repertoire_archives_PLC)

, je n'ai plus cette erreur automation même si bien évidemment le résultat n'est pas celui escompter.

Il me faut donc poursuivre ma recherche pour savoir pourquoi la formule :

=SI(AA5="";"";SI(existefichier("PLC_"&G5&"*";+Repertoire_archives_PLC)=FAUX;LIEN_HYPERTEXTE(AA5;"PL");LIEN_HYPERTEXTE(AA5;"PL + PLC")))

donne cette erreur automation et si quelqu'un a une idée, je suis preneur.