Discussion :

[Devmartech]

Avec la fonction VBA : ActiveWorkbook.Path
quand je lançais ma macro qui dans le répertoire du OneDrive que j'ai synchronisé en local sur mon C:\Users\BalboDALI\OneDrive - SITE DEVT\00-Dev\PreparationDossier\macro.xlsm

J'obtenais :
C:\Users\BalboDALI\OneDrive - SITE DEVT\00-Dev\PreparationDossier
Là depuis une mise à jour de microsoft windows10 il y a quelques jours de ça. quand je lance ma macro, la fonction VBA : ActiveWorkbook.Path me ramène le lien suivant sachant que je n'ai change le code de la macro.
https://my.sharepoint.com/personal/s...arationDossier

Je ne sais comment faire pour ne pas avoir ce lien hypertexte

[goninph]

Bonjour,

La fonction de Nicolas.joh fonctionne.

Problème j'ai OneDrive et la fonction me renvoie le chemin du OneDrive que je ne veux pas

Comment faire pour trouver l'autre chemin ?

Je vous remercie
Meilleures salutations
Philippe

[Arkham46]

Bonjour,

Pour retrouver le chemin UNC à partir du chemin http :
https://www.developpez.net/forums/d1.../#post10721957

[wouana19]

Hello Arkham,

Je ne maitrise pas les fonctions avec les librairies API, il faudra vraiment m'y mettre un jour. Je vais chercher des tutos sur le sujet.

J'avais cherché longtemps cette fonction qui permet de trouver le chemin UNC, merci pour ton partage.

Par contre il me semble qu'il y a une petite erreur sur la page que tu mentionnes dans ton lien pour la version 64bits. la déclaration de la fonction devrait être en "Private Declare PtrSafe Function ...", non ?
en effectuant un test cela fonctionne uniquement comme ceci.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
#If VBA7 Then
Private Declare PtrSafe Function DavGetUNCFromHTTPPath Lib "Netapi32.dll" (ByVal Url As LongPtr, ByVal UncPath As LongPtr, lpSize As Long) As Long
#Else
Private Declare Function DavGetUNCFromHTTPPath Lib "Netapi32.dll" (ByVal Url As Long, ByVal UncPath As Long, lpSize As Long) As Long
#End If

++

[Arkham46]

Par contre il me semble qu'il y a une petite erreur sur la page que tu mentionnes dans ton lien pour la version 64bits. la déclaration de la fonction devrait être en "Private Declare PtrSafe Function ...", non ?
en effectuant un test cela fonctionne uniquement comme ceci.

Tout à fait, merci.
J'ai corrigé le code dans la discussion mentionnée.

[laurent_ott]

Bonjour,
Une question pour ma culture : pourquoi utiliser VBA7 et pas WIN64 pour savoir si l'on utilise une version 32 ou 64 bits ?
Car de mémoire VBA7 peut être installé sur les deux versions ?

Merci.

[rvtoulon]

Bonjour,
j'ai eu le même problème
et apparemment résolu en décochant cette option dans les paramètres de OneDrive:



@+

[wouana19]

Hello,

La solution est rvToulon est possible, mais c'est déconseillé si vous utilisé l'espace de stockage à plusieurs simulnanéments (un des objectifs du cloud).

la seule solution que j'ai trouvé jusqu'à présent et de modifier ton résultat pour arriver à un chemin local. On pourrait même en créer une fonction.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Dim cheminOndeDrive As String
Dim CheminLocal As String
 
cheminOndeDrive = ActiveWorkbook.Path
CheminLocal = Replace(cheminOndeDrive, _
   "https://my.sharepoint.com/personal/siteDev_com/Documents", _
   "C:\Users\BalboDALI\OneDrive - SITE DEVT")
 CheminLocal = Replace(CheminLocal, "/", "\")
 
Debug.Print CheminLocal

Cordialement
Wouana

[rvtoulon]

Bonjour,
l'utilité de ActiveWorkbook.path est de connaître le dossier qui contient le classeur actif, ainsi si le classeur change de dossier le nouvel emplacement sera connu lorsque le code sera lancé de nouveau.
La solution de wouana19 est correct mais elle implique de mettre l'emplacement du fichier en dur dans le code.
Et si son fichier change de Dossier? ou si un des collaborateurs change le fichier de place sur onedrive?

Pour mon utilisation (pour le moment) je décoche, je fais fonctionner mes macros, je recoche si besoin.

Quand est-il pour Devmartech?

[Nicolas.joh]

Bonjour,

Je viens de tomber sur cette discussion car j'y le même problème avec mes macros qui ne tourne plus si elles sont sur le disque local avec OneDrive.

Après quelques recherches, voici ma solution de contournement :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Sub test()
 
BaseRacineOneDrive = Environ("OneDrive") & "\"
chemin = ActiveWorkbook.fullname ' ActiveWorkbook.Path  ' pour avoir que le chemin
C = InStr(1, chemin, "/Documents") + 10
old_chemin = Left(chemin, C)
New_Chemin = Replace(Replace(chemin, old_chemin, BaseRacineOneDrive), "/", "\") & "\"
Debug.Print New_Chemin
 
End Sub

Il ne reste plus qu'à tester, en créer une function avec un test du style
If left(chemin , 5 ) = "https" then
les commandes ci-dessus
else
chemin
end if

En espérant que cela fonctionne pour vous

[wouana19]

Bonjour,

Oui j'étais passé un moment par cette solution qui fonctionnait bien.
J'ai par la suite eu un soucis selon le poste utilisé car parfois il y a 2 paramétrages pour OneDrive (OneDrive privé et OneDrive professionnel).
La commande Environ("OneDrive") prenait, si mes souvenir son bon, le premier OneDrive paramétré sur le poste.

Mais si un seul OneDrive est installé cela fonctionne.