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 :

Code vba pour export pdf


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre averti
    Homme Profil pro
    dessinateur
    Inscrit en
    Février 2013
    Messages
    27
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : dessinateur
    Secteur : Industrie

    Informations forums :
    Inscription : Février 2013
    Messages : 27
    Par défaut Code vba pour export pdf
    Bonjour,
    Je souhaite créer un pdf avec un bouton a partir de mon fichier excel.
    Pour cela j'utilise ce code vba:

    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
    Sub Creer_PDF_Demande_Prix()
    '
    ' Creer_PDF_Demande_Prix Macro
    ' il faut changer le cheminchaque annee
    '
    'Condition si cellule E3 est egal a DEMANDE DE PRIX
    If Range("E3") = "DEMANDE DE PRIX" Then
     
    'Alors faire le PDF et l'enregistrer
    Dim fichier As String
    fichier = "C:\_CIAM\13-DEMANDES DE PRIX\2013\" & [E4].Value & "-" & [H4].Value & "_" & [F6].Value
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=fichier, _
        Quality:=xlQualityStandard, IncludeDocProperties:=True, _
        IgnorePrintAreas:=False, OpenAfterPublish:=True
    'Condition fausse renvoie le message Vous n'etes pas passez en Demande de prix
    Else
     
    MsgBox "Vous n'etes pas passez en Demande de prix"
     
    End If
     
    End Sub
    Quand j'execute la macro il y a le code erreur 1004 qui apparait.
    Merci d'avance pour votre aide

  2. #2
    Expert confirmé Avatar de jfontaine
    Homme Profil pro
    Contrôleur de Gestion
    Inscrit en
    Juin 2006
    Messages
    4 756
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 51
    Localisation : France, Sarthe (Pays de la Loire)

    Informations professionnelles :
    Activité : Contrôleur de Gestion

    Informations forums :
    Inscription : Juin 2006
    Messages : 4 756
    Par défaut
    Bonjour,

    Quelle ligne retourne cette erreur ?

  3. #3
    Membre averti
    Homme Profil pro
    dessinateur
    Inscrit en
    Février 2013
    Messages
    27
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : dessinateur
    Secteur : Industrie

    Informations forums :
    Inscription : Février 2013
    Messages : 27
    Par défaut
    Il me surligne en jaune la partie suivante:

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=fichier, _
    Quality:=xlQualityStandard, IncludeDocProperties:=True, _
    IgnorePrintAreas:=False, OpenAfterPublish:=True

  4. #4
    Expert confirmé Avatar de jfontaine
    Homme Profil pro
    Contrôleur de Gestion
    Inscrit en
    Juin 2006
    Messages
    4 756
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 51
    Localisation : France, Sarthe (Pays de la Loire)

    Informations professionnelles :
    Activité : Contrôleur de Gestion

    Informations forums :
    Inscription : Juin 2006
    Messages : 4 756
    Par défaut
    Quelle est la valeur de la variable fichier au moment de l'export.
    Cette ligne de code fonctionne si nom de fichier correct

  5. #5
    Membre averti
    Homme Profil pro
    dessinateur
    Inscrit en
    Février 2013
    Messages
    27
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : dessinateur
    Secteur : Industrie

    Informations forums :
    Inscription : Février 2013
    Messages : 27
    Par défaut
    Cette valeur est differente pour chaque nom de fichier.
    E4: nom de fichier
    H4: version du fichier
    F6: nom du sous-traitant
    Ci-joint fichier.
    Fichiers attachés Fichiers attachés

  6. #6
    Membre Expert Avatar de Fvandermeulen
    Homme Profil pro
    Développeur informatique
    Inscrit en
    Juillet 2007
    Messages
    1 869
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 49
    Localisation : Belgique

    Informations professionnelles :
    Activité : Développeur informatique
    Secteur : High Tech - Multimédia et Internet

    Informations forums :
    Inscription : Juillet 2007
    Messages : 1 869
    Par défaut
    Salut,
    J'ai pas ouvert le fichier, mais il me semble qu'il manque l'extension .PDF dans le nom que tu donne:

    Essai avec
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    fichier = "C:\_CIAM\13-DEMANDES DE PRIX\2013\" & [E4].Value & "-" & [H4].Value & "_" & [F6].Value&".pdf"

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

Discussions similaires

  1. Probleme VBA pour exporter en PDF
    Par toto92 dans le forum Macros et VBA Excel
    Réponses: 7
    Dernier message: 22/08/2014, 13h11
  2. Code VBA pour exportation Données et tracer de graphique
    Par élie .R dans le forum Macros et VBA Excel
    Réponses: 1
    Dernier message: 31/05/2014, 10h04
  3. Code VBA pour exporter vers Excel/Access
    Par piflechien73 dans le forum VBA PowerPoint
    Réponses: 1
    Dernier message: 26/03/2012, 07h37
  4. [VBA-A] Code vba pour inclure un formulaire Acces
    Par MadSquirrel dans le forum VBA Access
    Réponses: 2
    Dernier message: 12/04/2006, 18h19
  5. Réponses: 3
    Dernier message: 06/09/2005, 10h27

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