Sub Bouton33_Clic()
Msg = "Voulez vous imprimer en PDF" ' Définit le message.
Style = vbYesNo + vbDefaultButton2 ' Définit les boutons.
Title = "Inserter les photos avec la macro " ' Définit le titre.
rep = MsgBox(Msg, Style, Title)
If rep = vbNo Then Exit Sub
Sheets(Array("PAGE DE GARDE", "SOMMAIRE", "GENERALITES", "TITRE", "Coût", _
"Graphique Coûts", "Tableaux rapport", "TITRE CARTO", "CARTOGRAPHIE")).Select
Sheets("PAGE DE GARDE").Activate
Application.ActivePrinter = "PDFCreator sur Ne01:"
ExecuteExcel4Macro _
"PRINT(1,,,1,,,,,,,,2,""PDFCreator sur Ne01:"",,TRUE,,FALSE)"
End Sub
voila ce que j'utilise pour imprimer en pdf Mais pouvons nous faire pareil avec word