none
VBA - Dossier local par défaut d'enregistrement RRS feed

  • Question

  • Bonjour,

    En VBA, je souhaite récupérer la valeur stockée dans le champ "Dossier local par défaut" pour l'enregistrement des fichiers (cf. capture d'écran).
    J'ai fait des tests avec les éléments de cette page [docs.microsoft.com/en-us/office/vba/api/word.wddefaultfilepath]mais je n'ai pas le résultat attendu.
    A l'ouverture d'un nouveau document "wdCurrentFolderPath" ou "wdDocumentsPath" me semble bien la valeur stockée dans ce champ mais si le document a été enregistré dans un autre répertoire la valeur retournée est celle du répertoire dans lequel le document a été enregistré et non la valeur inscrite dans le champ "Dossier local par défaut".

    Cordialement

    Fred

    vendredi 13 novembre 2020 13:48

Réponses

  • Ok j'ai pu récupérer la valeur dans la clé de registre :

        Set Registre = GetObject("winmgmts:\\.\root\default:StdRegProv")
        Set WshShell = CreateObject("Wscript.Shell")  
        readValue = WshShell.RegRead("HKEY_CURRENT_USER\SOFTWARE\Microsoft\Office\16.0\Word\Options\DOC-PATH")   
        MsgBox (readValue)

    • Marqué comme réponse Fred DIJOUX vendredi 13 novembre 2020 14:45
    vendredi 13 novembre 2020 14:45

Toutes les réponses

  • Ok j'ai pu récupérer la valeur dans la clé de registre :

        Set Registre = GetObject("winmgmts:\\.\root\default:StdRegProv")
        Set WshShell = CreateObject("Wscript.Shell")  
        readValue = WshShell.RegRead("HKEY_CURRENT_USER\SOFTWARE\Microsoft\Office\16.0\Word\Options\DOC-PATH")   
        MsgBox (readValue)

    • Marqué comme réponse Fred DIJOUX vendredi 13 novembre 2020 14:45
    vendredi 13 novembre 2020 14:45
  • Bonjour Fred,

    Merci d'avoir partagé la solution avec nous, cela peut aider quelqu'un qui rencontre un tel problème.
    Bonne soirée!

    Cordialement,
    Nina

    Microsoft propose ce service gratuitement, dans le but d'aider les utilisateurs et d'élargir les connaissances générales liées aux produits et technologies Microsoft. Ce contenu est fourni "tel quel" et il n'implique aucune responsabilité de la part de Microsoft.

    vendredi 13 novembre 2020 16:17
    Modérateur