Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Microsoft 365 Chemin d'acces local

Créer une discussion
  • 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 !

S'inscrire
E

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"

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] =...
Trier par date Trier par votes
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 ! 😉
 
Vote positif 0 Vote négatif
Solution
Bonjour Phil,
Malheureusement cela ne fonctionne pas, à moins que je n'ai pas bien reproduit ta solution!!!🙄
Merci de ton aide
 

Pièces jointes

Vote positif 0 Vote négatif
même en enlevant un "l" au nom de l'onglet 😉
 
Vote positif 0 Vote négatif
Phil69970 à dit:
RE

Feuille avec 3 F ne fonctionnera jamais !!!

Et tu ne recupere aucune valeur dans la colonne D
Cliquez pour agrandir...
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
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- 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

E
  • Résolu(e)
Microsoft 365 POWER QUERY connexion onedrive
Réponses
4
Affichages
117
eric72
E
C
  • Question Question
Microsoft 365 Disparation de données dans des fichiers excel
Réponses
10
Affichages
427
CedricR34
C
  • Résolu(e)
Power Query importer fichier CSV, dont le chemin est dans une cellule Excel
Réponses
11
Affichages
206
oguruma
Z
  • Question Question
Microsoft 365 Chemin pour atteindre le stockage cloud lors d'une génération de fichier Excel
Réponses
2
Affichages
592
zedude
Z
D
  • Résolu(e)
Microsoft 365 Problème interférences entre macros
Réponses
14
Affichages
250
Phil69970
F
  • Question Question
Microsoft 365 Problème avec VBA ( Résolu)
Réponses
2
Affichages
388
firecarl
F
S
  • Résolu(e)
XL 2013 Questions déjà traitée ici mais... (Insérer cellule dans nom de PDF)
Réponses
10
Affichages
257
StéphaneDeLà
S
J
  • Question Question
Microsoft 365 Gestion des liens d'enregistrement
2
Réponses
21
Affichages
1 K
julien1982
J
F
  • Question Question
XL 2016 recherche de mots
2
Réponses
19
Affichages
472
job75
N
  • Question Question
Microsoft 365 Excel automatisé pour gestion du temps par projet
Réponses
11
Affichages
318
Dudu2
L
  • Résolu(e)
XL 2016 Pb publipostage conditionnelle avec base de données Excel
Réponses
1
Affichages
397
Linda42
L
P
  • Résolu(e)
XL 2016 VBA Insérer une date dans le nom de fichiers PDF publipostés via WORD à partir d"excel
Réponses
3
Affichages
241
PHIL37
P
M
  • Question Question
XL 2021 Agenda21_25dec2020
Réponses
4
Affichages
179
max60
M
M
  • Résolu(e)
Microsoft 365 Problème Excel Macros Liaison Ppt
Réponses
11
Affichages
495
D. HANIB
D
  • Question Question
Microsoft 365 Plantages runtime incohérents suite à de nombreuses erreurs de runtime ou de compilation
Réponses
7
Affichages
182
oguruma
M
  • Question Question
XL 2021 Erreurs lors de l'enregistrement d'un fichier excel
Réponses
11
Affichages
354
MJ13
D
  • Résolu(e)
Microsoft 365 Macro pour rafraîchir les liaisons
Réponses
11
Affichages
411
AtTheOne
G
  • Question Question
XL 2016 VBA - Gestion des chemins (réseau) dans un environnement Citrix
Réponses
2
Affichages
435
Greedyyy3317
G
L
  • Question Question
Microsoft 365 recherche X lien entre 2 fichiers
Réponses
3
Affichages
264
lilie17
L
  • Question Question
Microsoft 365 vba : récupérer chemin local et chemin onedrive
Réponses
0
Affichages
992
ERIC S
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…