Macro enregistrement via liste déroulante

bonjour

j'ai une macro qui imprime via une liste déroulante.

je veux qu'elle enregistre en PDF sur ce chemin D: Mareno et non pas en .PrintOut

d'avance merci.

Sub Impression()

Dim Liste As String, C As Range

With Sheets("Buisness Support")

Liste = .Range("C7").Validation.Formula1

Liste = Right(Liste, Len(Liste) - 1)

For Each C In Range(Liste)

.[C7] = C.Value

.PrintOut

Next C

End With

End Sub

Bonjour Mareno

Sans fichier difficile de répondre mais voici un morceau de code

Dim A, B
A= Range("A1").Text 'Correspond au nom à enregistrer pour le fichier PDF, cela peut être une autre cellule
B = Environ("userprofile") 'cela correspond à  C\Users\Mareno , si ce n'est pas le bon chemin indique le
Range("B13:E28").Select 'Plage cellule sélectionnée
        Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        B & "\Le dossier où sera enregistrer ton pdf\" & A & ".pdf", Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        False

bonjour

merci BCP c'est parfait.

Cdt.