Recherche mot dans formule (VBA)

Bonsoir, je cherche à faire une macro qui me permet de vérifier si un mot existe dans la formule d'une cellule. J'ai essayé avec Like mais cela me donne toujours la même réponse :s

Merci de votre aide

Code:

---

1 2 3 4 5 6 7

'en A1 j'ai la formule suivante : ='Q:\PLANNING\[Planning 2014.xlsm]Planning'!B8 Fichier = "Planning 2014.xlsm" if activesheet.range("A1").formula like Fichier then msgbox "Trouvé" else msgbox "Non trouvé" end if

---

Code:

---

1 2 3 4 5 6

Fichier = "*Planning 2014.xlsm*" if activesheet.range("A1").formula like Fichier then msgbox "Trouvé" else msgbox "Non trouvé" end if

---

Bonjour,

cela semble également convenir:

Code:

---

1 2 3 4 5 6 7

fichier = "Planning 2014.xlsm" If InStr(1, [a1].Formula, fichier) <> 0 Then MsgBox "Trouvé" Else MsgBox "Non trouvé" End If

---