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 : Sélectionner tout - Visualiser dans une fenêtre à part
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.