Macro Word enregistrer PDF avec signet de formulaire

Fermé
virg1511 - 16 avril 2019 à 16:32
 virg1511 - 17 avril 2019 à 10:09
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
A voir également:

1 réponse

Kalissi Messages postés 218 Date d'inscription jeudi 2 mai 2013 Statut Membre Dernière intervention 15 juillet 2019 20
16 avril 2019 à 17:06
Bonjour,

Observation :

Il est déconseillé de produire du code avec des accents de la langue française :

NFichier = "Demande CP/RTT " & Nom & " " & D?but & ".pdf" ' nom d'enregistrement du pdf Salari? + p?riode 


devrait se lire :

NFichier = "Demande CP/RTT " & Nom & " " & Debut & ".pdf" ' nom d'enregistrement du pdf Salari? + p?riode 


Placer des accents dans les commentaires, ça peut aller mais pas dans le code.
Tu éviteras beaucoup de problème.

K
0
Merci pour l'info, mais mon problème est toujours là. :-(
0