Macro pour enregistrement sur bureau

Bonjour,

J'ai créé une macro qui me permet d'enregistrer sur mon bureau un fichier excel sous PDF. Le code est le suivant :

ChDir "C:\Users\LELIEVRE-02218\Desktop\Grille CMU"

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

"C:\Users\LELIEVRE-02218\Desktop\Grille CMU\DOC_CPAM_INT.pdf", Quality:= _

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

OpenAfterPublish:=True

Mon problème est que ce fichier peut-être utilisé par plusieurs personnes sur des postes de travail différent.

Je voudrais modifier le code pour le permettre à chacun de l'enregistrer sur son propre bureau.

Quelqu'un peut-il m'aider? Merci

Bonjour,

Une suggestion :

user = Environ("username")
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\" & user & "\Desktop\DOC_CPAM_INT.pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=True

ric

Merci beaucoup, vous m'avez bien dépanné. Le code fonctionne !

ric