Sortie vers fichier PDF

[kadelmalin]

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.

 

[kiki29]

Salut, va voir par ici

 

[kadelmalin]

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.

 

[chindou]

Bonsoir,
peut être le fichier joint sera utile
voici le lien https://www.cjoint.com/c/HJktOWgF6zd
Abdelkader

 

[job75]

Bonsoir,

Pourquoi un fichier sur cjoint Abdelkader ?

Et pourquoi compliquer la macro ? Créer un PDF c'est rien du tout :

Sub PDF()
ActiveSheet.ExportAsFixedFormat xlTypePDF, ThisWorkbook.Path & "\Formulaire.pdf", Quality:=xlQualityStandard
End Sub

Bonne nuit.

 

[kadelmalin]

Bonjour le forum,
Merci beaucoup pour votre aide, çà c'est débloqué grâce à vous.
salutations amicales.

 

[kadelmalin]

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.

 

[job75]

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 :

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+

 

[kadelmalin]

Bonjour le forum,
Merci job75 de m'avoir accordé cet intérêt; je vais tester cette nouvelle solution.