P
paul
Guest
Bonsoir à tous,
Voila j'ai trouve un bout de code sur le site qui "apparement" permets de remplir des "Textbox" dans word depuis un classeur excel.
Le problème est que je n'arrive pas a creer un champ "Textbox" dans word.
Qq'un a t'il une idee de comment créer se champ dans le document word ? (je sais que c'est le grand match à la tele mais cette histoire commence à m'agaser )
Merci d'avance
Paul
PS : voici le code
Private Sub CourrierWord()
Dim AppWord As New Word.Application
Set AppWord = New Word.Application
With AppWord
.Documents.Open ("d:\Mes Documents\Courrier.doc")
.ActiveDocument.TextBox1.Value = Cells(1, 1).Value
.ActiveDocument.TextBox2.Value = Cells(1, 2).Value
.ActiveDocument.TextBox3.Value = Cells(1, 3).Value
.ActiveDocument.TextBox4.Value = Cells(1, 4).Value
.ActiveDocument.TextBox5.Value = Cells(1, 5).Value
.ActiveDocument.PrintOut
.ActiveDocument.Close
End With
Set AppWord = Nothing
End Sub
Voila j'ai trouve un bout de code sur le site qui "apparement" permets de remplir des "Textbox" dans word depuis un classeur excel.
Le problème est que je n'arrive pas a creer un champ "Textbox" dans word.
Qq'un a t'il une idee de comment créer se champ dans le document word ? (je sais que c'est le grand match à la tele mais cette histoire commence à m'agaser )
Merci d'avance
Paul
PS : voici le code
Private Sub CourrierWord()
Dim AppWord As New Word.Application
Set AppWord = New Word.Application
With AppWord
.Documents.Open ("d:\Mes Documents\Courrier.doc")
.ActiveDocument.TextBox1.Value = Cells(1, 1).Value
.ActiveDocument.TextBox2.Value = Cells(1, 2).Value
.ActiveDocument.TextBox3.Value = Cells(1, 3).Value
.ActiveDocument.TextBox4.Value = Cells(1, 4).Value
.ActiveDocument.TextBox5.Value = Cells(1, 5).Value
.ActiveDocument.PrintOut
.ActiveDocument.Close
End With
Set AppWord = Nothing
End Sub