Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

  1. #1
    Candidat au Club
    Homme Profil pro
    Ingénieur après-vente
    Inscrit en
    décembre 2018
    Messages
    3
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 39
    Localisation : Suisse

    Informations professionnelles :
    Activité : Ingénieur après-vente

    Informations forums :
    Inscription : décembre 2018
    Messages : 3
    Points : 3
    Points
    3

    Par défaut Macro ppour enregister un fichier en format pdf

    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
    Fichiers attachés Fichiers attachés

  2. #2
    Expert éminent

    Homme Profil pro
    Développeur Vba Excel
    Inscrit en
    avril 2013
    Messages
    3 613
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Ille et Vilaine (Bretagne)

    Informations professionnelles :
    Activité : Développeur Vba Excel
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : avril 2013
    Messages : 3 613
    Points : 9 191
    Points
    9 191
    Billets dans le blog
    26

    Par défaut

    Citation Envoyé par mistergrip Voir le message
    Bonjour,

    Il vous suffit d'éditer votre document avec une imprimante pdf.
    Eric KERGRESSE
    https://sites.google.com/site/erickergresseeirl/
    Lorsque vous avez la réponse à votre question, n'oubliez pas de cliquer sur et si celle-ci est pertinente pensez à voter

  3. #3
    Candidat au Club
    Homme Profil pro
    Ingénieur après-vente
    Inscrit en
    décembre 2018
    Messages
    3
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 39
    Localisation : Suisse

    Informations professionnelles :
    Activité : Ingénieur après-vente

    Informations forums :
    Inscription : décembre 2018
    Messages : 3
    Points : 3
    Points
    3

    Par défaut

    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 ?

  4. #4
    Expert éminent

    Homme Profil pro
    Développeur Vba Excel
    Inscrit en
    avril 2013
    Messages
    3 613
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Ille et Vilaine (Bretagne)

    Informations professionnelles :
    Activité : Développeur Vba Excel
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : avril 2013
    Messages : 3 613
    Points : 9 191
    Points
    9 191
    Billets dans le blog
    26

    Par défaut

    Citation Envoyé par mistergrip Voir le message
    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
    Eric KERGRESSE
    https://sites.google.com/site/erickergresseeirl/
    Lorsque vous avez la réponse à votre question, n'oubliez pas de cliquer sur et si celle-ci est pertinente pensez à voter

  5. #5
    Candidat au Club
    Homme Profil pro
    Ingénieur après-vente
    Inscrit en
    décembre 2018
    Messages
    3
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 39
    Localisation : Suisse

    Informations professionnelles :
    Activité : Ingénieur après-vente

    Informations forums :
    Inscription : décembre 2018
    Messages : 3
    Points : 3
    Points
    3

    Par défaut

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

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Réponses: 2
    Dernier message: 15/08/2014, 13h43
  2. [XL-2013] Une macro pour enregistrer un fichier excel en pdf
    Par petchy dans le forum Excel
    Réponses: 5
    Dernier message: 29/03/2014, 13h45
  3. Réponses: 3
    Dernier message: 12/06/2012, 12h18
  4. [VBA-XL2007] Problème de lancement d'une macro d'un autre fichier au format xlsm
    Par EvaristeGaloisBis dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 25/09/2008, 23h13
  5. enregistrer un fichier au format pdf
    Par babafredo dans le forum ASP
    Réponses: 3
    Dernier message: 24/07/2007, 11h21

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo