Microsoft 365 Chemin d'acces local

[eric72]

Bonjour à tous,
Je cherche désespérémment la possibilité d'afficher le chemin d'acces LOCAL de mon fichier dans une cellule, ou par formule ou par VBA, je ne trouve que des formules pour avoir le chemin d'accès complet donc pour un fichier sur sharepoint cela me pose problème. Quelqu'un a t il déjà rencontré ce problème.
Merci beaucoup et bonne journée.

 

[Phil69970]

Bonjour @eric72

Je te propose ceci :

Tu ouvres excel tu renommes ta feuille "Feuille Test"

Et tu colles ce code et tu exécutes la macro

Sub Test()
Sheets("Feuille Test").[D1] = Dir(Environ("ALLUSERSPROFILE"))
Sheets("Feuille Test").[D2] = Dir(Environ("APPDATA"))
Sheets("Feuille Test").[D3] = Dir(Environ("FPS_BROWSER_USER_PROFILE_STRING"))
Sheets("Feuille Test").[D4] = Dir(Environ("HOMEPATH"))
Sheets("Feuille Test").[D5] = Dir(Environ("LOCALAPPDATA"))
Sheets("Feuille Test").[D6] = Dir(Environ("OneDrive"))
Sheets("Feuille Test").[D7] = Dir(Environ("OneDriveConsumer"))
Sheets("Feuille Test").[D8] = Dir(Environ("PUBLIC"))
Sheets("Feuille Test").[D9] = Dir(Environ("USERDOMAIN"))
Sheets("Feuille Test").[D10] = Dir(Environ("USERDOMAIN_ROAMINGPROFILE"))
Sheets("Feuille Test").[D11] = Dir(Environ("USERNAME"))
Sheets("Feuille Test").[D12] = Dir(Environ("USERPROFILE"))
End Sub

Tu devrais trouver ton bonheur dans la colonne D ligne 6 ou 7 je pense !

 

[eric72]

Bonjour @eric72

Je te propose ceci :

Tu ouvres excel tu renommes ta feuille "Feuille Test"
Regarde la pièce jointe 1188986
Et tu colles ce code et tu exécutes la macro

Sub Test()
Sheets("Feuille Test").[D1] = Dir(Environ("ALLUSERSPROFILE"))
Sheets("Feuille Test").[D2] = Dir(Environ("APPDATA"))
Sheets("Feuille Test").[D3] = Dir(Environ("FPS_BROWSER_USER_PROFILE_STRING"))
Sheets("Feuille Test").[D4] = Dir(Environ("HOMEPATH"))
Sheets("Feuille Test").[D5] = Dir(Environ("LOCALAPPDATA"))
Sheets("Feuille Test").[D6] = Dir(Environ("OneDrive"))
Sheets("Feuille Test").[D7] = Dir(Environ("OneDriveConsumer"))
Sheets("Feuille Test").[D8] = Dir(Environ("PUBLIC"))
Sheets("Feuille Test").[D9] = Dir(Environ("USERDOMAIN"))
Sheets("Feuille Test").[D10] = Dir(Environ("USERDOMAIN_ROAMINGPROFILE"))
Sheets("Feuille Test").[D11] = Dir(Environ("USERNAME"))
Sheets("Feuille Test").[D12] = Dir(Environ("USERPROFILE"))
End Sub

Tu devrais trouver ton bonheur dans la colonne D ligne 6 ou 7 je pense !

Bonjour Phil,
Malheureusement cela ne fonctionne pas, à moins que je n'ai pas bien reproduit ta solution!!!
Merci de ton aide

 

[Phil69970]

RE

Feuille avec 3 F ne fonctionnera jamais !!!

Et tu ne recupere aucune valeur dans la colonne D

 

[Cousinhub]

RE

Feuille avec 3 F ne fonctionnera jamais !!!

Bonjour,
Sinon, en enlevant le Dir, aussi?

 

[eric72]

Bonjour @eric72

Je te propose ceci :

Tu ouvres excel tu renommes ta feuille "Feuille Test"
Regarde la pièce jointe 1188986
Et tu colles ce code et tu exécutes la macro

Sub Test()
Sheets("Feuille Test").[D1] = Dir(Environ("ALLUSERSPROFILE"))
Sheets("Feuille Test").[D2] = Dir(Environ("APPDATA"))
Sheets("Feuille Test").[D3] = Dir(Environ("FPS_BROWSER_USER_PROFILE_STRING"))
Sheets("Feuille Test").[D4] = Dir(Environ("HOMEPATH"))
Sheets("Feuille Test").[D5] = Dir(Environ("LOCALAPPDATA"))
Sheets("Feuille Test").[D6] = Dir(Environ("OneDrive"))
Sheets("Feuille Test").[D7] = Dir(Environ("OneDriveConsumer"))
Sheets("Feuille Test").[D8] = Dir(Environ("PUBLIC"))
Sheets("Feuille Test").[D9] = Dir(Environ("USERDOMAIN"))
Sheets("Feuille Test").[D10] = Dir(Environ("USERDOMAIN_ROAMINGPROFILE"))
Sheets("Feuille Test").[D11] = Dir(Environ("USERNAME"))
Sheets("Feuille Test").[D12] = Dir(Environ("USERPROFILE"))
End Sub

Tu devrais trouver ton bonheur dans la colonne D ligne 6 ou 7 je pense !

même en enlevant un "l" au nom de l'onglet

 

[eric72]

Bonjour,
Sinon, en enlevant le Dir, aussi?

oups je ne savais pas qu'il fallait enlever le "Dir".
Ca fonctionne , c'est top.
Merci beaucoup et bonne journée.

 

[Phil69970]

@Cousinhub

Exact

 

[eric72]

RE

Feuille avec 3 F ne fonctionnera jamais !!!

Et tu ne recupere aucune valeur dans la colonne D

Sabs vouloir abuser de ta bonne volonté, j'essaie donc d'intégrer le résultat dans le chemin d'acces mais j'ai une erreur de syntaxe!!!

repertoireBase = sheets("Données").range("AB7").value & "\" & Administration des Ventes\NAVETTE" & "\"

as-tu une idée du Pourquoi.
Merci beaucoup

 

[eric72]

Bonjour,
Sinon, en enlevant le Dir, aussi?

Merci pour le tuyau

 

[eric72]

@Cousinhub

Exact

je viens de trouver l'erreur

repertoireBase = Sheets("Données").Range("AB7").Value & "\" & "Administration des Ventes\NAVETTE" & "\"

quel boulet!!!
Merci beaucoup