Enregistrer sous pdf

Bonjour,

Nouveau sur le forum, je vous remercie d'avance de votre aide

En recherchant sur les forum j'ai créer une macro pour enregistrer sous pdf une feuille en fonction du contenu d'une case

ça a fonctionner une fois mais depuis plus rien

voici la macro

Sub CREER_DLR()

ActiveSheet.ExportAsFixedFormat Type:=x1TypePDF, _

Filename:=CStr(Feuil3.Range("A1").Value)

End Sub

parfois la publication se lance mais ne se termine pas

(la feuille s'appelle DLR

je souhaite créer un pdf avec le nom de fichier de la case A1

plus tard je souhaiterai choisir le repertoire

Merci pour votre attention et votre aide

Bonjour

pour excel >= 2007 voila une macro pour faire un page A4 en PDF

Sub Choix()
'Sheets("Stat").Select
NomDoc = Range("A1").Value
   With ActiveSheet.PageSetup
       .PrintArea = "$B$5:$R$36"
       .Zoom = False
       .FitToPagesWide = 1
       .FitToPagesTall = 1
   End With

   Chemin = ThisWorkbook.Path & "\"
   NomFiche = Chemin & NomDoc & Format(Now, "-dd-mmmm-yyyy") & ".pdf"
   Call EditionPDF(NomFiche)
 MsgBox "Edition Terminer"
End Sub

Sub EditionPDF(NomFiche)
   ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
      Filename:=NomFiche, _
      Quality:=xlQualityMinimum, _
      IncludeDocProperties:=True, _
      IgnorePrintAreas:=False, _
      OpenAfterPublish:=False
End Sub

A+

Maurice

Bonsoir

J'ai pas précisé mais je suis sur Excel 2010

Ça change quelque chose ?

Merci