nom d\'1 produit ds une zone de texte excel

[moucr]

Comme le dit le titre, je veux insérer ds une zone de texte d'1 fichier excel le nom d'un produit

j'en suis là :

 

Nomproduit = product1.Definition

Dim monexcel As Object

Set monexcel = GetObject(, "Excel.Application")

monexcel.Application.Visible = True

monexcel.Parent.Windows(1).Visible = True

 

Set Nomproduit = monexcel.ActiveSheet.Shapes("Text Box 121")

Nomproduit.select

Nomproduit.Selection.Characters.Text = "test"

 

je sélectionne bien la zdt mais j'arrive pas à trouver comment modifier le texte de celle-ci

 

excel me donne ça :

ActiveSheet.Shapes("Text Box 121").Select

selection.Characters.Text = "test"

 

j'ai essayé plein de trucs mais rien ne marche .................

 

[mooneck]

Quand je fais la meme manip sur excel, je n'obtiens pas tout a fait la meme chose

 

 

 

  [surligneur] ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, 142.5, 62.25, _
       191.25, 96#).Select
   Selection.Characters.Text = ""[/surligneur]    With Selection.Font
       .Name = "Arial"
       .FontStyle = "Normal"
       .Size = 10
       .Strikethrough = False
       .Superscript = False
       .Subscript = False
       .OutlineFont = False
       .Shadow = False
       .Underline = xlUnderlineStyleNone
       .ColorIndex = xlAutomatic
   End With
   Range("C15").Select
   ActiveSheet.Shapes("Text Box 1").Select
   Selection.Characters.Text = "bonjour"
   With Selection.Characters(Start:=1, Length:=7).Font
       .Name = "Arial"
       .FontStyle = "Normal"
       .Size = 10
       .Strikethrough = False
       .Superscript = False
       .Subscript = False
       .OutlineFont = False
       .Shadow = False
       .Underline = xlUnderlineStyleNone
       .ColorIndex = xlAutomatic
   End With
   Range("C16").Select
   ActiveSheet.Shapes("Text Box 1").Select
   Selection.Characters.Text = "au revoir"
   With Selection.Characters(Start:=1, Length:=9).Font
       .Name = "Arial"
       .FontStyle = "Normal"
       .Size = 10
       .Strikethrough = False
       .Superscript = False
       .Subscript = False
       .OutlineFont = False
       .Shadow = False
       .Underline = xlUnderlineStyleNone
       .ColorIndex = xlAutomatic
   End With
   Range("C16").Select

 

 

La création de la text box n'est pas identique !

 

@+