Choix de destination d'enregistrement

Fermé
Polycontraste - 30 sept. 2021 à 15:53
yg_be Messages postés 22838 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 31 mai 2024 - 30 sept. 2021 à 16:33
Bonjour,

Totalement novice en la matière de VBA, je souhaite modifier une macro d'enregistrement en PDF qui pointe le dossier "Desktop" mais si je partage cette feuille de calcule le dossier pointé n'existe plus car plus le meme utilisateur, je souhaite donc faire apparaitre une boite de dialogue qui me permettra de définir ou sauvegarder mon export PDF ou utiliser une destination que sera toujours les desktop actif

Merci de vos réponses

1 réponse

Whismeril Messages postés 19048 Date d'inscription mardi 11 mars 2003 Statut Contributeur Dernière intervention 30 mai 2024 913
30 sept. 2021 à 16:07
Bonjour

Tout d’abord un petit tuto
https://excel-malin.com/tutoriels/vba-fonctions/vba-fonction-environ/

Et là un exemple qui crée un dossier sur le bureau (donc connait le chemin du bureau)

https://vbaf1.com/file-directory/create-folder-on-desktop/


0
yg_be Messages postés 22838 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 31 mai 2024 1 471
30 sept. 2021 à 16:33
L'exemple suppose que le bureau se trouve au même endroit que les infos de profil. C'est parfois vrai.

Ceci me semble plus fiable:
Function GetDesktop() As String
    Dim oWSHShell As Object

    Set oWSHShell = CreateObject("WScript.Shell")
    GetDesktop = oWSHShell.SpecialFolders("Desktop")
    Set oWSHShell = Nothing
End Function
0