Macro pour enregistrer sur bureau [Résolu/Fermé]

Signaler
Messages postés
6
Date d'inscription
lundi 3 décembre 2018
Statut
Membre
Dernière intervention
13 décembre 2018
-
Messages postés
6
Date d'inscription
lundi 3 décembre 2018
Statut
Membre
Dernière intervention
13 décembre 2018
-
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

2 réponses

Messages postés
6831
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
9 juillet 2020
532
Bonjour,

voir ceci:

https://excel-malin.com/codes-sources-vba/trouver-chemin-de-bureau/

et cela:

https://excel-malin.com/codes-sources-vba/vba-verifier-si-dossier-existe/

voici un exemple avec le site cité plus haut:

https://www.cjoint.com/c/HLmlJxVxCCQ

Messages postés
6
Date d'inscription
lundi 3 décembre 2018
Statut
Membre
Dernière intervention
13 décembre 2018

Merci