Pdf

Bonjour,

je voudrais convertir une zone sélectionner à convertir en pdf par une macro comment puis-je faire ?

merci

Re-bonjour Roxane !

Ma solution c'est faire un "enregistrer sous" en choisissant l'extension PDF :

remplacer l'adresse par l'endroit où tu veux enregistrer ton pdf

Sub enr_pdf()
   ActiveSheet.PageSetup.PrintArea = "A1:D10" 'remplacer la plage par ta plage
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ 'remplacer l'adresse par ton adresse
        "C:\Users\xxx\Desktop\Classeur2.pdf", Quality:=xlQualityStandard, _ 
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        True
End Sub

super merci beaucoup je vais tester cela

super merci beaucoup je vais tester cela

j'ai changer mon dossier de nom mais cela ne fonctionne pas ..

Sub enr_pdf()

Sheets("Création Facture").Select

ActiveSheet.PageSetup.PrintArea = "E1:j44" 'remplacer la plage par ta plage

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _

"C:\Users\roxane\Desktop\Pilotage de l'activité", Quality:=xlQualityStandard, _

IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _

True

End Sub

Re !

Il ne faut pas changer que le nom du dossier, il faut mettre tout le chemin qui correspond. Là comme j'ai testé sur mon PC j'ai mis l'adresse de mon bureau mais sur ton PC c'est peut-être différent