pb avec ActiveWorkbook.Path

Pierrot93

XLDnaute Barbatruc

• 30 Octobre 2009

• #2

Re : pb avec ActiveWorkbook.Path

Bonsoir Guima

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

Code:

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

bonne soirée
@+

 

Vote positif 0 Vote négatif

G

guima1642

XLDnaute Occasionnel

• 30 Octobre 2009

• #3

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

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 30 Octobre 2009

• #4

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 :

Code:

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

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 30 Octobre 2009

• #5

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...

Code:

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

bonne soirée
@+

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 30 Octobre 2009

• #6

Re : pb avec ActiveWorkbook.Path

Bonsoir à tous


Avec Split

Code:

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

 

Vote positif 0 Vote négatif

G

guima1642

XLDnaute Occasionnel

• 3 Novembre 2009

• #7

Re : pb avec ActiveWorkbook.Path

merci beaucoup,

Je vais m'en sortir entre ces deux solutions.

Quel bonheur ce forum.

 

Vote positif 0 Vote négatif