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 :

Erreur 1004 pour impression pdf visual basic [XL-2013]


Sujet :

Macros et VBA Excel

  1. #1
    Nouveau membre du Club
    Homme Profil pro
    ingénieur travaux
    Inscrit en
    Février 2017
    Messages
    4
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Morbihan (Bretagne)

    Informations professionnelles :
    Activité : ingénieur travaux
    Secteur : Bâtiment

    Informations forums :
    Inscription : Février 2017
    Messages : 4
    Par défaut Erreur 1004 pour impression pdf visual basic
    Bonjour,

    l'erreur 1004 apparaît lorsque j’exécute une macro pour exporter une feuille excel en pdf .

    J'ai une feuille modèle qui s'actualise selon la valeur de la ligne de ma base de donnée indiquée.
    Le but étant d'imprimer une feuille type avec des données rentrées dans une feuille de type "base de donnée" située dans le meme classeur.

    voici le code :
    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
    Sub Export_PDF()
    
        Dim fichier As String
        'adaptez le nom de la feuille
        ActiveWorkbook.RefreshAll
        Sheets("Modèle").Visible = True
        
        With Worksheets("Modèle")
        
            fichier = "DA N°" & .Range("I2") & " " & .Range("A20") & ".pdf"
            'pensez a ecrire le chemin
            Chemin = ActiveWorkbook.Path & "\" & fichier
            
            .ExportAsFixedFormat Type:=xlTypePDF, Filename:=Chemin, Quality:=xlQualityStandard, _
            IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
            
         Sheets("Modèle").Visible = False
         
        End With
    End Sub
    Cela bloque au niveau de la partie en gras.

    Merci par avance,

  2. #2
    Expert confirmé

    Homme Profil pro
    Curieux
    Inscrit en
    Juillet 2012
    Messages
    5 169
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : Curieux
    Secteur : Arts - Culture

    Informations forums :
    Inscription : Juillet 2012
    Messages : 5 169
    Billets dans le blog
    5
    Par défaut
    Bonjour,

    que contient exactement la variable Chemin ? N'y aurait-il pas des caractères interdits pour un nom/chemin de fichier ?

    et que valent .Range("I2") et .Range("A20") ? En spécifiant la propriété .Value de ces ranges ça va pas mieux ?

  3. #3
    Nouveau membre du Club
    Homme Profil pro
    ingénieur travaux
    Inscrit en
    Février 2017
    Messages
    4
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Morbihan (Bretagne)

    Informations professionnelles :
    Activité : ingénieur travaux
    Secteur : Bâtiment

    Informations forums :
    Inscription : Février 2017
    Messages : 4
    Par défaut RE
    Merci !
    c'est en effet un problème de caractère interdit...
    "/"

  4. #4
    Expert éminent Avatar de Menhir
    Homme Profil pro
    Ingénieur
    Inscrit en
    Juin 2007
    Messages
    16 037
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Finistère (Bretagne)

    Informations professionnelles :
    Activité : Ingénieur
    Secteur : Industrie

    Informations forums :
    Inscription : Juin 2007
    Messages : 16 037
    Par défaut
    En spécifiant la propriété .Value de ces ranges ça va pas mieux ?
    J'aurais plutôt conseillé la propriété .Text.

  5. #5
    Expert confirmé

    Homme Profil pro
    Curieux
    Inscrit en
    Juillet 2012
    Messages
    5 169
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : Curieux
    Secteur : Arts - Culture

    Informations forums :
    Inscription : Juillet 2012
    Messages : 5 169
    Billets dans le blog
    5
    Par défaut
    Sans connaître le contenu des cellules, je propose toujours .Value

    Il suffit qu'il ne sache pas la différence entre le .Text et le .Value pour se retrouver dans des situations fâcheuses, par exemple si la colonne n'est pas assez large pour certain type de données, ou que le formatage ne doit pas être pris en compte.

    Mais, ça se trouve, c'est .Text qui se prêtera mieux à sa situation. Impossible de le savoir en l'état

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

Discussions similaires

  1. Erreur 1004 pour création seriescollection (chart)
    Par jeff202 dans le forum Macros et VBA Excel
    Réponses: 0
    Dernier message: 12/08/2011, 14h33
  2. [WD14] Regrouper deux images pour impression PDF
    Par AUZUR dans le forum WinDev
    Réponses: 13
    Dernier message: 25/09/2009, 15h59
  3. Script pour impression pdf a partir d'excel
    Par lorifan dans le forum VBScript
    Réponses: 3
    Dernier message: 18/06/2008, 15h05
  4. Modifier propriété imprimante pour impression PDF
    Par seb.49 dans le forum Windows Forms
    Réponses: 1
    Dernier message: 28/01/2008, 20h27
  5. Creer un Setup pour une aplication visual basic 6 ?
    Par leo13 dans le forum VB 6 et antérieur
    Réponses: 5
    Dernier message: 20/01/2007, 15h27

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