Left et right

Salut !
Je cherche à enlever des portions de noms...voici des exemples...
Barillon_anti_alldir.xls doit devenir Barillon
campos_pro_alldir.xls doit devenir campos
Le probleme est que le nombre de caractères apres le nom n est pas constant et je ne sais pas trop comment m'y prendre avec les fonctions right et left...
Merci à tous

Bonjour captaine93,

peux tu me préciser deux point stp

1 Est ce que systématiquement après ton nom n tu as le caractère "_" ?

2 Tu cherches à renommer quoi exactement ? Le texte d'une cellule, une feuille ou un classeur ?

Bonjour,

Si le nombre de caractères du mot que vous voulez récupérer n'est pas constant, il faut que vous ayez un séparateur précis (au pire quelques-uns).

Dans ce cas vous pouvez utiliser la fonction Split (on suppose que votre texte est contenu dans une cellule) :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

Sub Separe() Dim text$, Tableau() As String, i!, pl&, dl&, n&   '1ère ligne contenant vos données (vous pouvez modifier) pl = 2   dl = Range("A65536").End(xlUp).Row   For n = pl To dl text = Cells(n, 1) Tableau = Split(text, "_") 'modifiez si _ n'est pas le séparateur   For i = 0 To UBound(Tableau) if i = 0 then Cells(n, 2) = Tableau(i) End If Next i Next n     End Sub

---

Merci à toi jacques_jean...c'est exactement ce que je cherchais !
En effet "-" était mon séparateur et je cherchais à renommer une cellule...
Merci à vous deux !
Longue vie au forum;)