extraire une partie du chemin

Le
Misange
coucou,
je récupère le chemin du classeur active par
chemin = ThisWorkbook.Path
ce qui me donne suivant le pc sur lequel je bosse
F:Floexcelabomiseajour
ou D:docsexcelabomoteurs
ou
bref, je voudrais récupérer tout ce qui est à gauche du slash excelabo,
F:Floexcelabo ou D:docsexcelabo quel que soit le PC sur lequel
je me trouve pour pouvoir réutiliser ce chemin par la suite.
merci du coup de main !
--

Misange migrateuse http://www.excelabo.net
mail : http://cerbermail.com/?k5Q8Dh2mta
Vos réponses Page 1 / 2
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
sabatier
Le #312187
messieurs les jurés
je vous prie de ne point répondre à cette question qui a déjà été traitée
ici même des milliers de fois et ce n'est quand même pas de votre faute si
elle n'a pas été mise sur excelabo....
jps (qui pense que le volatile pourrait mettre son site à jour plutôt que
s'empifrer des desserts des autres)

Misange wrote:

coucou,
je récupère le chemin du classeur active par
chemin = ThisWorkbook.Path
ce qui me donne suivant le pc sur lequel je bosse
F:Floexcelabomiseajour
ou D:docsexcelabomoteurs
ou...
bref, je voudrais récupérer tout ce qui est à gauche du slash excelabo,
F:Floexcelabo ou D:docsexcelabo quel que soit le PC sur lequel
je me trouve pour pouvoir réutiliser ce chemin par la suite.
merci du coup de main !
--

Misange migrateuse http://www.excelabo.net
mail : http://cerbermail.com/?k5Q8Dh2mta


popi
Le #312185
Salut Misange,
bref, je voudrais récupérer tout ce qui est à gauche du slash
excelabo, F:Floexcelabo ou D:docsexcelabo quel que soit le PC
comme çà par ex ;


Sub avant_excelabo()
Dim rPos
rPos = WorksheetFunction.Find("excelabo", ActiveWorkbook.Path)
MsgBox Left(ActiveWorkbook.Path, rPos - 2)
End Sub

@+ popi

ru-th
Le #312184
Salut Flo

une possibilité
Sub test2()
rep = ActiveWorkbook.FullName
MsgBox Mid(rep, Application.Find("exelabo", rep) + 10, 9 ^ 9)
End Sub


--
a+
rural thierry
Veaux et Broutards d'Anjou
Wicasa on kin nape yapi inahni yo (à l'essai)

"Misange"
coucou,
je récupère le chemin du classeur active par
chemin = ThisWorkbook.Path
ce qui me donne suivant le pc sur lequel je bosse
F:Floexcelabomiseajour
ou D:docsexcelabomoteurs
ou...
bref, je voudrais récupérer tout ce qui est à gauche du slash excelabo,
F:Floexcelabo ou D:docsexcelabo quel que soit le PC sur lequel
je me trouve pour pouvoir réutiliser ce chemin par la suite.
merci du coup de main !
--

Misange migrateuse http://www.excelabo.net
mail : http://cerbermail.com/?k5Q8Dh2mta



ru-th
Le #312167
oups !
problème de latératralité !
Sub test2()
rep = ActiveWorkbook.FullName
MsgBox Left(rep, Application.Find("excelabo", rep))
End Sub


--
a+
rural thierry
Veaux et Broutards d'Anjou
Wicasa on kin nape yapi inahni yo (à l'essai)

"ru-th"
Salut Flo

une possibilité
Sub test2()
rep = ActiveWorkbook.FullName
MsgBox Mid(rep, Application.Find("exelabo", rep) + 10, 9 ^ 9)
End Sub


--
a+
rural thierry
Veaux et Broutards d'Anjou
Wicasa on kin nape yapi inahni yo (à l'essai)

"Misange"
coucou,
je récupère le chemin du classeur active par
chemin = ThisWorkbook.Path
ce qui me donne suivant le pc sur lequel je bosse
F:Floexcelabomiseajour
ou D:docsexcelabomoteurs
ou...
bref, je voudrais récupérer tout ce qui est à gauche du slash excelabo,
F:Floexcelabo ou D:docsexcelabo quel que soit le PC sur lequel
je me trouve pour pouvoir réutiliser ce chemin par la suite.
merci du coup de main !
--

Misange migrateuse http://www.excelabo.net
mail : http://cerbermail.com/?k5Q8Dh2mta







Paul V.
Le #312159
JPS, ta méchanceté me désole.
Mais je vais aider, moi.
Chère Misange, il te suffit d'effacer l'entièreté du répertoire Excelabo et
quand tu fera la recherche, il ne t'en parlera plus.
Une autre solution, peut-être plus subtile. Change le nom du répertoire
"Excelabo" en " " càd quelques espaces.
Facile,non?

N'hésite pas si tu as encore des problèmes aussi facile à résoudre. Je serai
toujours là.

A+

Paul V

sabatier wrote:
messieurs les jurés
je vous prie de ne point répondre à cette question qui a déjà été
traitée ici même des milliers de fois et ce n'est quand même pas de
votre faute si elle n'a pas été mise sur excelabo....
jps (qui pense que le volatile pourrait mettre son site à jour plutôt
que s'empifrer des desserts des autres)

Misange wrote:

coucou,
je récupère le chemin du classeur active par
chemin = ThisWorkbook.Path
ce qui me donne suivant le pc sur lequel je bosse
F:Floexcelabomiseajour
ou D:docsexcelabomoteurs
ou...
bref, je voudrais récupérer tout ce qui est à gauche du slash
excelabo, F:Floexcelabo ou D:docsexcelabo quel que soit le
PC sur lequel je me trouve pour pouvoir réutiliser ce chemin par la
suite.
merci du coup de main !
--

Misange migrateuse http://www.excelabo.net
mail : http://cerbermail.com/?k5Q8Dh2mta




sabatier
Le #312878
vous voulez plutôt dire : lathéâtralité, mon père, non?
jps

ru-th wrote:

oups !
problème de latératralité !
Sub test2()
rep = ActiveWorkbook.FullName
MsgBox Left(rep, Application.Find("excelabo", rep))
End Sub

--
a+
rural thierry
Veaux et Broutards d'Anjou
Wicasa on kin nape yapi inahni yo (à l'essai)

"ru-th"
Salut Flo

une possibilité
Sub test2()
rep = ActiveWorkbook.FullName
MsgBox Mid(rep, Application.Find("exelabo", rep) + 10, 9 ^ 9)
End Sub


--
a+
rural thierry
Veaux et Broutards d'Anjou
Wicasa on kin nape yapi inahni yo (à l'essai)

"Misange"
coucou,
je récupère le chemin du classeur active par
chemin = ThisWorkbook.Path
ce qui me donne suivant le pc sur lequel je bosse
F:Floexcelabomiseajour
ou D:docsexcelabomoteurs
ou...
bref, je voudrais récupérer tout ce qui est à gauche du slash excelabo,
F:Floexcelabo ou D:docsexcelabo quel que soit le PC sur lequel
je me trouve pour pouvoir réutiliser ce chemin par la suite.
merci du coup de main !
--

Misange migrateuse http://www.excelabo.net
mail : http://cerbermail.com/?k5Q8Dh2mta









Michel Pierron
Le #312836
Bonsoir Misange;
Const MyDir = "excelabo"
Dim iPos As Byte
iPos = InStr(1, ThisWorkbook.Path, MyDir)
If iPos Then iPos = iPos + Len(MyDir) Else Exit Sub
MsgBox Left(ThisWorkbook.Path, iPos)


"Misange" news:
coucou,
je récupère le chemin du classeur active par
chemin = ThisWorkbook.Path
ce qui me donne suivant le pc sur lequel je bosse
F:Floexcelabomiseajour
ou D:docsexcelabomoteurs
ou...
bref, je voudrais récupérer tout ce qui est à gauche du slash excelabo,
F:Floexcelabo ou D:docsexcelabo quel que soit le PC sur lequel
je me trouve pour pouvoir réutiliser ce chemin par la suite.
merci du coup de main !
--

Misange migrateuse http://www.excelabo.net
mail : http://cerbermail.com/?k5Q8Dh2mta



Frédéric Sigonneau
Le #312828
Bonsoir,

La fonction Split du jour ?
(si tous les postes concernés utilisent Excel 2000 ou + récent)

'================== Function GaucheSlash(Chemin)
GaucheSlash = Split(Chemin, "excelabo")(0)
End Function

Sub test()
S1 = "F:Floexcelabomiseajour"
S2 = "D:docsexcelabomoteurs"
MsgBox GaucheSlash(S1)
MsgBox GaucheSlash(S2)
End Sub
'==================
Remarque
La fonction perso n'a rien d'indispensable, tu peux te contenter, dans du code,
d'une instruction du style :
chemin=Split(ThisWorkbook.Path, "excelabo")(0)


FS
--
Frédéric Sigonneau [MVP Excel - né un sans-culottide]
Gestions de temps, VBA pour Excel :
http://perso.wanadoo.fr/frederic.sigonneau
Si votre question sur Excel est urgente, évitez ma bal !


coucou,
je récupère le chemin du classeur active par
chemin = ThisWorkbook.Path
ce qui me donne suivant le pc sur lequel je bosse
F:Floexcelabomiseajour
ou D:docsexcelabomoteurs
ou...
bref, je voudrais récupérer tout ce qui est à gauche du slash excelabo,
F:Floexcelabo ou D:docsexcelabo quel que soit le PC sur lequel
je me trouve pour pouvoir réutiliser ce chemin par la suite.
merci du coup de main !
--

Misange migrateuse http://www.excelabo.net
mail : http://cerbermail.com/?k5Q8Dh2mta


Misange
Le #312691
Ben voilà !
c'est exactement ce que je cherchais sans réussir à mettre le doigt
dessus. J'étais partie dans des trucs pas poss avec des instr et des
len(monchemin) mais comme je ne m'appelle pas Michel je n'y étais pas
arrivée.
Merci à tous et un de plus à Frédéric dont je garde la simplissime solution.
Je sens que vous allez avoir droit à des questions... Je me suis lancée
dans une de ces usines à gaz...
Va falloir faire intervenir la brigade de déminage puis de dépollution
puis l'hygiène et sécurité pour le moins. Et c'est même pas pour le
boulot cette fois, c'est pour excelabo.

Misange migrateuse http://www.excelabo.net
mail : http://cerbermail.com/?k5Q8Dh2mta

le 16/12/2003 01:44:
Bonsoir,

La fonction Split du jour ?
(si tous les postes concernés utilisent Excel 2000 ou + récent)

'================== > Function GaucheSlash(Chemin)
GaucheSlash = Split(Chemin, "excelabo")(0)
End Function

Sub test()
S1 = "F:Floexcelabomiseajour"
S2 = "D:docsexcelabomoteurs"
MsgBox GaucheSlash(S1)
MsgBox GaucheSlash(S2)
End Sub
'================== >
Remarque
La fonction perso n'a rien d'indispensable, tu peux te contenter, dans du code,
d'une instruction du style :
chemin=Split(ThisWorkbook.Path, "excelabo")(0)


FS


Misange
Le #312690
quand j'ai dit merci à tous Jean paul, j'espère que tu n'as pas pris ça
pour toi ? Tu auras rectifié de toi même bien sur, merci à Philippe.

Misange migrateuse http://www.excelabo.net
mail : http://cerbermail.com/?k5Q8Dh2mta


le 15/12/2003 22:43:
messieurs les jurés
je vous prie de ne point répondre à cette question qui a déjà été traitée
ici même des milliers de fois et ce n'est quand même pas de votre faute si
elle n'a pas été mise sur excelabo....
jps (qui pense que le volatile pourrait mettre son site à jour plutôt que
s'empifrer des desserts des autres)

Misange wrote:


coucou,
je récupère le chemin du classeur active par
chemin = ThisWorkbook.Path
ce qui me donne suivant le pc sur lequel je bosse
F:Floexcelabomiseajour
ou D:docsexcelabomoteurs
ou...
bref, je voudrais récupérer tout ce qui est à gauche du slash excelabo,
F:Floexcelabo ou D:docsexcelabo quel que soit le PC sur lequel
je me trouve pour pouvoir réutiliser ce chemin par la suite.
merci du coup de main !
--

Misange migrateuse http://www.excelabo.net
mail : http://cerbermail.com/?k5Q8Dh2mta






Publicité
Poster une réponse
Anonyme