IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
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

Macros et VBA Excel Discussion :

Macro Excel Enregistrement DOC en PDF


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre habitué
    Homme Profil pro
    Inscrit en
    Juin 2011
    Messages
    11
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : Juin 2011
    Messages : 11
    Par défaut Macro Excel Enregistrement DOC en PDF
    Bonjour,
    Je sais, il existe plusieurs discutions sur le sujet, mais je n'ai pas trouvé mon bonheur,
    Voila, j'utilise Excel comme base de donnée, j'ai une lettre type sous Word dans laquelle j’insère des données de ma base Excel, jusque là ca va,
    Mon problème est d'arriver a enregistrer mon doc Word sous le format PDF,
    (je précise, j'ai PDFCreator, référencé à la fois dans Word et dans Excel)
    J'aimerais que mon doc Word reste en tache de fond,
    En cherchant j'avais trouvé cela :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="mon_fichier.pdf", _
    Quality:=xlQualityStandard, IncludeDocProperties:=True, _ 
    IgnorePrintAreas:=False, _
    OpenAfterPublish:=False
    je m'étais contenté de changé ActiveSheet en WordDoc ou WordApp
    Mais j'ai un message d'ereur : Argument nommé introuvable sur Type:=

    Si quelqu'un peu m'aider, merci.

  2. #2
    Expert confirmé
    Avatar de kiki29
    Homme Profil pro
    ex Observeur CGG / Analyste prog.
    Inscrit en
    Juin 2006
    Messages
    6 132
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Finistère (Bretagne)

    Informations professionnelles :
    Activité : ex Observeur CGG / Analyste prog.

    Informations forums :
    Inscription : Juin 2006
    Messages : 6 132
    Par défaut
    Salut, 2010 intégre en natif le format PDF donc PDFCreator ne te sert à rien,
    de plus tu as l'enregistreur de macros pour une syntaxe correcte, éventuellemnt à optimiser à la main

  3. #3
    Membre habitué
    Homme Profil pro
    Inscrit en
    Juin 2011
    Messages
    11
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : Juin 2011
    Messages : 11
    Par défaut
    Ok .....
    Pour ce qui concerne l'enregistreur de macro, cela ne marche que si tu restes sur l'appli.....
    Je suis peut être une buse, mais enregistrer une feuille Excel en PDF (même en passant par une macro), j'ai trouvé
    Mon problème est que je créer un doc WORD que je voudrais enregistrer en PDF en utilisant ma macro EXCEL ....

    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
    19
    20
    21
    22
    23
    24
    25
    26
    27
    Sub CommandButton1_Click()
    'nécéssite d'activer la référence Microsoft Word xx.x Object Library
        Dim WordApp As Word.Application
        Dim WordDoc As Word.Document
        Dim Fichier As String
        Dim i As Byte
     
        'Definition du fichier
        Fichier = "E:\Mes documents\TEST MACRO\Doctype.doc"
        'ouvre session word
        Set WordApp = CreateObject("word.application")
        'ouvre document Word
        Set WordDoc = WordApp.Documents.Open(Fichier)
        'word masqué pendant l'operation
        WordApp.Visible = False
        'les signets du document Word sont nommés Signet
        WordDoc.Bookmarks("SignetDate").Range.Text = Format(Now, "dd/mm/yyyy")
        WordDoc.Bookmarks("Prénom").Range.Text = Sheets("Feuil1").Range("B2").Value
     
        'affiche le document Word
        WordApp.Visible = True
     
        'Sauvegarde en PDF
        WordDoc.ExportAsFixedFormat Type:=xlTypePDF, Filename:="E:\Mes documents\TEST MACRO\Doc.pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
     
     
    End Sub

Discussions similaires

  1. Réponses: 6
    Dernier message: 27/06/2014, 14h54
  2. macro excel enregistrement
    Par lucienpaye dans le forum Macros et VBA Excel
    Réponses: 1
    Dernier message: 07/04/2013, 08h32
  3. [2003] macro excel pour publisher (découpage & pdf)
    Par jibdu94 dans le forum Microsoft Office
    Réponses: 0
    Dernier message: 13/04/2011, 16h14
  4. Enregistrer .doc en .pdf avec Word 2003
    Par logan138 dans le forum Word
    Réponses: 3
    Dernier message: 03/11/2010, 09h33
  5. [PPT-2007] Macro pour enregistrements mutilples en PDF
    Par Invité dans le forum VBA PowerPoint
    Réponses: 2
    Dernier message: 26/11/2009, 08h49

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