Bonjour tout le monde,
 
je suis entrain de coder une petite appli sous Excel 2000 et je voudrais remonter d'un cran dans l'arborescence de mon chemin afin de pouvoir acceder dynamiquement a ma base de données sans coder le chemin d'acces en dur.
 
j'ai bien récupérer mon chemin d'acces de mon fichier Excel avec l'instruction suivante :
ActiveWorkbook.Path
 
Mais je ne sais pas comment remonter.
 
Merci

C'est bon j'ai trouvé une solution,
je le poste au cas ou cela serve à quelqu'un
 
Dim strChBase As String
    Dim y As String
     
    strChBase = ThisWorkbook.Path   'Repertoire du fichier Excel
    Do While y <> "\"
        strChBase = Left(strChBase, Len(strTest) - 1)
        y = Mid(strChBase, Len(strChBase ), Len(strChBase ))
    Loop

Dim CheminComplet as string
Dim VarTabSplit  
Dim IntCnt as Integer
Dim Chemin as string
 
     CheminComplet  = ActiveWorkbook.Path
     VarTabSplit = split(ActiveWorkbook.Path,"\" )
     Chemin = ""
     for intcnt = 0 to ubound(VarTabSplit )-1
           Chemin = Chemin & VarTabSplit (intcnt)
     next intcnt