objet ou variable non défini... blablabla :(

[sylviecro]

Bonjour,

Encore moi
Je joins 2 fichiers pour que quelqu'un m'aide. J'aimerais que lorsque j'appuis sur le bouton de mon userform( présentement dans le classeur1), que le document word s'affiche en plein écran et qu'il remplisse ses champs via excel. J'ai fais plusieurs tentatives, visité plusieurs forums, et je n'arrive pas à comprendre.

Voici le code

Private Sub CommandButton1_Click()


Dim WordApp As Word.Application
Dim WordDocx As Word.Document

Set WordDocx = WordApp.Documents.Open("Bureau\lettre de presentation 2.docx")
WordApp.Visible = True

With Sheets("Donnée_client")
WordDocx.Civilité.Result.Text = Range("Q2")
WordDocx.expert.Result.Text = Range("R2")
' WordDocx.cause.Result.Text = Range("V2")
' WordDocx.adresse.Result.Text = Range("C2")
' WordDocx.ville.Result.Text = Range("D2")
' WordDocx.date_inter.Result.Text = Range("N2")
' WordDocx.prénom.Result.Text = Range("B2")
' WordDocx.Nom.Result.Text = Range("A2")
' WordDocx.chargé_projet.Result.Text = Range("J2")
' WordDocx.tél_cp.Result.Text = Range("K2")
' WordDocx.poste_cp.Result.Text = Range("W2")


End With
End Sub

 

[dg62]

Bonsoir,
Savez-vous qu'il est dangereux de laisser des informations personnelles dans un document !

 

[dg62]

Et pourquoi ne pas partir directement de Word ? c'est tout simple !

 

[sylviecro]

Bonsoir,
Savez-vous qu'il est dangereux de laisser des informations personnelles dans un document !

lol vous pensez vraiment que c'est du vrai!