Bonjour à tous,
Je cherche depuis ce week end une solution pour intégrer des données contenus dans un textbox vers un champ word.
J'arrive à ouvrir mon document Word à partir de la VBA d'Excel, mais je n'arrive pas à transferer les infos. J'ai essayé pas mal de chose mais rien ne fonctionne !!!
Voici mon bout de code :
Strplanning = Sheets("Données").Range("c2").Value
Dim WdApp As Object
Dim WdDoc
Set WdApp = CreateObject("Word.Application")
Set WdDoc = WdApp.Documents.Open(Filename:=Strplanning + "Fiche dossier client.doc")
DoEvents
WdApp.Visible = True
Wdoc.Fields("societe").Text = Ficheclient.societe1.Value 'c'est là que je bloque !!!
DoEvents
WdDoc.Close True 'Enregistre le document et le ferme
DoEvents
WdApp.Quit 'Ferme Word
Set WdApp = Nothing
Set WdDoc = Nothing
Merci d'avance à tous ceux qui voudront bien m'aider.
Je cherche depuis ce week end une solution pour intégrer des données contenus dans un textbox vers un champ word.
J'arrive à ouvrir mon document Word à partir de la VBA d'Excel, mais je n'arrive pas à transferer les infos. J'ai essayé pas mal de chose mais rien ne fonctionne !!!
Voici mon bout de code :
Strplanning = Sheets("Données").Range("c2").Value
Dim WdApp As Object
Dim WdDoc
Set WdApp = CreateObject("Word.Application")
Set WdDoc = WdApp.Documents.Open(Filename:=Strplanning + "Fiche dossier client.doc")
DoEvents
WdApp.Visible = True
Wdoc.Fields("societe").Text = Ficheclient.societe1.Value 'c'est là que je bloque !!!
DoEvents
WdDoc.Close True 'Enregistre le document et le ferme
DoEvents
WdApp.Quit 'Ferme Word
Set WdApp = Nothing
Set WdDoc = Nothing
Merci d'avance à tous ceux qui voudront bien m'aider.