Coller une variable dans un "shape"

Bonjour
J'essaier de coller le contenu du presse-papier dans un "Shape Text"
Je récupère le presse papier dans une variable et qund je veux coller cette variable dans le shape, rien ne se passe.
Si je colle du texte, cela fonctionne ???

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Sub CopyText()   Set MaDonnee = New DataObject   MaDonnee.GetFromClipboard Texte = MaDonnee.GetText(1)   ActiveSheet.Shapes("Text Box 1").Select Shapes("Text Box 1").TextFrame.Characters.Text = "" Shapes("Text Box 1").TextFrame.Characters.Text = Texte Range("a1").Select   End Sub

---

mais cela fonctionne :

Code:

---

1 2	Shapes("Text Box 1").TextFrame.Characters.Text = "dfjgdfkl"

---

merci d'avance

Bonjour,
vérifie la vaeur de texte, en t'arretant sur :

Code:

---

Texte = MaDonnee.GetText(1)

---

Bonjour,

Il y a une erreur de syntaxe dans l'utilisation de la Shape.
Si tu veux passer par la sélection de cette shape, la syntaxe est la suivante :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Sub CopyText()   Set MaDonnee = New DataObject   MaDonnee.GetFromClipboard Texte = MaDonnee.GetText(1)   ActiveSheet.Shapes("Text Box 1").Select Selection.Characters.Text = "" Selection.Characters.Text = Texte Range("a1").Select   End Sub

---

Il est également possible d'éviter cette sélection

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Sub CopyText()   Set MaDonnee = New DataObject   MaDonnee.GetFromClipboard Texte = MaDonnee.GetText(1)   With ActiveSheet.Shapes("Text Box 1") .TextFrame.Characters.Text = "" .TextFrame.Characters.Text = Texte End With   End Sub

---

j'ai peut-être tort mais ceci m'étonne :

Code:

---

With ActiveSheet.Shapes("Text Box 1")

---

ça ne serait pas plutot :

Code:

---

With ActiveSheet.Shapes("TextBox1")

---

Il ne s'agit pas d'un TextBox issu de la boîte à outils "Contrôles" mais d'une zone de texte, issue du menu "Dessin", nommée "Text Box 1"

Bonjour à Tous

J'ai modifié le code comme ceci :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Sub CopyText()   Set MaDonnee = New DataObject   MaDonnee.GetFromClipboard Texte = MaDonnee.GetText(1) Shapes("Text Box 1").Select With ActiveSheet.Shapes("Text Box 1") .TextFrame.Characters.Text = "" .TextFrame.Characters.Text = Texte End With   End Sub

---

Le shapes s'appelle bien "Text Box 1"
Quand je fais la macro, j'ai bien "Texte" qui a pris la valeur voulue.

Mais le Frame reste vide, la valeur ne se colle pas à l'intérieur.

je ne comprend pas

bonjour,

si je fait comme ceci, cela fonctionne très bien

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Sub CopyText() Dim MaDonnee As DataObject Dim texte As String   Set MaDonnee = New DataObject MaDonnee.GetFromClipboard texte = MaDonnee.GetText(1)   With ActiveSheet.Shapes("Text Box 1") .TextFrame.Characters.Text = "" .TextFrame.Characters.Text = texte End With   End Sub

---

maintenant question bete :
les couleurs de texte ne se confondent pas avec l'arrière plan du shape ???

Hello en fait cela fonctionne très bien....

sauf s'il y a trop de ligne.
Je copie ces donnée depuis un "Host" et il semblerait qu'il y a un problème avec les saut des lignes ou la quantité de texte...

Merci à Vous pour votre aide

Je reviendrais si je ne trouve pas ou se situe le problème....