position repertoire dans chemin d'un fichier

Question

Bonjour,
en VBA, depuis Excel 2007 ou 2003
dans le chemin suivant:
D:\gleroy\Mes documents\Affaire à créer\A-AFFAIRE\f- Q.S.E\bidon1\bidon2\[123 45 - Repertoire dossier RA.xls]info affaire
je travaille dans le fichier: [123 45 - Repertoire dossier RA.xls]
J'aimerais recuperer des donnée dans un fichier XLS se situant au même niveau que \A-AFFAIRE
c'est à dire dans un repertoire qui s'appelle ici Affaire à créer mais dont le nom change.
Donc j'aimerais recuperer dans une cellule le début du chemin, jusqu'à A_AFFAIRES, soit:
D:\gleroy\Mes documents\Affaire à créer\
afin d' y ajouter à la suite le nom du fichier dont je veux recuperer les donnees : fiche info affaires.xls
(la recup, je sais faire)
Merci de votre aide
Gilles72 
<

michel_m · Answer

Bonjour
dans cette maquette
j'ai écris le chemin initial en A1 et le chemin "parent" en A2
a toi d'adapter dans ton code

Sub dossiersparents()
Dim tablo_in, tablo_out

tablo_in = Split(Range("A1"), "\")
ReDim tablo_out(3)
    For cptr = 0 To 3
        tablo_out(cptr) = tablo_in(cptr)
    Next
Range("A2") = Join(tablo_out, "\") & "\"

End Sub

gilles72 · Answer

Merci MICHEL,
merci pour ta réponse... efficace
Nickel
à+
Gilles72

Position repertoire dans chemin d'un fichier

2 réponses

Discussions similaires

Newsletters