Macro pour enregistrer sur bureau
Résolu
Lapin53
Messages postés
6
Statut
Membre
-
Lapin53 Messages postés 6 Statut Membre -
Lapin53 Messages postés 6 Statut Membre -
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
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
-
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
-
