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