pb avec ActiveWorkbook.Path

[guima1642]

Bonjour le forum,

j'aimerai remonter d'un répertoire en VB du style

fichier = ActiveWorkbook.Name 'Enregistre le nom du fichier courant
chemin = ActiveWorkbook.Path & "\" 'repertoire courant

chemin2 = [COLOR="Red"]la je suis perdue[/COLOR] 'il me faudrait les ".." du dos mais je sais pas comment faire

Merci

 

[Pierrot93]

Re : pb avec ActiveWorkbook.Path

Bonsoir Guima

pas sur d'avoir tout compris, peut être ainsi :

Dim rep1 As String, rep2 As String
rep1 = ThisWorkbook.Path
rep2 = Mid(rep1, 1, InStrRev(rep1, "\") - 1)

bonne soirée
@+

 

[guima1642]

Re : pb avec ActiveWorkbook.Path

Salut et déjà merci

C'est presque ça en fait si :


rep1 = d:\a graver\audio\

rep2 = d:\a graver\

voila ce que j'aimerai

 

[tototiti2008]

Re : pb avec ActiveWorkbook.Path

Bonjour à tous,

pour info, je pense que
"d:\a graver\audio\..\"
sera correctement compris, mais sinon, sur l'idée de Pierrot :

Dim rep1 As String, rep2 As String
rep1 = ThisWorkbook.Path & "\"
rep2 = Mid(rep1, 1, InStrRev(Left(rep1, Len(rep1) - 1), "\") - 1)

 

[Pierrot93]

Re : pb avec ActiveWorkbook.Path

Re, tototiti

sans doute pas tout compris, mais il suffit peut être d'enlever uniquement le -1 de la fin...

Dim rep1 As String, rep2 As String
rep1 = ThisWorkbook.Path
rep2 = Mid(rep1, 1, InStrRev(rep1, "\"))

bonne soirée
@+

 

[Staple1600]

Re : pb avec ActiveWorkbook.Path

Bonsoir à tous


Avec Split

Sub test()
Dim rep$, rep1$
rep = "d:\a graver\audio\" 'rep=activeworkbook.path
rep1 = Split(rep, "\")(0) & "\" & Split(rep, "\")(1)
MsgBox rep1
End Sub

 

[guima1642]

Re : pb avec ActiveWorkbook.Path

merci beaucoup,

Je vais m'en sortir entre ces deux solutions.

Quel bonheur ce forum.