Macro Word enregistrer PDF avec signet de formulaire

Word, PowerPoint, Outlook, Access et tous les autres logiciels de la suite Office (sauf Excel)
V
Virg1511
Jeune membre
Jeune membre
Messages : 18
Inscrit le : 28 mars 2019
Version d'Excel : 2010

Message par Virg1511 » 16 avril 2019, 16:35

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
m3ellem1
Membre impliqué
Membre impliqué
Messages : 1'140
Appréciations reçues : 96
Inscrit le : 18 décembre 2018
Version d'Excel : 2016

Message par m3ellem1 » 19 avril 2019, 07:32

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
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message