FullMetalKnet
XLDnaute Nouveau
Bonjour ou bonsoir à tous,
Je souhaiterais remplir une feuille word par des données d'excel via un userform et des textbox, je pense que le code ci dessous fonctionne sauf que je pense qu'il me manque quelques chose sur word
Private Sub CommandBouton1_Click()
Dim wrdApp As Object
Dim wrdDoc As Object
Set wrdApp = CreateObject("Word.Application")
Set wrdDoc = wrdApp.Documents.Open("C:\Users\Olivier\Excel\en cours\Doc3.docx")
wrdApp.ShowMe ' pour afficher le document
wrdApp.Visible = True
With wrdDoc
wrdDoc.BookMarks("Texte1").Range.Text = Me.TxtNom.Value ca bloque ici
wrdDoc.BookMarks("Texte").Range.Text = Me.TxtPrenom.Value
.Protect wdAllowOnlyFormFields, True
End With
' pour sauvegarder le doc avec un nom spécifique, cela evite de modifier le modele.
wrdDoc.SaveAs ("C:\Users\Olivier\Excel\en cours\essai" & TxtNom.Value & ".docx")
End Sub
je suppose que j'ai pas fait correctement le signet ("texte1")
comment fait-on ces signet?
Merci d'avance
Je souhaiterais remplir une feuille word par des données d'excel via un userform et des textbox, je pense que le code ci dessous fonctionne sauf que je pense qu'il me manque quelques chose sur word
Private Sub CommandBouton1_Click()
Dim wrdApp As Object
Dim wrdDoc As Object
Set wrdApp = CreateObject("Word.Application")
Set wrdDoc = wrdApp.Documents.Open("C:\Users\Olivier\Excel\en cours\Doc3.docx")
wrdApp.ShowMe ' pour afficher le document
wrdApp.Visible = True
With wrdDoc
wrdDoc.BookMarks("Texte1").Range.Text = Me.TxtNom.Value ca bloque ici
wrdDoc.BookMarks("Texte").Range.Text = Me.TxtPrenom.Value
.Protect wdAllowOnlyFormFields, True
End With
' pour sauvegarder le doc avec un nom spécifique, cela evite de modifier le modele.
wrdDoc.SaveAs ("C:\Users\Olivier\Excel\en cours\essai" & TxtNom.Value & ".docx")
End Sub
je suppose que j'ai pas fait correctement le signet ("texte1")
comment fait-on ces signet?
Merci d'avance