VBA Excel => VBA Word

Bonjour à tous,

Je souhaite , en gros, introduire des données dans Excel et par un code Vba :

1- ouvrir Word
2- me rendre à un signet prédéfini dans le document word
3- insérer une zone de texte dans word a la place du signet
4- la déplacer par rapport a ce signet (haut, bas, gauche, droite)
5- insérer la valeur provenant d'Excel dans ce textbox
6- aller a la ligne et recommencer.

avec ce code : (qui n'est pas de moi mais que j'ai glané a gauche et a droite... respectons le droit d'auteur ;-))

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

Sub EcriDansWord() Dim WordObj As Object   On Error Resume Next     Set WordObj = CreateObject("Word.Application")   WordObj.Visible = True   WordObj.Documents.Open ("C:\test\test.docx") '=====> ouverture de Word   WordObj.Bookmarks("Nom").Selection '=====> Selection du signet Nom   Set Box = WordObj.ActiveDocument.Shapes.AddTextbox(Orientation:=msoTextOrientationHorizontal, Left:=50, Top:=50, Width:=100, Height:=100).Select '=====> insertion du textbox   WordObj.TypeText Text:="Procédure pour écrire dans Word " '=======> j'espérais écrire mais ca marche pas   End Sub

---

Donc j'arrive a ouvrir le bon document Word ,j'arrivais (pas avec ce code) a insérer du texte derrière un signet dans un textbox prédéfini et existant dans le document Word.

Ce que je ne trouve nul part, c'est les propriété des textbox Word, comme un nom précis pour appeler chaque texte box, je ne trouve pas non plus comment y ajouter du texte dedans, ni comment l'insérer après le signet et non en "position global" Left:=50, Top:=50

Quelqu'un aurait il une idée?

Merci à tous d'avance.

Salut,

C'est pas si simple.

Deux sortes de TextBoxes existent en Word, les Shapes et les InlineShapes.
Les premiers sont situés sur une page par rapport à cette page.
Les seconds sont alignés sur le texte mais ne peuvent être déplacés sans le texte.
Si dans le second cas, on décide de change de type et de passer d'un InlineShape vers un Shape, on le positionne par rapport à la page et pas par rapport à un signet.

On pourrait récupérer la position du signet sur la page et utiliser cette position pour placer le Shape.

arg....

Merci pour ta réponse.

Si je prends le problème dans un autre sens, que je crée un document word type avec tous les textbox prévu au maximum. Dans chaque textbox je place un signet. dans ma routine excel, je place le texte en fonction des signet.

Est il possible de créer un code qui supprime les textbox vide dans word?

Peut on aussi les sélectionner toutes et modifier leurs propriétés? Par exemple mettre le cadre sans couleurs,.....

Merci pour ton aide.

Bonjour,

C'est bizarre, mais quand je lis tout cela, je te dirais de faire un publipostage qui n'est pas un publipostage. Dans le fond, le publipostage c'est juste d'insérer les données d'une source de données à des endroits déterminés d'un texte. Personne n'a dit que les champs de la source de données doivent obligatoirement s'appeler Prénom, Nom, Adresse ...

Merci pour ta réflexion, mais...

Ce que je souhaite c'est une mise en forme du texte du style :

Pièce jointe 168706


Donc je pense que en "automatique" pour faire un alignement comme cela je dois passer par des zones de texte non? Les différents champs viennent de Excel

Si y a d'autre idées, ne pas hésiter :ptdr: