Macro - Enregistrer sous avec un chemin variable par utilisateur

Bonjour,

Je souhaite créer une macro qui m'enregistrera la zone choisi en PDF dans le chemin indiqué:

"C:\Users"\"utilisateur"\Downloads\EU Brand_ Deep Dive_" & LaDate & " " & LHeure & ".pdf"

Ici "utilisateur" doit être variable selon chaque personne qui ouvre le fichier. J'ai écrit ce bout de VBA, mais j'ai une erreur sur la variabilité de l'utilisateur.

Je suis preneur d'une idée, sachant que je ne maitrise pas du tout. J'ai pensé à une fonction qui ouvre la boite "enregistrer sous" pour laisser à l'utilisateur le choix du lieu d'enregistrement, mais je ne trouve pas de façon de le faire non plus.

Sub PDF_eu_vendor_deepdive()

Dim LHeure As String, LeDate As String

LHeure = Format(Time, "HMS")

LaDate = Format(Date, "dd" & "." & "mm" & "." & "yyyy")

' Création fichier PDF

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

"C:\Users\" & VBA.Environ("USERNAME") & "\Downloads\EU Brand_ Deep Dive_" & LaDate & " " & LHeure & ".pdf"\Downloads\EU Brand_ Deep Dive_" & LaDate & " " & LHeure & ".pdf", Quality:= _

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

From:=1, To:=5, OpenAfterPublish:=False

' Message de confirmation

MsgBox ("Création du fichier PDF effectué" & vbCrLf & vbCrLf & "Merci ")

End Sub

Merci,

Bonjour

Une bête recherche sur le forum --> https://forum.excel-pratique.com/excel/enregistrement-pdf-nom-de-fichier-a-entrer-dans-une-fenetre-2...

Cordialement