Pilotage Word : Prendre la valeur d'une cellule Excel et l'insérer dans un champ Word

[jozerebel]

Bonjour à tous,

Tout est dit dans le titre,...

Je souhaiterais par macro, récupérer la valeur d'une cellule Excel (jusque là tout va bien 🙄)... puis ouvrir un fichier Word en mode formulaire (et donc protégé) et insérer cette valeur dans un champ dont je connais le nom... (et là, tout se gatte...😱)...

Une idée?

Je suis allé voir dans le forum, il y a bien des tutos pour piloter word, mais je ne trouve pas (ou n'ai pas su trouvé) une réponse à mon pb.

Merci pour votre aide!

 

[jozerebel]

Re : Pilotage Word : Prendre la valeur d'une cellule Excel et l'insérer dans un champ

j'avance un peu... mais malheureusement, pas moyen de remplir le champ word... voilà ma macro :

Sub Vers_Word()
Dim NDF As String, NDF2 As String
Dim WordApp As Word.Application
Dim WordDoc As Word.Document
Dim client As String


NDF = ActiveWorkbook.Path & "\CIPRESTATION.doc"
NDF2 = ActiveWorkbook.Path & "\Document" & Sheets("Feuil1").Range("G4").Text & ".doc"

client = Sheets("Feuil1").Range("G4").Value
On Error Resume Next
Set WordApp = CreateObject("Word.Application")
Set WordDoc = WordApp.Documents.Open(NDF, ReadOnly:=True)
With WordApp
.Visible = True

ActiveDocument.FormFields("client").Result = client


End With

End Sub



si quelqu'un peut m'aider!

Merci

 

[jozerebel]

Re : Pilotage Word : Prendre la valeur d'une cellule Excel et l'insérer dans un champ

Bonjour à tous,

désolé de relancer, mais je suis bloqué...

Quelqu'un peut-il m'aider?

d'avance merci pour votre patience et votre aide.