extraire chaine de caractère

[fatalerror]

Bonjour,

Débutant en VBA je souhaite extraire ce qui se trouve après le \ dans les chaines suivantes

C:\donnees\Log_Arrêt_Plan-Défaut__26082013.lubg
C:\donnees\glpi.xls

J'en ai besoin pour modifier un code qui n'est pas de moi et que je peine à interpréter.

Merci pour votre aide.

 

[pierrejean]

Re : extraire chaine de caractère

Bonjour fatalerror

Avec une fonction personnalisée

 

[phlaurent55]

Re : extraire chaine de caractère

Bonjour fataleror, et bienvenue sur le forum

avec ce code:

Sub extraire()
For i = 1 To Range("A65535").End(xlUp).Row
Cells(i, 2) = Replace(Cells(i, 1), "C:\", "")
Next i
End Sub

à+
Philippe

Edit: Salut PierreJean

 

[david84]

Re : extraire chaine de caractère

Bonjour à tous,
si tes données véritables correspondant à l'exemple fourni :

Function fatalerror(c)
fatalerror = Replace(c, "C:\donnees\", "")
End Function

A+

Edit: sinon pour le fun une solution formules en adaptant la fonction InStrRev utilisée par pierrejean que je salue :

=SI(A1<>"";STXT(A1;CHERCHE("§";SUBSTITUE(A1;"\";"§";NBCAR(A1)-NBCAR(SUBSTITUE(A1;"\";""))))+1;NBCAR(A1));"")

 

[fatalerror]

Re : extraire chaine de caractère

Merci beaucoup pour votre aide.

 

[Fredsto]

Bonjour PierreJean,

Je pu lire de nombreux posts de votre part mais je n'ai pas trouvé une solution. J'aimerai extraire une chaine de caractère (récupérer des noms de villes) Est-ce possible pour vous de m'aider? je vous mets un fichier test pour que vous voyez.

 

[pierrejean]

Bonjour Fredsto

En supposant avoir bien compris

 

[Fredsto]

Bonsoir,

Merci pour votre réponse si rapide.
En fait pas tout à fait, je vous mets dans l'onglet 2 ce que j'aimerai comme résultat.

J'espère que ceci est réalisable.
Encore merci

 

[pierrejean]

Re

A partir de ton fichier d'origine

 

[Fredsto]

Merci !!!!!! C'est exactement ce que je voulais!! Quelle rapidité. Merci PierreJean