Microsoft 365 Chemin d'acces local

eric72 · 22 Janvier 2024

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 · 22 Janvier 2024

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

VB:

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] =...

Phil69970 · 22 Janvier 2024

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

VB:

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 · 22 Janvier 2024

Phil69970 à dit:

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

VB:

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 · 22 Janvier 2024

RE

Feuille avec 3 F ne fonctionnera jamais !!!

Et tu ne recupere aucune valeur dans la colonne D

Cousinhub · 22 Janvier 2024

Phil69970 à dit:
RE

Feuille avec 3 F ne fonctionnera jamais !!!

Bonjour,
Sinon, en enlevant le Dir, aussi?

eric72 · 22 Janvier 2024

Phil69970 à dit:

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

VB:

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 · 22 Janvier 2024

Cousinhub à dit:
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 · 22 Janvier 2024

@Cousinhub

Exact

eric72 · 22 Janvier 2024

Phil69970 à dit:
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!!!

VB:

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

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

eric72 · 22 Janvier 2024

Cousinhub à dit:
Bonjour,
Sinon, en enlevant le Dir, aussi?

Merci pour le tuyau

eric72 · 22 Janvier 2024

Phil69970 à dit:
@Cousinhub

Exact

je viens de trouver l'erreur

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

quel boulet!!!
Merci beaucoup

Microsoft 365 Chemin d'acces local

eric72

XLDnaute Accro

Phil69970

Phil69970

XLDnaute Barbatruc

eric72

XLDnaute Accro

Pièces jointes

Phil69970

XLDnaute Barbatruc

Cousinhub

XLDnaute Barbatruc

eric72

XLDnaute Accro

eric72

XLDnaute Accro

Phil69970

XLDnaute Barbatruc

eric72

XLDnaute Accro

eric72

XLDnaute Accro

eric72

XLDnaute Accro

Discussions similaires