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 : Sélectionner tout - Visualiser dans une fenêtre à part
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