Modifier le nom en pdf

Bonjour

Je suis très novice :)

Voila, j'aimerais enregistre enregistrer ma feuille active en pdf, avec un nom particulier. Le nom d'une cellule (I2) Toutefois cette cellule est une formule, je voudrait donc que le fichier pdf se nomme avec le résultat de cette cellule. Formule de la cellule (=V2&W2&X2)

Voici ma macro de basse, mais je suis à bout de mes ressources.

Merci à l'avance :)

Sub PDF()
'
' PDF Macro
'

'
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"D:\Bilan Albert Alpha.pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
True
End Sub

Edit modo : code à mettre entre balises SVP

Bonjour publiweb et

Une petite présentation ICI serait la bienvenue

Je vous invite à lire la charte du forum [A LIRE AVANT DE POSTER] qui vous aidera dans vos demandes et réponses sur ce forum,
ainsi que ses fonctionnalités

Concernant votre demande, le code est à mettre entre balises SVP avec le bouton

Sinon l'instruction est

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= "D:\" & Range("I2") & ".pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True

Le mieux est de passer par des variables que vous pouvez ensuite manipuler à votre guise

Sub PDF()
  Dim sPath as String, sFic as String
  sPath = "D:\
  sFic = Sheets("Toto").Range("I2") & ".pdf"
  ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= sPath & sFic, _
  Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
End Sub

Merci de votre participation

Cordialement