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 :

Ajouter des fichiers pdf à une macro d'impression


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
    Directeur commercial
    Inscrit en
    Septembre 2016
    Messages
    11
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Isère (Rhône Alpes)

    Informations professionnelles :
    Activité : Directeur commercial

    Informations forums :
    Inscription : Septembre 2016
    Messages : 11
    Par défaut Ajouter des fichiers pdf à une macro d'impression
    Bonjour à tous.
    Je souhaite, lors de l'impression via une macro (ci-dessous) ajouter en queue d'impression des fichiers pdf. Ces fichiers pdf sont stockés dans un dossier à la racine du classeur. La sélection des fichiers à imprimer se fait par le lien contenu dans la 13ème cellule de la colonne visible.
    Voici mon code pour l'impression :

    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
    28
    29
    30
    31
    32
    Private Sub CommandButton2_Click()
    'incrémentation N° à chaque impression
     
    Sheets("Données Client").[D25] = Sheets("Données Client").[D25] + 1
     
     
    'Séléction de la zone à imprimer
    CV = 6
        With Worksheets("Panorama FM")
            For n = 7 To 123
                If .Columns(n).Hidden = False Then CV = CV + 1
                If CV = 11 Then Exit For
            Next n
            Range(Cells(7, 2), Cells(105, n)).Select
     
    ' Macro export en PDF avec nom variable selon contenu cellule.
     
        'Chemin d'accès pour l'enregistrement
        ChDir (ThisWorkbook.Path & "\DEVIS ")
     
     
     
        Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
            " Devis " & Sheets("Données Client").Cells(1, 10).Value & " " & "client " & Sheets("Données Client").Cells(5, 5).Value & " " & Sheets("Données Client").Cells(4, 5).Value & " " & Sheets("Données Client").Cells(25, 3) & "-" & Sheets("Données Client").Cells(25, 4).Value, Quality:=xlQualityStandard, _
            IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
            True
     
    End With
    Unload Me
    ActiveCell.Select
     
    End Sub
    Je ne trouve pas la solution sur les forums certainement parce que je ne sait probablement pas bien la poser !
    Merci de vos contributions.

  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

Discussions similaires

  1. [AC-2013] Ajouter des codes VBA à une macro
    Par jajoju dans le forum Access
    Réponses: 8
    Dernier message: 24/11/2016, 22h44
  2. [MySQL] Ajout des fichiers d'une taille assez grande
    Par mery gi dans le forum PHP & Base de données
    Réponses: 1
    Dernier message: 27/05/2014, 05h31
  3. [MySQL] ajouter des fichiers dans une base de données phpmyadmin
    Par turki chaima dans le forum PHP & Base de données
    Réponses: 4
    Dernier message: 03/03/2014, 20h36
  4. Réponses: 5
    Dernier message: 06/04/2010, 14h50
  5. Ajouter des fichiers dans une image de disque .tib
    Par koKoTis dans le forum Autres Logiciels
    Réponses: 22
    Dernier message: 30/08/2006, 23h20

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