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

XL 2013 Extraire une partie du chemin d'accès dans une cellule.

Y

YANOU38

XLDnaute Occasionnel
Bonjour à tous,
Mon chemin d'accès complet => Z:\AFFAIRES\18000\DOSSIERS\Essai 3.xlsm
Pour l'instant dans la cellule B3 j'ai => =STXT(CELLULE("nomfichier");13;5) qui me permet de récupérer le "18000" (5 caractères à partir du 13ième caractère).
J'en suis à récupérer la totalité du chemin par :
Code: 
Sub test3()
Range("B3") = ThisWorkbook.FullName
End Sub
mais je n'arrive pas à extraire le "18000" (?)
Merci pour votre aide.
 
Trier par date Trier par votes
Y

YANOU38

XLDnaute Occasionnel
Bonjour vgendron, Jacky67, le Forum,
Merci à vous 2 pour vos solutions (il a fallu en choisir 1 en "Solution"...désolé )
Je l'ai donc inséré dans mon code.
Un problème subsiste :
Quand la macro se lance, elle me demande de "Mettre à jour les valeurs" à chaque cellule modifiée (par la suite, que je pointe le dossier ou que je fasse "Annuler" la cellule va bien chercher au bon endroit).
J'ai tenté :
Code: 
Application.AskToUpdateLinks = False
en début de code
ou
Code: 
    ActiveWorkbook.UpdateLink Name:=ActiveWorkbook.LinkSources
Mais rien n'y fait...
Merci pour votre aide.
Mon code en entier :

VB: 
Private Sub Workbook_Open()

    [B4] = Split(ThisWorkbook.FullName, "\")(2)
    Range("B5").Formula = "='\\srv\AFFAIRES\" & Range("B4") & "\DOSSIER\[Dossier " & Range("B4") & ".xlsm]Questionnaire'!$B$16"
    Range("B7").Formula = "='\\srv\AFFAIRES\" & Range("B4") & "\DOSSIER\[Dossier " & Range("B4") & ".xlsm]Questionnaire'!$B$18"
    Range("B8").Formula = "='\\srv\AFFAIRES\" & Range("B4") & "\DOSSIER\[Dossier " & Range("B4") & ".xlsm]Questionnaire'!$B$19"
    Range("B9").Formula = "='\\srv\AFFAIRES\" & Range("B4") & "\DOSSIER\[Dossier " & Range("B4") & ".xlsm]Questionnaire'!$B$20"
    Range("B10").Formula = "='\\srv\AFFAIRES\" & Range("B4") & "\DOSSIER\[Dossier " & Range("B4") & ".xlsm]Questionnaire'!$B$21"
    Range("B13").Formula = "='\\srv\AFFAIRES\" & Range("B4") & "\DOSSIER\[Dossier " & Range("B4") & ".xlsm]Questionnaire'!$B$27"
    Range("B14").Formula = "='\\srv\AFFAIRES\" & Range("B4") & "\DOSSIER\[Dossier " & Range("B4") & ".xlsm]Questionnaire'!$B$42"
    Range("B15").Formula = "='\\srv\AFFAIRES\" & Range("B4") & "\DOSSIER\[Dossier " & Range("B4") & ".xlsm]Questionnaire'!$B$43"
    Range("B18").Formula = "='\\srv\AFFAIRES\" & Range("B4") & "\DOSSIER\[Dossier " & Range("B4") & ".xlsm]Questionnaire'!$B$39"
    Range("F13").Formula = "='\\srv\AFFAIRES\" & Range("B4") & "\DOSSIER\[Dossier " & Range("B4") & ".xlsm]Questionnaire'!$F$27"
    Range("F14").Formula = "='\\srv\AFFAIRES\" & Range("B4") & "\DOSSIER\[Dossier " & Range("B4") & ".xlsm]Questionnaire'!$F$42"
    Range("F15").Formula = "='\\srv\AFFAIRES\" & Range("B4") & "\DOSSIER\[Dossier " & Range("B4") & ".xlsm]Questionnaire'!$F$43"
    Range("F18").Formula = "='\\srv\AFFAIRES\" & Range("B4") & "\DOSSIER\[Dossier " & Range("B4") & ".xlsm]Questionnaire'!$F$39"
   
End Sub
 
Dernière édition:
Vote positif 0 Vote négatif
Y

YANOU38

XLDnaute Occasionnel
Alors la cellule B4 arrive correctement puis tout le reste en #REF!
Si je vais dans la cellule B5, je fais "Entrée" dans la formule, je cible le dossier et le lien se fait.
Par la suite, si j'efface le contenu de toutes les cellules et que je relance la macro, cette fois ci, le lien avec la cellule B5 se fait [il garde en mémoire le lien (?)] .
Merci pour votre aide.
VB: 
Private Sub Workbook_Open()

    Application.DisplayAlerts = False

    [B4] = Split(ThisWorkbook.FullName, "\")(2)
    Range("B5").Formula = "='\\srv\AFFAIRES\" & Range("B4") & "\DOSSIER\[Dossier " & Range("B4") & ".xlsm]Questionnaire'!$B$16"
    Range("B7").Formula = "='\\srv\AFFAIRES\" & Range("B4") & "\DOSSIER\[Dossier " & Range("B4") & ".xlsm]Questionnaire'!$B$18"
    Range("B8").Formula = "='\\srvp\AFFAIRES\" & Range("B4") & "\DOSSIER\[Dossier " & Range("B4") & ".xlsm]Questionnaire'!$B$19"
    Range("B9").Formula = "='\\srv\AFFAIRES\" & Range("B4") & "\DOSSIER\[Dossier " & Range("B4") & ".xlsm]Questionnaire'!$B$20"
    Range("B10").Formula = "='\\srv\AFFAIRES\" & Range("B4") & "\DOSSIER\[Dossier " & Range("B4") & ".xlsm]Questionnaire'!$B$21"
    Range("B13").Formula = "='\\srv\AFFAIRES\" & Range("B4") & "\DOSSIER\[Dossier " & Range("B4") & ".xlsm]Questionnaire'!$B$27"
    Range("B14").Formula = "='\\srv\AFFAIRES\" & Range("B4") & "\DOSSIER\[Dossier " & Range("B4") & ".xlsm]Questionnaire'!$B$42"
    Range("B15").Formula = "='\\srv\AFFAIRES\" & Range("B4") & "\DOSSIER\[Dossier " & Range("B4") & ".xlsm]Questionnaire'!$B$43"
    Range("B18").Formula = "='\\srv\AFFAIRES\" & Range("B4") & "\DOSSIER\[Dossier " & Range("B4") & ".xlsm]Questionnaire'!$B$39"
    Range("F13").Formula = "='\\srv\AFFAIRES\" & Range("B4") & "\DOSSIER\[Dossier " & Range("B4") & ".xlsm]Questionnaire'!$F$27"
    Range("F14").Formula = "='\\srv\AFFAIRES\" & Range("B4") & "\DOSSIER\[Dossier " & Range("B4") & ".xlsm]Questionnaire'!$F$42"
    Range("F15").Formula = "='\\srv\AFFAIRES\" & Range("B4") & "\DOSSIER\[Dossier " & Range("B4") & ".xlsm]Questionnaire'!$F$43"
    Range("F18").Formula = "='\\srv\AFFAIRES\" & Range("B4") & "\DOSSIER\[Dossier " & Range("B4") & ".xlsm]Questionnaire'!$F$39"
   
End Sub
 
Dernière édition:
Vote positif 0 Vote négatif

vgendron

XLDnaute Barbatruc
Désolé,
mais en fait, on ne comprend plus rien à ce que tu souhaites faire
des bouts de code sans aucun fichier n'aident pas à la compréhension de ton problème qui était juste d'extraire un bout de chaine
 
Vote positif 0 Vote négatif
Y

YANOU38

XLDnaute Occasionnel
Désolé,
Voici mon classeur.
Au début, sous l'Explorateur, j'ai un répertoire DOSSIER TYPE que je duplique et que je renomme.
Dans mon exemple il prend le nom de 18000.
VB: 
[B4] = Split(ThisWorkbook.FullName, "\")(2)
me permet de récupérer 18000 dans ma cellule B4.
La formule, sous le DOSSIER TYPE donne (exemple avec la cellule B16) :
='\\srv\AFFAIRES\DOSSIER TYPE\DOSSIER\[Dossier type.xlsm]Questionnaire'!$B$16
Sous 18000, elle devient :
='\\srv\AFFAIRES\18000\DOSSIER\[Dossier 18000.xlsm]Questionnaire'!$B$16
d'où :
Code: 
Range("B5").Formula = "='\\srv\AFFAIRES\" & Range("B4") & "\DOSSIER\[Dossier " & Range("B4") & ".xlsm]Questionnaire'!$B$16"
 

Pièces jointes

  • EPM.xlsm
    28.8 KB · Affichages: 7
Dernière édition:
Vote positif 0 Vote négatif

Jacky67

XLDnaute Barbatruc
RE..
Essaye avec
VB: 
[B4] = Split(ThisWorkbook.FullName, "\")(5)
5 étant la position de "18000" dans le chemin du fichier qui lance la macro
 
Dernière édition:
Vote positif 0 Vote négatif

vgendron

XLDnaute Barbatruc
as tu bien compris le fonctionnement de la fonction split?
cette fonction découpe une chaine de caractère avec le séparateur spécifié
exemple
chaine="ceci est le texte à découper"
séparateur = " "
split(chaine, séparateur)(0) '==> retourne le premier element de la chaine ==> ceci
split(chaine,séparateur)(3) '==>retourne le 4eme élément de la chaine==>texte

donc selon ou tu places ton classeur, et donc la position de 18000 dans la chaine, il va falloir adapter l'indice de retour (0 1 2 3 ....)

dans la macro
si tu fais application.displayalerts=false
il faut absolument le remettre à true en fin de macro
 
Vote positif 0 Vote négatif
Y

YANOU38

XLDnaute Occasionnel
Merci à vous pour ces explications.

Le "18000" apparaissait bien en B4, mais je ne comprenais pas pourquoi avec le (2) du split [au lieu du (5)].
Avec le (5) j'avais => Erreur d'exécution'9': L'indice n'appartient pas à la sélection.
Mon chemin était erroné, javais noté :
='\\srv\AFFAIRES\DOSSIER TYPE\DOSSIER\[Dossier... [qui donne bien (5) avec "\" dans le split]
Au lieu de :
='srv\AFFAIRES\DOSSIER TYPE\DOSSIER\[Dossier... [qui donne bien (2) avec "\"dans le split]
Ce qui donne :
VB: 
[B4] = Split(ThisWorkbook.FullName, "\")(2)
    Range("B5").Formula = "='srv\AFFAIRES\" & Range("B4") & "\DOSSIER\[Dossier " & Range("B4") & ".xlsm]Questionnaire'!$B$16"
Le 18000 étant bien rapatrié, je me contentais du (2) ... sans comprendre pourquoi.

Du coup, toujours pas de lien "automatique", toujours obligé de "Mettre à jour les valeurs".
Merci pour votre aide.
 
Dernière édition:
Vote positif 0 Vote négatif
Y

YANOU38

XLDnaute Occasionnel
Bonjour vgendron, Jacky67, le Forum,
Merci pour votre aide.
J'ai bien pataugé...et viens de trouver pourquoi le lien ne se faisait pas correctement.
Le chemin contient \DOSSIERS\ avec un S ...
Le code était \DOSSIER\ sans S ...
Tout fonctionne.
Merci pour votre persévérance et votre pédagogie.
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

G
  • Question
Microsoft 365 Saut de ligne dans une cellule
Réponses
3
Affichages
457
GClaire
G
H
  • Résolu(e)
XL 2019 récupérer une donnée d'un fichier csv pour le copier vers un autre
2
Réponses
27
Affichages
2 K
Hutchy33
H
I
  • Question
XL 2016 Extraire une partie d'un texte d'une cellule et le copier vers une autre cellule
2 3
Réponses
32
Affichages
2 K
Staple1600
S
  • Question
XL 2013 planning : récupérer le nom de la feuille pour l'inclure dans une formule
Réponses
6
Affichages
1 K
shushen
S
M
  • Résolu(e)
XL 2016 isoler une date contenue dans une cellule texte
Réponses
4
Affichages
758
gbinforme
G
P
  • Question
XL 2019 Écrire une chemin d'accès dans une cellule pour Recherchev
Réponses
2
Affichages
1 K
pat66
P
C
  • Question
Microsoft 365 Power Query : Chemin du dossier à atteindre dans une cellule nommée Chemin
Réponses
5
Affichages
4 K
CHALET53
C
A
  • Question
Microsoft 365 VBA: importer dans un dossier avec un nom variable
Réponses
4
Affichages
901
A-F
A
  • Question
Microsoft 365 Extraire une partie du chemin d'accès d'un chiffrier
Réponses
3
Affichages
1 K
kingfadhel
W
  • Question
Microsoft 365 Ecrire dans une cellule de tous les fichiers des sous-dossiers avec choix du dossier de base
Réponses
1
Affichages
982
patricktoulon
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…