Macro ppour enregister un fichier en format pdf

Version imprimable

1 pièce(s) jointe(s)

Bonjour,

Tous les jours au travail, mon équipe et moi devons faire une check liste d'ouverture de salle d'examen et cocher un certain nombre de matériel présent dans la salle.
Actuellement nous le faisons sur papier ( 1 feuille par jour) et ensuite nous les numérisons pour les avoir en archive.

J'ai créer un formulaire avec word qui reprend la check liste. J'y ai associé un bouton qui enregistre le fichier dans un dossier spécifique avec pour nom de dossier la date du jour. le fichier ainsi enregistré est en .doc.

Je souhaiterai faire exactement la même chose mais en enregistrant le fichier en PDF.

Je vous mets en copie le code ma macro.
Code:

1 2 3 4 5 6 Private Sub CommandButton1_Click() ActiveDocument.SaveAs FileName:="H:\Soins\4 Policlinique ambulatoire\5 CDF-Policlinique-Equipe\ENDO\Checklist\" & Format(Date, "yyyy") & "-" & Format(Date, "mm") & "-" & Format(Date, "dd") & ".doc" Application.Quit End Sub
Je vous met en pièce jointe le fichier que j'ai créer

Je suis vraiement novice en VBA...

Merci de vote aide

03/12/2018, 17h28
Invité

Citation:

Envoyé par mistergrip

Bonjour,

Il vous suffit d'éditer votre document avec une imprimante pdf.
04/12/2018, 09h39
mistergrip

Bonjour,

Merci de la réponse.

Je me pose encore une question. Word 2007 ne peut-il pas directement enregister en PDF ?
Dans ce cas, comment modifier mon code VBA pour qu'il le fasse ?

Citation:

Envoyé par mistergrip

Un exemple à adapter :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
Sub ImprimerEnPdf()
 
Dim oDoc As Document
Dim stNom As String
Dim Repertoire As String
 
    Set oDoc = ActiveDocument
    Repertoire = "XXXXXX\"
 
    With oDoc
         stNom = Repertoire & "AAAAA " & Format(Date, "yyyy") & ".pdf"
         oDoc.ExportAsFixedFormat OutputFileName:=stNom, ExportFormat:=wdExportFormatPDF, OpenAfterExport:=False
    End With
 
    Set oDoc = Nothing
 
End Sub

04/12/2018, 10h15
mistergrip

Excellent, c'est exactement ce que je recherchais.

Merci beaucoup, tout fonctionne !!

Merci d'avoir des gens comme vous qui aident les tout tout néophytes !!