1. #1
    Futur Membre du Club
    Homme Profil pro
    ouvrier
    Inscrit en
    juin 2016
    Messages
    13
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 33
    Localisation : France, Maine et Loire (Pays de la Loire)

    Informations professionnelles :
    Activité : ouvrier

    Informations forums :
    Inscription : juin 2016
    Messages : 13
    Points : 5
    Points
    5

    Par défaut Macro impression d'une feuille exel en pdf selon un lien et un nom situé dans cellule

    Bonjour ,

    Pour faire simple je souhaite générer une impression d'une feuille Excel en PDF !

    mais, je souhaite que le liens d'exportation varie en fonction du lien situé en cellule C2 de la feuille 1 et sur un lecteur I:
    avec un nom de fichier qui correspond à la cellule C3

    Pour le moment j 'ai ca, qui me génère mon fichier mais tjs dans le même dossier et avec toujours le même nom...

    Merci, beaucoup



    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
    Sub generer_pdf()
    Dim nompdf As String
     
    On Error GoTo erreur
     
     nompdf = "I:\PDF\.USI-CREO"
     ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=nompdf & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
     
    Exit Sub
     
    erreur:
     
     MsgBox "Erreur : " & Err.Number & vbLf & Err.Description
     
     
    End Sub

  2. #2
    Expert éminent sénior Avatar de Menhir
    Homme Profil pro
    Ingénieur
    Inscrit en
    juin 2007
    Messages
    7 813
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Finistère (Bretagne)

    Informations professionnelles :
    Activité : Ingénieur

    Informations forums :
    Inscription : juin 2007
    Messages : 7 813
    Points : 14 230
    Points
    14 230

    Par défaut

    Il suffit de changer nompdf = "I:\PDF\.USI-CREO" et de mettre le contenu de C2 dans cette variable.


    Petit détail : je ne vois pas à quoi peut te servir ça :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    On Error GoTo erreur
     
    erreur:
     
    MsgBox "Erreur : " & Err.Number & vbLf & Err.Description
    Vus que VBA fait en natif la même chose mais en mieux puisque cette bricole t'empêche de localiser l'erreur.
    Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion.

  3. #3
    Futur Membre du Club
    Homme Profil pro
    ouvrier
    Inscrit en
    juin 2016
    Messages
    13
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 33
    Localisation : France, Maine et Loire (Pays de la Loire)

    Informations professionnelles :
    Activité : ouvrier

    Informations forums :
    Inscription : juin 2016
    Messages : 13
    Points : 5
    Points
    5

    Par défaut

    merci de ta réponse rapide, mais c 'est justement ca que je n'arrive pas a faire.

    Merci

  4. #4
    Responsable
    Office & Excel

    Avatar de Pierre Fauconnier
    Homme Profil pro
    Formateur et développeur informatique indépendant
    Inscrit en
    novembre 2003
    Messages
    10 878
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 50
    Localisation : Belgique

    Informations professionnelles :
    Activité : Formateur et développeur informatique indépendant
    Secteur : Enseignement

    Informations forums :
    Inscription : novembre 2003
    Messages : 10 878
    Points : 27 314
    Points
    27 314
    Billets dans le blog
    5

    Par défaut

    Citation Envoyé par Menhir Voir le message
    [...]Petit détail : je ne vois pas à quoi peut te servir ça :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    On Error GoTo erreur
     
    erreur:
     
    MsgBox "Erreur : " & Err.Number & vbLf & Err.Description
    Vus que VBA fait en natif la même chose mais en mieux puisque cette bricole t'empêche de localiser l'erreur.
    Ca permet de ne pas planter le code si l'accès au VBA est verrouillé...
    "Plus les hommes seront éclairés, plus ils seront libres" (Voltaire)
    ---------------
    Vous souhaitez rédiger pour DVP? Contactez-moi
    VBA pour Excel? Pensez D'ABORD en EXCEL avant de penser en VBA...
    Vous avez apprécié l'intervention => Merci pour le
    ---------------

  5. #5
    Responsable
    Office & Excel

    Avatar de Pierre Fauconnier
    Homme Profil pro
    Formateur et développeur informatique indépendant
    Inscrit en
    novembre 2003
    Messages
    10 878
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 50
    Localisation : Belgique

    Informations professionnelles :
    Activité : Formateur et développeur informatique indépendant
    Secteur : Enseignement

    Informations forums :
    Inscription : novembre 2003
    Messages : 10 878
    Points : 27 314
    Points
    27 314
    Billets dans le blog
    5

    Par défaut

    Salut.

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    nompdf = range("c2").value
    "Plus les hommes seront éclairés, plus ils seront libres" (Voltaire)
    ---------------
    Vous souhaitez rédiger pour DVP? Contactez-moi
    VBA pour Excel? Pensez D'ABORD en EXCEL avant de penser en VBA...
    Vous avez apprécié l'intervention => Merci pour le
    ---------------

  6. #6
    Expert éminent sénior
    Avatar de kiki29
    Homme Profil pro
    ex Observeur CGG / Analyste prog.
    Inscrit en
    juin 2006
    Messages
    5 417
    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 : 5 417
    Points : 14 001
    Points
    14 001

    Par défaut

    Salut, à titre documentaire pour une vérification de la validité du nom du fichier en "C3" via qqch du genre :

    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
    Private Function NomFichierValide(sChaine As String) As Boolean
    Dim i As Long
    Const sCaracInterdits As String = """*/:<>?[\]|"
        NomFichierValide = True
        If Len(sChaine) = 0 Then
            NomFichierValide = False
            Exit Function
        End If
        For i = 1 To Len(sCaracInterdits)
            If InStr(sChaine, Mid$(sCaracInterdits, i, 1)) > 0 Then
                NomFichierValide = False
                Exit Function
            End If
        Next i
    End Function
    Pensez à Voter, d'avance merci. @+ Philippe
    Balisez votre code après l'avoir indenté sous Excel (< 2013) via Smart Indenter
    Autres utilitaires : MZ Tools 8.0 VBA , 7Zip et Antidote

    Liste des Contributions : Manipulations des PDF via Excel / Acrobat / PDFCreator / xPDF

  7. #7
    Expert éminent sénior Avatar de Menhir
    Homme Profil pro
    Ingénieur
    Inscrit en
    juin 2007
    Messages
    7 813
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Finistère (Bretagne)

    Informations professionnelles :
    Activité : Ingénieur

    Informations forums :
    Inscription : juin 2007
    Messages : 7 813
    Points : 14 230
    Points
    14 230

    Par défaut

    Citation Envoyé par Pierre Fauconnier Voir le message
    Ca permet de ne pas planter le code si l'accès au VBA est verrouillé...
    Pour le côté "ne pas accéder au code", je suis d'accord avec toi.
    Mais le plantage y est quand même : un message Excel ou un MsgBox, il n'y a pas une grosse différence (à par la bouton "Debugage" dont un débutant en phase de développement aurait tord de se priver).
    Je pense qu'il serait judicieux pour lui de supprimer ces trois lignes ou, au moins, de les mettre en commentaire le temps de finaliser son code.

    C'est juste un conseil.
    Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion.

  8. #8
    Responsable
    Office & Excel

    Avatar de Pierre Fauconnier
    Homme Profil pro
    Formateur et développeur informatique indépendant
    Inscrit en
    novembre 2003
    Messages
    10 878
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 50
    Localisation : Belgique

    Informations professionnelles :
    Activité : Formateur et développeur informatique indépendant
    Secteur : Enseignement

    Informations forums :
    Inscription : novembre 2003
    Messages : 10 878
    Points : 27 314
    Points
    27 314
    Billets dans le blog
    5

    Par défaut

    Le plantage du code, ça réinitialise les variables globales, notamment la variable ruban, donc j'aime encore bien éviter.

    Pour le reste, je suis d'accord avec toi. Vu le niveau présenté ici (ce n'est pas une attaque, hein, flobox, c'est juste un constat), il n'est pas trop nécessaire de se soucier de la gestion d'erreur à ce stade.

    Cela dit, pour info, on peut laisser la gestion d'erreur mais mettre le niveau d'arrêt sur erreur à "Toutes les erreurs". Ainsi, même la gestion des erreurs est désactivée, ce qui est chouette en phase de développement lorsque le code n'est pas protégé.
    "Plus les hommes seront éclairés, plus ils seront libres" (Voltaire)
    ---------------
    Vous souhaitez rédiger pour DVP? Contactez-moi
    VBA pour Excel? Pensez D'ABORD en EXCEL avant de penser en VBA...
    Vous avez apprécié l'intervention => Merci pour le
    ---------------

  9. #9
    Futur Membre du Club
    Homme Profil pro
    ouvrier
    Inscrit en
    juin 2016
    Messages
    13
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 33
    Localisation : France, Maine et Loire (Pays de la Loire)

    Informations professionnelles :
    Activité : ouvrier

    Informations forums :
    Inscription : juin 2016
    Messages : 13
    Points : 5
    Points
    5

    Par défaut merci a tous

    Merci bcp, je test ça demain a la première heure,

    Sinon je ne voudrais pas abuser, mais est il possible de générer dans la même macro une impression papier et l' impression pdf ?

    merci.

  10. #10
    Futur Membre du Club
    Homme Profil pro
    ouvrier
    Inscrit en
    juin 2016
    Messages
    13
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 33
    Localisation : France, Maine et Loire (Pays de la Loire)

    Informations professionnelles :
    Activité : ouvrier

    Informations forums :
    Inscription : juin 2016
    Messages : 13
    Points : 5
    Points
    5

    Par défaut pas de probléme

    y as aucun souci je suis plus que débutant dans excel mais quand je pense a la quantités de chose que peut faire ce logiciel, et le gain de temps et élimination de source d’erreurs ça le rend très attractif

  11. #11
    Futur Membre du Club
    Homme Profil pro
    ouvrier
    Inscrit en
    juin 2016
    Messages
    13
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 33
    Localisation : France, Maine et Loire (Pays de la Loire)

    Informations professionnelles :
    Activité : ouvrier

    Informations forums :
    Inscription : juin 2016
    Messages : 13
    Points : 5
    Points
    5

    Par défaut juste pour confirmer

    on imagine en C2 : i:\2503\perlinpimpim\dossier\
    en C3 : a215x85R

    Mon fichier dois bien prendre la direction de la cellule C2 et se nommer a215x85r.pdf ?

    et avec la cerise sur le gateau lancer une impression papier

    Merci beaucoup

  12. #12
    Responsable
    Office & Excel

    Avatar de Pierre Fauconnier
    Homme Profil pro
    Formateur et développeur informatique indépendant
    Inscrit en
    novembre 2003
    Messages
    10 878
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 50
    Localisation : Belgique

    Informations professionnelles :
    Activité : Formateur et développeur informatique indépendant
    Secteur : Enseignement

    Informations forums :
    Inscription : novembre 2003
    Messages : 10 878
    Points : 27 314
    Points
    27 314
    Billets dans le blog
    5

    Par défaut

    Pour le nom pdf
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    nompdf = range("c2").value & range("c3").value
    Pour l'impression papier, sur l'imprimante par défaut:
    Se renseigner sur l'aide en ligne pour les options d'impression : L'aide, ça aide
    "Plus les hommes seront éclairés, plus ils seront libres" (Voltaire)
    ---------------
    Vous souhaitez rédiger pour DVP? Contactez-moi
    VBA pour Excel? Pensez D'ABORD en EXCEL avant de penser en VBA...
    Vous avez apprécié l'intervention => Merci pour le
    ---------------

  13. #13
    Futur Membre du Club
    Homme Profil pro
    ouvrier
    Inscrit en
    juin 2016
    Messages
    13
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 33
    Localisation : France, Maine et Loire (Pays de la Loire)

    Informations professionnelles :
    Activité : ouvrier

    Informations forums :
    Inscription : juin 2016
    Messages : 13
    Points : 5
    Points
    5

    Par défaut impec pour le PDF

    Le fichier PDF marche a merveille, par contre pour l'impression papier cela ne fonctionne pas.

    je pense surtout que c'est moi qui le colle mal dans la macro.

    >Merci

  14. #14
    Futur Membre du Club
    Homme Profil pro
    ouvrier
    Inscrit en
    juin 2016
    Messages
    13
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 33
    Localisation : France, Maine et Loire (Pays de la Loire)

    Informations professionnelles :
    Activité : ouvrier

    Informations forums :
    Inscription : juin 2016
    Messages : 13
    Points : 5
    Points
    5

    Par défaut C'est Bon

    C'est ok j'ai réussi a lancer l' impression en automatique



    Sub impression()
    'lancement de l'impression de fiche suiveuse
    Sheets("fiche de fab").PrintOut

    End Sub


    Merci a tous pour vos conseils, et votre aide

Discussions similaires

  1. [XL-2010] Imprimer page 2 d'une feuille excel en PDF vers Outlook par macro
    Par patmicro dans le forum Macros et VBA Excel
    Réponses: 4
    Dernier message: 02/03/2016, 22h57
  2. Réponses: 4
    Dernier message: 26/09/2012, 17h08
  3. Réponses: 2
    Dernier message: 28/08/2012, 16h58
  4. [Toutes versions] Impression d'une feuille Excel par macro --> Ne pas utiliser l'imprimante par défaut
    Par fowlie dans le forum Macros et VBA Excel
    Réponses: 6
    Dernier message: 23/05/2012, 13h41
  5. [VBA-E] [help]macro pour dupliquer une feuille (en valeur)
    Par minikisskool dans le forum Macros et VBA Excel
    Réponses: 31
    Dernier message: 07/11/2005, 19h24

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