Microsoft 365 [RESOLU] problème Retour Chemin Environ(5) ou Environ("Documents)

[ChTi160]

Bonjour ,
je cherche a récupérer le chemin du Dossier qui se trouve dans :

C:\Users\jeanm\

soit

C:\Users\jeanm\Documents

mais la fonction Environ me renvoie un chemin vers Dropbox

Comment y remettre de l'ordre ?

Ou alors une explication sur le bien-fondé de ce retour de la fonction Environ()

Merci par avance
Bonne fin de Journée

jean marie

 

[Staple1600]

Bonjour

Ca donne quoi avec ceci?

Sub test()
Dim objFolders As Object
Set objFolders = CreateObject("WScript.Shell").SpecialFolders
MsgBox objFolders("mydocuments")
End Sub

 

[ChTi160]

Bonjour JM
merci de ton intérêt lol
ça ne change rien !
ça me donne !

C:\Users\jeanm\Dropbox\Mon PC (LAPTOP-M5T8AJUO)\Documents

il faut savoir que j'ai désinstaller DropBox et relancé mon Ordi
que puis je nettoyer pour ne plus avoir ce chemin en mémoire ?
Merci JM
jean marie

 

[Staple1600]

Re

Essais de faire ceci
Clic-droit sur le dossier Documents
=>Propriétés
Va ensuite sur l'onglet Emplacement
Et rétablis le bon emplacement.

 

[ChTi160]

Re
je vais essayer mais j'ai bien un Fichier "Documents" dans "C:\Users\jeanm\"
ca ne va pas me supprimer ce Dossier et les Fichiers qu'il contient ?
je pensais supprimer le chemin vers "DropBox"
merci
jean marie

 

[Staple1600]

Re

Bouge pas, je te fais une copie d'écran de mon dossier

Donc si le chemin est C:\Users\NOMDUPROFILACTIF\Documents
C'est le chemin par défaut.
Dans ce cas, pas de changement à faire ici.

 

[ChTi160]

Re
bon j'ai résolu en partie grâce a toi mon problème Lol
j'ai d'abord supprimé tout le Dossier DropBox!
ensuite je suis aller dans propriété et changé le Chemin vers "Documents " comme tu me l'a indiqué !
et ainsi
la procédure suivante me donne bien le Chemin Voulu par deux fois! Lol

Sub CheminRepertoiresSpeciaux()
       Const Cible = &H5 'Mes Documents
    Dim objShell As Object
    Dim objFolder As Object, objFolderItem As Object
    Set objShell = CreateObject("Shell.Application")
    Set objFolder = objShell.Namespace(Cible)
    Set objFolderItem = objFolder.Self
    MsgBox objFolderItem.Path
    Set objFolder = CreateObject("WScript.Shell").SpecialFolders
    MsgBox objFolder("mydocuments")
 End Sub

Merci JM
Amicalement
Jean marie

 

[Staple1600]

Re

Le code du message#2 ne le donne qu'une fois, non?

 

[ChTi160]

Re
Oui j'ai mis deux version dans le Post #7
comment citer comme solution ?
jean marie

 

[Staple1600]

Re

Un autre pour la route

Private Declare Function lstrlenW Lib _
    "kernel32" (ByVal lpString&) As Long
Private Declare Function SHGetFolderPath Lib _
    "shfolder.dll" Alias "SHGetFolderPathA" (ByVal hwndOwner&, ByVal nFolder&, ByVal hToken&, ByVal dwReserved&, ByVal lpszPath$) As Long
Sub Avec_L_Artillerie_Lourde()
Dim sBuffer$, MesDocs$
sBuffer = Space$(260)
If SHGetFolderPath(&H0, &H5, -1, &H0, sBuffer) = 0 Then
MesDocs = Left$(sBuffer, lstrlenW(StrPtr(sBuffer)))
End If
MsgBox MesDocs
End Sub

NB: Pour citer comme solution, tu cliques l'icone à droite du message "solution"
(icone qui ressemble à une case à cocher ronde cochée)

 

[ChTi160]

Re
Ok merci pour le Résolu
je regarde la procédure Lol
et ca fonctionne Lol

Merci JM
Amicalement
Jean marie