XL 2016 VBA export PDF

[Soleil11]

Bonjour le Forum,

J'utilise le script ci-dessous pour exporter ma feuille sous format PDF dans mon H:drive. J'aimerais qu'il utilise le nom qui se trouve dans ma cellule "B2" qui est une liste déroulante a la place du nom ci-dessous "Export.pdf"..

--------------
Sub SavePDF()

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:="H:\José DriveH\Supplier Dev\Export.pdf", _
OpenAfterPublish:=True

End Sub
------------------
Pourriez-vous m'aider à modifier ce code.

Merci d'avance pour votre aide à tout le forum.

Soleil11

 

[JCGL]

Bonjour à tous,

Peux-tu essayer avec :

Sub SavePDF()
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
    Filename:="H:\José DriveH\Supplier Dev\" & Feuil1.Range("B2").Text & ".pdf", _
    OpenAfterPublish:=True
End Sub

A+ à tous

 

[Soleil11]

Rebonjour,

C'est parfait, c'est tout-à-fait ce qu'il me faut.

Une excellente journée.

Soleil11