Macro Word enregistrer PDF avec signet de formulaire
virg1511
-
virg1511 -
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
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:
- Macro Word enregistrer PDF avec signet de formulaire
- Whatsapp formulaire opposition - Guide
- Lire le coran en français pdf - Télécharger - Histoire & Religion
- Word 2013 - Télécharger - Traitement de texte
- Audacity enregistrer son pc - Guide
- Tableau word - Guide
1 réponse
Bonjour,
Observation :
Il est déconseillé de produire du code avec des accents de la langue française :
devrait se lire :
Placer des accents dans les commentaires, ça peut aller mais pas dans le code.
Tu éviteras beaucoup de problème.
K
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
virg1511
Merci pour l'info, mais mon problème est toujours là. :-(