Problème macro en mode partagé - Labels
Bonjour, je suis débutant, le problème n'est donc certainement pas très complexe :oops:
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:
Citation:
La méthode 'Select de l'objet 'Shape' a échoué
Le code bloquant à cette ligne:
Code:
1
2
| ActiveSheet.Shapes("Label 8").Select
Selection.Characters.Text = "Fixed: " & m |
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.
avec
Code:
ActiveWorkbook.ExclusiveAccess
et
Code:
1
2
| ActiveWorkbook.SaveAs Filename:=ActiveWorkbook.FullName, _
accessMode:=xlShared |
À présent tout fonctionne normalement, mais il y a maintenant un temps de latence très pénible, correspondant au passage share/unshare.
Il faut absolument que cette macro puisse s'executer rapidement. (elle s'execute souvent)
Any idea?
(désolé si je ne suis pas clair)
