chercher une valeur dans une feuille excel

Ephores · 24 Mai 2004

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 · 25 Mai 2004

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

chercher une valeur dans une feuille excel

Ephores

Guest

G.David

Guest

Discussions similaires