Faire un pdf d'une zone d'impression

Bonjour,

J'ai une macro qui me permet d'enregistrer une feuille Excel sous pdf

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="demo.pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=False, IgnorePrintAreas:=False, OpenAfterPublish:=True

Mais (1) je ne sais pas où cet enregistrement va, et je suis obligé de faire "recherche" pour le retrouver.

Je voudrais que le fichier aille sur le bureau

(2) J'ai une macro qui me permet de définir et de mettre en page automatiquement une zone d'impression dans la feuille.

Sub ZoneImp1()
ZoneImp1 Macro
Range("B5:I74").Select
ActiveSheet.PageSetup.PrintArea = "$B$5:$I$74"
End Sub

Je voudrais enregistrer en pdf uniquement cette zone d'impression.

Rien ne marche.

J'utilise IgnorePrintArea:=False

Ou ActiveSheet.Selection

Mais ça ne marche pas. Je ne suis pas très fort en VBA, j'utilise des éléments que je trouve de droite et de gauche ...

Si quelqu'un sait comme régler ce problème ...

Merci,

Olivier

Bonjour Olivier, bonjour le forum,

Pour mettre le fichier sur le bureau, il te suffit d'en spécifier le chemin d'accès dans le nom du fichier. Dans le code ci-dessous j'ai mis le mien, tu adapteras...
Le code :

ActiveSheet.PageSetup.PrintArea = "$B$5:$I$74"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="C:\Users\Robert\Desktop\demo.pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=False, IgnorePrintAreas:=False, OpenAfterPublish:=True

Merci, c'est parfait.

J'ai une question de complément : est-ce que je peux intituler le fichier par le contenu d'une cellule ?

Encore merci.

Re,

Oui, comme ça :

Sub Macro1()
Dim NF As String 'déclare la variable NF (Nom Fichier)
Dim NFC As String 'déclare la variable NF (Nom Fichier Complet)

NF = ActiveSheet.Range("A1").Value 'définit NF (cellule à adapter)
NFC = "C:\Users\Olivier\Desktop\" & NF 'définit NFC (chemin à adapter)
ActiveSheet.PageSetup.PrintArea = "$B$5:$I$74"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=NFC, Quality:=xlQualityStandard, _
IncludeDocProperties:=False, IgnorePrintAreas:=False, OpenAfterPublish:=True
End Sub

Merci beaucoup.

Olivier

Je reviens vers vous avec une nouvelle question :

Je fais une impression en VBA

J'ai une formule : .PaperSize = xlPaperA4

Je voudrai imprimer selon un format que j'ai défini. Et que j'ai appelé Contrat

C'est du 210 X 375

Comment je dois l'indiquer ?

.PaperSize = xlPaperContrat ?

.PaperSize = xlPaper210x375 ?

J'ai essayé" plusieurs formules, il ne prend rien.

Bien à vous,

Olivie r

Re,

Désolé mais je ne pourrais pas t'aider sur ce coup. Je n'ai utilisé ExportAsFixedFormat qu'une seule fois pour moi...

Si tu n'obtiens pas de réponse, je te conseille de crée un nouveau fil car celui-ci risque de ne pas être très regardé puisqu'il a déjà eu quelques réponses...

OK, pas de souci.

Merci pour tout

Olivier