Macro Word enregistrer PDF avec signet de formulaire

[Virg1511]

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

[m3ellem1]

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