Microsoft 365 Chemin d'acces local

  • Initiateur de la discussion Initiateur de la discussion eric72
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

eric72

XLDnaute Accro
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.
 
Solution
Bonjour @eric72

Je te propose ceci :

Tu ouvres excel tu renommes ta feuille "Feuille Test"
1705921855816.png

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] =...
Bonjour @eric72

Je te propose ceci :

Tu ouvres excel tu renommes ta feuille "Feuille Test"
1705921855816.png

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 @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
 

Pièces jointes

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 😉
 
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
19
Affichages
470
Réponses
4
Affichages
179
Retour