[XL-2007] Problème macro en mode partagé - Labels

[paki888]

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:

La méthode 'Select de l'objet 'Shape' a échoué

Le code bloquant à cette ligne:

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

ActiveWorkbook.ExclusiveAccess

et

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)

[mapeh]

Bonjour,

cela dépend si c'est un label issu des Contrôles de Formulaires, ou des Contrôles ActiveX..

Si c'est Formulaires, essaie ainsi : (je le pense, comme il y a un espace entre Label et 8....)

ActiveSheet.Shapes("Label 8").OLEFormat.Object.Caption = "Fixed: " & m
 

Si c'est ActiveX :

ActiveSheet.Shapes("Label8").DrawingObject.Object.Caption = "Fixed: " & m

je n'ai pas essayé en mode partagé....

Mais peut-être?

Quoique, d'après l'aide Excel (Fonctionnalités non disponibles sur Classeur Partagé), ils disent ceci (entre autres) :

Opérations impossibles : Insérer ou modifier des images ou d’autres objets

Opérations possibles : Vous pouvez afficher des images et des objets existants.

Donc, il vaudrait peut-être mieux passer par une cellule...

[paki888]

Ca fonctionne parfaitement !!!!!
Merci infiniment

(c'etait un "Contrôle de Formulaires")