Discussion :

[Jeyjey1]

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

[Invité]

Bonjour,

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

Si c'est bien le cas :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Invité]

Bonjour

Regardes du coté de la fonction InStr

Starec

[ucfoutu]

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

[cafeine]

Hello,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If Fic.name Like "*.xls"

qui marche très bien