Trouver mot dans une variable

Bonjour à tous,

J'ai problème avec ma condition (en rouge), je n'arrive pas à trouver quelque chose pour dire que si dans ma cellule on trouve le mot 'Xls' (parmi d'autres mots), on continue
Est ce que quelqu'un aurait une idée, merci

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Dim fich As String Feuil1.Activate Cel.Activate ActiveCell.Offset(0, 1).Select fich = ActiveCell.Text If fich = 'comporte Xls' Then Else ShellExecute 0, "open", fich, "", "", SW_SHOWNORMAL End If Exit Sub

---

Bonjour,

Je suppose que dans votre cas "Xls" ne peut que se trouver à la fin.

Si c'est bien le cas :

Code:

---

If Right(fich, 3) = "Xls" Then

---

Pour éviter toutes confusions en majuscules ou minuscules vous pouvez aussi indiquer :

Code:

---

If LCase(Right(fich, 3)) = "xls" Then

---

Bonjour

Regardes du coté de la fonction InStr

Starec

Citation:

---

Envoyé par Starec

Bonjour

Regardes du coté de la fonction InStr

Starec

---

Oui...
et pendant que tu y es et si ta cellule contient un chemin avec d'autres choses devant et derrière, intéresse-toi également à InstrRev... et à Mid

Hello,

Instr() est très bien, pour les habitués de SQL, il y a aussi

Code:

---

If Fic.name Like "*.xls"

---

qui marche très bien