Discussion :

[Invité]

Bon, ma question peut paraître stupide mais j'ai vraiment cherché partout et n'ai rien trouvé.
Comment faire pour écrire, via un code en VB, dans une "zone de texte" ou une textbox et surtout pour insérer cette textbox dans une page Word ?

Merci d'avance

[cerede2000]

Bonjour à toi,

Ajout d'une textbox et ecrit toto dedans :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Dim txt As InlineShape
    Set txt = Selection.InlineShapes.AddOLEControl("Forms.TextBox.1")
    txt.OLEFormat.Object.Value = "toto"

[Invité]

Super, ça marche ! Merci beaucoup

PS : Si tu as le temps je veux bien que tu m'expliques ton code, que je sois en mesure de le comprendre et de le refaire

[cerede2000]

Heu.... Y a 3 lignes !

Bon :
Déclare une variable de type InlineShape

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim txt As InlineShape

Créé un nouvel objet OLE qui est une textbox et affecte sa référence dans la variable objet

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set txt = Selection.InlineShapes.AddOLEControl("Forms.TextBox.1")

Défini la prorpiété Value de l'objet textbox avec le string toto

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

txt.OLEFormat.Object.Value = "toto"

[Invité]

A vrai dire c'était surtout la seconde ligne qui me posait problème avec le "OLE" mais je pense avoir compris ^^
Merci de ton aide en tout cas !