chercher une valeur dans une feuille excel

[Ephores]

Bonjour,

je voudrais chercher si la valeur saisie dans une textbox existe dans une liste de fichier excel. Voila où j'en suis Merci pour votre aide d'avance :

For i = 1 To NbOccurence
URL = RTrim(ResultatRecherche.Chemin(i)) & ResultatRecherche.Fichiers(i).cFileName
'Créer l'appli excel
Set Base = CreateObject("Excel.Application")

'Afficher l'appli excel
Base.Visible = False



'Ouvrir le fichier excel
Base.Workbooks.Open FileName:=URL








--> c'est la que je coince

Base.ActiveWorkbook.Close False
Next

********************************************
ça ouvre et ferme tous les fichiers reste à faire le reste mais j'y arrive pas ;-((((

 

[G.David]

Salut
ta recherche elle s'effectue sur une feuille du classeur ou sur le classeur ouvert en entier
je pense que dans ce cas il te faudra une boucle
t=sheets.count
for p= 1 to t
sheets(p).select
'et la une boucle de balayage de tes cellules
for y=0 to 65535
for z=0 to 255
if cell(y,z)=ma_recherche then
'l'action
else
end if
next z
next y
next p
SGDG
(Sans Garantie David Guy)
Cordialement