Chemin global à partir d'un OneDrive

Bonjour,

J'ai une macro placer dans un fichier dans un oneDrive, mon chemin est du type : "C:\Users\NOMUTILISATEUR\OneDrive - NOMONEDRIVE\FICHIER_1\FICHIER_2"
Or je veux que ce chemin soit valable pour toute autre personne présent sur le OneDrive, sans que la personne n'ai besoin de changer le NOMUTILISATEUR et les noms des fichiers.
J'ai essayé ActiveWorkbook.path mais ça me renvoie un lien internet (ce qui rend l'ouverture du fichier avec une macro impossible) et j'ai également essayé CurDir mais le chemin trouvé est le suivant :
"C:\Users\NOMUTILISATEUR\OneDrive - NOMONEDRIVE\Documents"

Je voudrais bien soit une fonction qui me permet de connaitre l'emplacement exact du fichier ou alors je sais pas si c'est possible mais d'avoir un chemin du style : "~\OneDrive - NOMONEDRIVE\FICHIER_1\FICHIER_2".

Merci d'avance pour vos éventuelles réponses. :D

Bonjour,
je ne suis pas certain d'avoir compris!

Code:

---

environ("UserProfile") & "\OneDrive\FICHIER_1\FICHIER_2"

---

Alors oui merci ça répond en partie à la question.
Mais je me suis trompé, car en faisant ça, si quelqu'un modifie le chemin après le nom d'utilisateur cela ne marchera pas ....
Il me faudrait vraiment un activeWorkbook.path pour être sûr d'avoir le bon chemin à chaque fois. Ce qui ne fonctionne pas avec OneDrive, je ne sais pas si cela est possible mais bon pourquoi pas !

Code:

---

ThisWorkbook.Path

---

Avec ThisWorkbook.Path j'ai le lien internet du OneDrive. Et cela pose problème dans l'ouverture des fichiers Excel présent à l'emplacement que je souhaite trouvé.

Je vais regarder c'est vrai que j'ai pas tester dans onedrive

Bonjour,,
J'ai testé et j'ai bien c:\etc.. onedrive !

Désolé peut tu en renommant les infos confidentielles me donner un exemple de lien ?

Salut,
Traité il n'y a pas si longtemps dans un discussion...
Environ te renvoie si tu le désire les chemins de OneDrive.

Code:

---

1 2 3 4

OneDrive = 16 OneDriveCommercial = 17 OneDriveConsumer = 18 FullPath = Split(Environ(16), "=")(1)

---

Dans la fenêtre Exécution tapes

Code:

---

? split(Environ(16),"=")(1)

---

J'ai essayé ton code et ça me renvoie : "C:\Users\UTILISATEUR\AppData\Local".

Pour un exemple plus concrets : C:\Users\cphilipe\OneDrive - Haribo\Réglisse\Dimension\Excel contenant la macro

Mais le problème c'est que j'ai épinglé le fichier Réglisse qui de base est sur teams, donc je sais vraiment pas si c'est possible de récupérer l'emplacement complet...

Salut
Fait une boucle pour voir tous les entrées d'environ de 1 a 50 par exemple.

Code:

---

1 2 3 4

Dim i For i = 1 To 50 Debug.Print Environ(i) Next i

---

Tu n'auras plus qu'à regarder quel et le bon numéro sur ton système...

Edit sur mon système ....\AppData\Local correspond à 13 et non pas 16 ne te serais tu pas trompé ?
Sinon tu l'appelles en textuel Debug.Print Environ("OneDrive") ou Debug.Print Environ("OneDriveConsumer")