Bonjour, je suis débutant, le problème n'est donc certainement pas très complexe
J'ai 4 label remplis par des macros effectuant automatiquement des calculs simples lorsque certaines cellules sont modifiées.
La macro s'execute parfaitement si le fichier n'est pas partagé, mais s'il l'est, j'obtiens le message d'erreur suivant:
Le code bloquant à cette ligne:La méthode 'Select de l'objet 'Shape' a échoué
Le seul moyen que j'ai pu trouver c'est de "unshare" le fichier avant cette partie du code, puis de le share à nouveau à la fin de la macro.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2 ActiveSheet.Shapes("Label 8").Select Selection.Characters.Text = "Fixed: " & m
avec
et
Code : Sélectionner tout - Visualiser dans une fenêtre à part ActiveWorkbook.ExclusiveAccess
À présent tout fonctionne normalement, mais il y a maintenant un temps de latence très pénible, correspondant au passage share/unshare.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2 ActiveWorkbook.SaveAs Filename:=ActiveWorkbook.FullName, _ accessMode:=xlShared
Il faut absolument que cette macro puisse s'executer rapidement. (elle s'execute souvent)
Any idea?
(désolé si je ne suis pas clair)
Partager