Trouver un mot dans une variable

Question

Bonjour,


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

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

pile_poil · Answer

pour cela tu as  "compare" ou encore "instr" tu trouveras dans l'aide de VB6 la façon de s'en servir

Kristof_Koder · Answer

If Instr(Fich, "XLS") <> 0 Then ...

PCPT · Answer

salut,
plus le Start oui....

Private Sub Action()

Feuil1.Activate
Cel.Activate ' "CEL" ? ah 
bon...
ActiveCell.Offset(0, 1).Select
If InStr(1, LCase$(ActiveCell.Text), "XLS") = 0 Then ShellExecute 0, "open", ActiveCell.Text, "", "", SW_SHOWNORMAL

End Sub

++
<hr size="2" width="100%" />Prenez un instant pour répondre à [infomsg_SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp

PCPT · Answer

oups j'oubliais qu'il était facultatif....
m'enfin au moins çà rappelle l'utilité ;)

++
<hr size="2" width="100%" />Prenez un instant pour répondre à [infomsg_SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp

Trouver un mot dans une variable

4 réponses

Votre réponse