1. Ce site utilise des "témoins de connexion" (cookies) conformes aux textes de l'Union Européenne. Continuer à naviguer sur nos pages vaut acceptation de notre règlement en la matière. En savoir plus.

Toutes versions Sortie vers fichier PDF

Discussion dans 'Forum Excel' démarrée par kadelmalin, 10 Octobre 2018.

  1. kadelmalin

    kadelmalin XLDnaute Junior

    Inscrit depuis le :
    27 Septembre 2008
    Messages :
    89
    "J'aime" reçus :
    1
    Bonjour le forum,
    je souhaite votre aide pour envoyer avec macro une plage de cellules vers un fichier pdf. je joins le classeur teste. Merci beaucoup de votre assistance.
     

    Pièces jointes:

  2. Chargement...

    Discussions similaires - Sortie vers fichier Forum Date
    3 petites questions à la sortie d'Excel 2000 vers 2007 Forum Excel 28 Novembre 2012
    Déplacement vers droite à la sortie d'une cellule Forum Excel 12 Janvier 2009
    XL 2013 Faire la somme des sorties sur 30 jours Forum Excel 8 Novembre 2018
    XL 2016 Userform: problème de format à la sortie d'une textbox Forum Excel 13 Septembre 2018
    XL 2007 Controles lors sortie de texbox ne fonctionne pas Forum Excel 30 Avril 2018

  3. kiki29

    kiki29 XLDnaute Accro

    Inscrit depuis le :
    15 Mai 2006
    Messages :
    1915
    "J'aime" reçus :
    58
    Sexe :
    Masculin
    Habite à:
    Saint-Thois
    Utilise:
    Excel 2003 (PC)
    Salut, va voir par ici
     
  4. kadelmalin

    kadelmalin XLDnaute Junior

    Inscrit depuis le :
    27 Septembre 2008
    Messages :
    89
    "J'aime" reçus :
    1
    Merci kiki29 pour votre réponse, mais mon but c'est d'avoir ce formulaire (A2:K48) sous forme pdf avec le bouton de commande droit. Je prendrai quand même note de vos codes pour de futures utilisations.
     
  5. chindou

    chindou XLDnaute Junior

    Inscrit depuis le :
    24 Mars 2013
    Messages :
    78
    "J'aime" reçus :
    0
    Habite à:
    Mostaganem
    Utilise:
    Excel 2010 (PC)
  6. job75

    job75 XLDnaute Barbatruc

    Inscrit depuis le :
    15 Mai 2008
    Messages :
    25775
    "J'aime" reçus :
    2193
    Sexe :
    Masculin
    Habite à:
    Paris
    Utilise:
    Excel 2013 (PC)
    Bonsoir,

    Pourquoi un fichier sur cjoint Abdelkader ?

    Et pourquoi compliquer la macro ? Créer un PDF c'est rien du tout :
    Code (Text):
    Sub PDF()
    ActiveSheet.ExportAsFixedFormat xlTypePDF, ThisWorkbook.Path & "\Formulaire.pdf", Quality:=xlQualityStandard
    End Sub
    Bonne nuit.
     

    Pièces jointes:

    BrunoM45 aime votre message.
  7. kadelmalin

    kadelmalin XLDnaute Junior

    Inscrit depuis le :
    27 Septembre 2008
    Messages :
    89
    "J'aime" reçus :
    1
    Bonjour le forum,
    Merci beaucoup pour votre aide, çà c'est débloqué grâce à vous.
    salutations amicales.
     
  8. kadelmalin

    kadelmalin XLDnaute Junior

    Inscrit depuis le :
    27 Septembre 2008
    Messages :
    89
    "J'aime" reçus :
    1
    Re Bonjour,
    J'ai adapté votre solution à mon code et je vous en remercie. Est il possible de limiter le pdf à une zone sélectionnée; voici mon code :
    Sub Sauve_Doc()
    If Range("$P$5").Value = 1 Then
    Range("C2:M40").Select
    ActiveSheet.ExportAsFixedFormat xlTypePDF, ThisWorkbook.Path & "\JRN.pdf", Quality:=xlQualityStandard
    ElseIf Range("$P$5").Value = 2 Then
    Range("C2:M86").Select
    ActiveSheet.ExportAsFixedFormat xlTypePDF, ThisWorkbook.Path & "\JRN.pdf", Quality:=xlQualityStandard
    ElseIf Range("$P$5").Value = 3 Then
    Range("C2:M132").Select
    ActiveSheet.ExportAsFixedFormat xlTypePDF, ThisWorkbook.Path & "\JRN.pdf", Quality:=xlQualityStandard
    ElseIf Range("$P$5").Value = 4 Then
    Range("C2:M178").Select
    ActiveSheet.ExportAsFixedFormat xlTypePDF, ThisWorkbook.Path & "\JRN.pdf", Quality:=xlQualityStandard
    ElseIf Range("$P$5").Value = 5 Then
    Range("C2:M224").Select
    ActiveSheet.ExportAsFixedFormat xlTypePDF, ThisWorkbook.Path & "\JRN.pdf", Quality:=xlQualityStandard
    End If
    Range("A1").Select
    End Sub
    Merci de m'avoir consacré votre temps.
     
  9. job75

    job75 XLDnaute Barbatruc

    Inscrit depuis le :
    15 Mai 2008
    Messages :
    25775
    "J'aime" reçus :
    2193
    Sexe :
    Masculin
    Habite à:
    Paris
    Utilise:
    Excel 2013 (PC)
    Bonsoir kadelmalin,

    Je n'avais pas vu votre dernier post.

    Ce qu'il faut c'est définir la zone d'impression pour les 5 valeurs de P5 :
    Code (Text):
    Sub Sauve_Doc()
    If IsError(Application.Match([P5], Array(1, 2, 3, 4, 5), 0)) Then Exit Sub
    ActiveSheet.PageSetup.PrintArea = "C2:M" & 46 * [P5] - 6 'définit la zone d'impression
    ActiveSheet.ExportAsFixedFormat xlTypePDF, ThisWorkbook.Path & "\JRN.pdf", Quality:=xlQualityStandard
    End Sub
    PS : En VBA les Select sont en général inutiles, voire nuisibles.

    A+
     
  10. kadelmalin

    kadelmalin XLDnaute Junior

    Inscrit depuis le :
    27 Septembre 2008
    Messages :
    89
    "J'aime" reçus :
    1
    Bonjour le forum,
    Merci job75 de m'avoir accordé cet intérêt; je vais tester cette nouvelle solution.
     

Partager cette page