PB:navigation et extraction d'une partie d'une cellule

Question

davidouz
LUT, je récupère une adresse complète dans une cellule ex: "C:...\...	oto.xls" et j'aimerai bien récupérer "toto.xls", c'est à dire l'adresse excel simplement. Je pense qu'il faut le faire avec une boucle qui va chercher le dernier "" mais je n'arrive pas. PLEASE HELP ME.

econs · Answer

Dim chaine As string
Dim tablo() As string

chaine = "c:ep1ep2ep3	oto.xls"
tablo = Split(chaine,"",,vbtextcompare)

MsgBox tablo(Ubound(tablo))

Manu

cs_BadNews · Answer

Y'a surement plus simple, mais moi je fais comme ça:

Dim CheminComplet, excel As string
CheminComplet = "C:...\...	oto.xls"
For i = 1 To Len(CheminComplet)
If Left(Right(CheminComplet, i), 1) = "" Then GoTo Find
Next i
Find:
excel = Right(CheminComplet, i - 1)

Dans ce cet exemple, la variable excel te retourneras le mot "toto.xls"

Mais comme je te dis, il y a surement un façon plus simple de le faire. J'espère t'avoir aidé pour l'instant =) .

@+

BadNews

cs_BadNews · Answer

oops, j'ai pas été assé rapide ... :)

econs · Answer

lol
Et ton code aura sans doute aussi du mal, au niveau de la rapidité !

Deux p'tites notes pour toi :

For i = 1 To Len(CheminComplet)

A chaque passage dans la boucle, il évalue 
Len(CheminComplet)

Comme tu es sûr de ne pas modifier la chaine, il est préférable d'écrire :

x = Len(cheminComplet)
For i=1 To x

De plus, ta syntaxe Left(Right(CheminComplet, i), 1) = ""
peut se résumer par Mid(CheminComplet,i,1) si tu fais varier i de Len(CheminComplet) à 1 Step -1

Bonne prog'

Manu

cs_BadNews · Answer

Merci du conseil!  :) 

Comme tu peux le constater, je ne suis pas un programmer de haut niveau et la plupart du temp, j'apprends seul. Les erreurs que j'ai fait sont des erreurs d'inattention. Pour ce qui est du Mid(), je le connaissais mais je ne savais pas trop l'utiliser. Maintenant oui  :big) 

...

J'ai une question pour toi qui n'a aucun raport avec le reste.
je l'ai posté sur le forum aujourd'hui; La voici:

Comme dois-je faire pour changer la police d'écriture du blocnote avant sont ouverture, ou pendant?

Si tu as une idée, merci de bien vouloir m'aider. :approve) 

Merci encore!