Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel extraire une partie du chemin

extraire une partie du chemin

12 réponses
Avatar
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:\Flo\excelabo\miseajour
ou D:\docs\excelabo\moteurs
ou...
bref, je voudrais récupérer tout ce qui est à gauche du slash excelabo,
F:\Flo\excelabo\ ou D:\docs\excelabo\ 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
Signaler un problème avec ce contenu

10 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2
Avatar
sabatier
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


Avatar
popi
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

Avatar
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" a écrit dans le message de 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



Avatar
ru-th
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" a écrit dans le message de news:

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" a écrit dans le message de 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







Avatar
Paul V.
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




Avatar
sabatier
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" a écrit dans le message de news:

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" a écrit dans le message de 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









Avatar
Michel Pierron
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" a écrit dans le message de
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



Avatar
Frédéric Sigonneau
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


Avatar
Misange
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


Avatar
Misange
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






1 2