pb recup données shapes sur boite de texte

[skoizer]

Une petit question pour reduire monde code.
J'ai une boite de texte dans un fichier excel 2000, je veux recuperer le texte qu'il y a dedans (qu'une seule ligne).
premiére solution qui me va pas !

Dim strTemp As String
ActiveSheet.Shapes("LARR").Select
strTemp = Selection.Characters.Text

je voudrais avoir dur style

Dim strTemp As String
strTemp = ActiveSheet.Shapes("LARR").Characters.Text
mais cette derniére ne fonctionne pas !
Quelqu'un a une solution ?

 

[LaurentTBT]

Bonjour à tous

Skoizer, essaye ceci:
strTemp = ActiveSheet.Shapes("LARR").TextFrame.Characters.Text
J'espère que cela te dépannera.

Salut à tous.

Laurent.

 

[skoizer]

merci ct ça la solution ce TextFrame falait vraiment aller le chercher bien profondement dans l'aide

 

[LaurentTBT]

Re,

Un petit truc:
Utilise une variable objet, au moins pendant le développement si tu n'en as pas l'utilité utlérieurement dans ton programme:

Dim MonShape as Shape
Set MonShape=Activesheet.shapes("LARR")

Avantage: quand tu tapes
StrTemp=MonShape.
Dès que tu as tapé le point, VBA te propose la liste de tous les objets, méthodes, propriétés que tu peux appliquer à un objet Shape.
Cela m'a permis d'aller tout de suite essayer TextFrame, et c'est parfois plus rapide que d'aller rechercher au fin fond de l'aide.

Voilà, si ça peut aider...

Joyeux Noël à tous.
Laurent.