Macro Word enregistrer PDF avec signet de formulaire
V
J'ai créée un formulaire sous word et j'y ai intègré une macro pour l'enregistrement en PDF avec dans le titre, des éléments du formulaire.
Elle a fonctionné 1 fois.
Les autres fois j'ai des messages d'erreur différents. (problème avec le chemin d'accès ou avec le body format).
Je tourne en rond HELP
Voilà ma macro
Sub Macro1()
'
Dim Chemin As String
Dim NFichier As String
Dim Nom As String
Dim D?but As String
Chemin = ActiveWorkbook.Path & "\"
Nom = ActiveDocument.Bookmarks("Nom").Range.Text
D?but = ActiveDocument.Bookmarks("d?but").Range.Text
NFichier = "Demande CP/RTT " & Nom & " " & D?but & ".pdf" ' nom d'enregistrement du pdf Salari? + p?riode
ActiveDocument.ExportAsFixedFormat outputFileName:=Chemin & NFichier, _
exportFormat:=wdExportFormatPDF
' enregistrement'
Set OApp = CreateObject("Outlook.Application") ' envoi par mail outlook
Set OMail = OApp.CreateItem(0)
With OMail
.Display
.To = "yz"
.Subject = "Demande CP/RTT"
.Attachments.Add ActiveDocument.Path & "/" & NFichier
.BodyFormat = olFormatRichText
.Body = "Tu trouveras ma prochaine feuille de CP/RTT pour le" & D?but
.Send
End With
End Sub
m
Slt Virg1511,
a tester: (le bookmark est-ce debut ou début?) à vérifier et vaux mieux éviter les accents si possible
Sub Macro1()
Dim Chemin As String, NFichier As String
Dim Nom As String, Debut As String
Dim OApp As Object, OMail As Object
Chemin = ActiveWorkbook.Path & "\"
Nom = ActiveDocument.Bookmarks("Nom").Range.Text
Debut = ActiveDocument.Bookmarks("debut").Range.Text ' le bookmark est-ce debut ou début?
NFichier = "Demande CP/RTT " & Nom & " " & Debut & ".pdf" ' nom d'enregistrement du pdf Salari? + periode
ActiveDocument.ExportAsFixedFormat outputFileName:=Chemin & NFichier, exportFormat:=wdExportFormatPDF
' enregistrement'
Set OApp = CreateObject("Outlook.Application") ' envoi par mail outlook
Set OMail = OApp.CreateItem(0)
With OMail
.Display
.To = "yz"
.Subject = "Demande CP/RTT"
.Attachments.Add ActiveDocument.Path & "/" & NFichier
.BodyFormat = olFormatRichText
.Body = "Tu trouveras ma prochaine feuille de CP/RTT pour le" & Debut
.Send
End With
Set OMail = Nothing
Set OApp = Nothing
End Sub