Word, PowerPoint, Outlook, Access et tous les autres logiciels de la suite Office (sauf Excel)
-
Virg1511
- 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
-
m3ellem1
- 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
-
-
Urgent Enregistrer Word en PDF
Réponses : 1
par
IMODANE » 22 août 2014, 15:54 » dans
Office
Bonjour Tous le monde,
voila je voudrais ouvrir un fichier word a partir d'un repertoire et l'enregistrer (save as ) en pdf dans le meme repertoire. Please help
Sub test()
'nécessite d'activer la...
- 1 Réponses
- 1118 Vues
-
Dernier message par FINDRH
22 août 2014, 17:39
-
-
formulaire word en pdf
Réponses : 5
par
garulfo » 26 mai 2016, 15:01 » dans
Office
Bonjour,
J'ai crée un document Word comprenant des boutons de commande avec les codes associées mais quand j'enregistre le document au format pdf, les bouton ne fonctionne plus (tandis que le...
- 5 Réponses
- 1120 Vues
-
Dernier message par garulfo
20 juin 2016, 13:59
-
-
Excel / Word Signet
Réponses : 11
par
MrNico » 14 juin 2019, 17:31 » dans
Excel - VBA
Bonjour à tous,
Dans le cadre de mon travail, je dois remplir un fichier word à l'aide d'informations qui se trouvent dans un fichier excel.
J'aimerai trouver un moyen que les informations se...
- 11 Réponses
- 318 Vues
-
Dernier message par MrNico
17 juin 2019, 16:29
-
-
- 22 Réponses
- 457 Vues
-
Dernier message par Bat_97140
4 août 2019, 23:52
-
-
Textbox vers signet word + enregistrement
Réponses : 2
par
floflo50100 » 11 juillet 2016, 15:37 » dans
Excel - VBA
Bonjour à tous,
Novice dans le domaine du VBA, j'ai besoin de votre aide pour un code me permettant d'envoyer des textboxs vers des signet word.
Voici ce que je voudrais exactement :
Dans un Userform...
- 2 Réponses
- 1352 Vues
-
Dernier message par floflo50100
12 juillet 2016, 14:00
-
-
Tableau Excel dans signet Word
Réponses : 9
par
Arthur1508 » 2 septembre 2018, 14:37 » dans
Excel - VBA
Bonjour à tous,
je cherche à insérer un tableau Excel dans un signet Word.
A l'heure actuelle je suis capable de le faire de cette façon :
Le soucis est que cette méthode à tendance a poser des...
- 9 Réponses
- 385 Vues
-
Dernier message par Arthur1508
3 septembre 2018, 11:14