Word Sauvegarder un doc word sous PDF

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

abdounet1

XLDnaute Nouveau
Bonjour,
j'utilise la macro ci-dessous pour remplir et imprimerun doc word.
je souhaite avoir la possibilité de sauvegarder sous pdf.

Voici le code:
'Imprimer un contrat
Private Sub ImprimerContrat_Click()
Dim wrdApp As Object
Dim wrdDoc As Object
Dim sPath As String, sFic As String
' Initialisation des variables
If Application.WorksheetFunction.CountIf(Sheets("contrats_en_cours").Range("d2:d2500"), Me.Compteur2.Text) = 0 Then MsgBox "Veuillez d'abord enregistrer ce contrat": Exit Sub
'sPath = ThisWorkbook.Path
sPath = "W:\Contrats de chantiers\Models"
sFic = "\" & TxtFonction.Text & ".docm"
' Création d'une instance Word
Set wrdApp = CreateObject("Word.Application")

Set wrdDoc = wrdApp.Documents.Open(sPath & sFic)
wrdApp.ShowMe ' pour afficher le document
wrdApp.Visible = True

With wrdDoc
.Bookmarks("Matricule").Range.Text = Me.TxtMat.Value 'ca bloque ici
.Bookmarks("Nom").Range.Text = Me.Txtnom.Value
.Bookmarks("Prénom").Range.Text = Me.TXTPrenom.Value
.Bookmarks("CIN").Range.Text = Me.txtCIN.Value
.Bookmarks("CNSS").Range.Text = Me.txtcnss.Value
.Bookmarks("Naissance").Range.Text = Me.txtnaissance.Value

If MsgBox("Êtes vous sûr de vouloir imprimer ce docuement?", vbYesNo, "Demande de confirmation") = vbYes Then
.PrintOut
End If
End With
wrdDoc.Close False 'ferme le document word en sauvegardant les données
wrdApp.Quit 'ferme la session Word
End Sub

Merci à vous
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Retour