Re : Imprimer un document word avec les données de certaines cellules d'excel
olivier_bahrein à dit:
Bonjour,
J'ai un modèle de document word (note de service.doc).
Je souhaiterias l'ouvrir à partir d'excel et y coller à certains endroits, le contenu de certaines cellules.
-Comment ouvrir word avec ce nom de fichier ?
-comment insérer ces champs aux endroits où je le souhaite ?
- comment enregistrer ce document word avec un autre nom (exemple: note de service + date du jour)
- comment imprimer ce document word et fermer word ?
Le tout dans une procédure bouton_click d'excel.
Merci de votre aide.
Olivier./.
Je viens de trouver un code qui répond en partie à mes demandes mais j'ai encore quelques peits soucis:
'
Private Sub BtNoteService_Click()
Dim LaLettre As String
Dim LeMontant
Dim LeTexte2
Dim ObjWord As Word.Application
Dim LeDocWord As Word.Document
On Error Resume Next
LaLettre = ThisWorkbook.Path & "\jourof.doc"
Set ObjWord = CreateObject("Word.Application")
ObjWord.Visible = True
Set LeDocWord = ObjWord.Documents.Open(LaLettre)
LeMontant = [C5]
LeTexte2 = [C6]
With LeDocWord
'Le nom du signet dans le document word est ici "Monsignet1"
.Bookmarks("Monsignet1").Range.Text = LeMontant
'Le nom du signet dans le document word est ici "Monsignet2"
.Bookmarks("Monsignet2").Range.Text = LeTexte2
End With
End Sub
Donc avec ce code: deux problèmes:
1- j'ai une erreur sur la déclaration des variables:
Dim ObjWord As Word.Application
Dim LeDocWord As Word.Document
"erreur de compliation, type défini par l'utilisateur non défini"
2- les cellules C5 et C6 contiennent des dates au format "jeudi 2 novembre 2006" (soit jjjj j mmmm aaaa) mais lorsque ces cellules sont importées dans les signets word, le format revient à jj/mm/aa ce que je ne souhaite pas.
Pouvez vous m'indiquer comment corriger ces problèmes ?
Merci,
Olivier./.