Discussion :

[mistergrip]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Invité]

Bonjour,

Il vous suffit d'éditer votre document avec une imprimante pdf.

[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 ?

[Invité]

Un exemple à adapter :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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 !!