Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Développement Développement Visual Basic recherche valeur dans excel

recherche valeur dans excel

16 réponses
Avatar
ephores
Bonjour j'ai besoin de l'aide d'un pro.
Je cherche le moyen de chercher une valeur dans un fichier excel saisie dans
une textbox.
Pour l'instant j'en suis à ce qu'il ouvre et ferme tous les fichier de ma
liste, reste a ce qu'il cherche dedans si la valeur de textbox1 est presente
dans la feuille ouverte. Merci par avance pour votre aide ;-)

voici mon bout de code :


i = 1
Dim Base As Object

For i = 1 To NbOccurence
prct = ((100 * i) / NbOccurence)
ProgressBar (prct)
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 là que je bloque....

Base.ActiveWorkbook.Close False
Next

End Sub
Signaler un problème avec ce contenu

10 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2
Avatar
ephores
S'il vous plait.... dites moi si c'est possible.




"ephores" <ephores(at)free.fr> a écrit dans le message de
news:
Bonjour j'ai besoin de l'aide d'un pro.
Je cherche le moyen de chercher une valeur dans un fichier excel saisie


dans
une textbox.
Pour l'instant j'en suis à ce qu'il ouvre et ferme tous les fichier de ma
liste, reste a ce qu'il cherche dedans si la valeur de textbox1 est


presente
dans la feuille ouverte. Merci par avance pour votre aide ;-)

voici mon bout de code :


i = 1
Dim Base As Object

For i = 1 To NbOccurence
prct = ((100 * i) / NbOccurence)
ProgressBar (prct)
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 là que je bloque....

Base.ActiveWorkbook.Close False
Next

End Sub




Avatar
Zoury
Salut! :O)

S'il vous plait.... dites moi si c'est possible.



Ça l'est.. mais je n'ai pas très bien compris ce que tu souhaites faire...
en attendant de nous fournir plus de détail, as-tu fouiller les exemples
trainant sur Google?

en voici un parmi tant d'autre..
http://groups.google.com/groups?threadm:b12562.269871194%40MSNews.MicroSoft.com


--
Cordialement
Yanick Lefebvre - MVP pour Visual Basic
http://faq.vb.free.fr/?rubrique=0 - http://www.mvps.org/vbnet/
http://www.mentalis.org/agnet/apiguide.shtml - http://www.mztools.com/
Avatar
ephores
Merci mais c'est pas ça, je n'arrive pas a trouver justement.
Je voudrais simplement voir si un mot ou une valeur est present sur une
feuille excel, c'est tous simple mais je sais pas faire.....
mon prog recherche tous les fichier excel present dans un dossier , ensuite
il y a une zone de zaisi nommé textbox1 avec un cmdcommand nommé "search",
la suite que le progr ouvre un à un les fichier excel, ça j'y suis arrivé,
mais qu'il cherche dans chaque fichier si la valeur saisie dans textbox1 est
present dans cette feuille.

Merci pour ton aide ;-)


"Zoury" a écrit dans le message de
news:eMZip$
Salut! :O)

> S'il vous plait.... dites moi si c'est possible.

Ça l'est.. mais je n'ai pas très bien compris ce que tu souhaites faire...
en attendant de nous fournir plus de détail, as-tu fouiller les exemples
trainant sur Google?

en voici un parmi tant d'autre..



http://groups.google.com/groups?threadm:b12562.269871194%40MSNews.MicroSoft.com


--
Cordialement
Yanick Lefebvre - MVP pour Visual Basic
http://faq.vb.free.fr/?rubrique=0 - http://www.mvps.org/vbnet/
http://www.mentalis.org/agnet/apiguide.shtml - http://www.mztools.com/




Avatar
ephores
HELP HELP ou chui viré ;-(((((

"ephores" <ephores(at)free.fr> a écrit dans le message de
news:
Bonjour j'ai besoin de l'aide d'un pro.
Je cherche le moyen de chercher une valeur dans un fichier excel saisie


dans
une textbox.
Pour l'instant j'en suis à ce qu'il ouvre et ferme tous les fichier de ma
liste, reste a ce qu'il cherche dedans si la valeur de textbox1 est


presente
dans la feuille ouverte. Merci par avance pour votre aide ;-)

voici mon bout de code :


i = 1
Dim Base As Object

For i = 1 To NbOccurence
prct = ((100 * i) / NbOccurence)
ProgressBar (prct)
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 là que je bloque....

Base.ActiveWorkbook.Close False
Next

End Sub




Avatar
Patrice Henrio
Tu comprendras mieux ce qui se passe et comment le programmer si tu ouvres
sous Excel une macro à enregistrer, tu recherches une chaîne de caractères
dans le fichier et ensuite tu fermes ta macro.
Tu ouvres dans outils>visualBasic et tu recherches ta macro que tu viens de
créer. tu auras à ce moment le code correspondant à ta recherche. En t'en
inspirant tu devrais pouvoir généraliser dans ton programme.
Bien sûr tout cela peut se faire directement dans la recherche de fichiers
sous Windows.

"ephores" <ephores(at)free.fr> a écrit dans le message de
news:e$".

HELP HELP ou chui viré ;-(((((

"ephores" <ephores(at)free.fr> a écrit dans le message de
news:
> Bonjour j'ai besoin de l'aide d'un pro.
> Je cherche le moyen de chercher une valeur dans un fichier excel saisie
dans
> une textbox.
> Pour l'instant j'en suis à ce qu'il ouvre et ferme tous les fichier de


ma
> liste, reste a ce qu'il cherche dedans si la valeur de textbox1 est
presente
> dans la feuille ouverte. Merci par avance pour votre aide ;-)
>
> voici mon bout de code :
>
>
> i = 1
> Dim Base As Object
>
> For i = 1 To NbOccurence
> prct = ((100 * i) / NbOccurence)
> ProgressBar (prct)
> 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 là que je bloque....
>
> Base.ActiveWorkbook.Close False
> Next
>
> End Sub
>
>




Avatar
Zoury
Salut! :O)

Regarde un peu cette exemple..

J'ai un fichier .XLS (c:excel.xls) avec ce contenu de A1 à C5 :
1 5 10
2 10 20
3 15 30
4 20 40
5 25 50

Voici mon code :
'***
' Ajouter la référence Microsoft Excel X.X Object Library
' Module1
Option Explicit

Private Sub Main()

Dim ex As Excel.Application
Dim ws As Excel.Worksheet

Set ex = New Excel.Application
Set ws = ex.Workbooks.Open("c:excel.xls").Worksheets(1)

' affiche tous les résultats
Dim rng As Range
Debug.Print "** Valeur des cellules dans le Range A1 à C5 **"
For Each rng In ws.Range("A1:C5")
Debug.Print "Adresse : " & rng.Address, "Valeur : " & rng.Value
Next rng

' On recherche l'adresse de la cellule ayant pour valeur 40
Debug.Print "** Valeur retournée par la méthode Find() **"
Debug.Print "Adresse de la cellule valant ""40"" : " &
ws.Range("A1:C5").Find("40").Address

Call ex.Quit

End Sub
'***

--
Cordialement
Yanick Lefebvre - MVP pour Visual Basic
http://faq.vb.free.fr/?rubrique=0 - http://www.mvps.org/vbnet/
http://www.mentalis.org/agnet/apiguide.shtml - http://www.mztools.com/
"ephores" <ephores(at)free.fr> a écrit dans le message de
news:

Merci mais c'est pas ça, je n'arrive pas a trouver justement.
Je voudrais simplement voir si un mot ou une valeur est present sur une
feuille excel, c'est tous simple mais je sais pas faire.....
mon prog recherche tous les fichier excel present dans un dossier ,


ensuite
il y a une zone de zaisi nommé textbox1 avec un cmdcommand nommé "search",
la suite que le progr ouvre un à un les fichier excel, ça j'y suis


arrivé,
mais qu'il cherche dans chaque fichier si la valeur saisie dans textbox1


est
present dans cette feuille.

Merci pour ton aide ;-)


"Zoury" a écrit dans le message de
news:eMZip$
> Salut! :O)
>
> > S'il vous plait.... dites moi si c'est possible.
>
> Ça l'est.. mais je n'ai pas très bien compris ce que tu souhaites


faire...
> en attendant de nous fournir plus de détail, as-tu fouiller les exemples
> trainant sur Google?
>
> en voici un parmi tant d'autre..
>



http://groups.google.com/groups?threadm:b12562.269871194%40MSNews.MicroSoft.com
>
>
> --
> Cordialement
> Yanick Lefebvre - MVP pour Visual Basic
> http://faq.vb.free.fr/?rubrique=0 - http://www.mvps.org/vbnet/
> http://www.mentalis.org/agnet/apiguide.shtml - http://www.mztools.com/
>
>




Avatar
ephores
Merci pour vos réponses, mais je suis pas un as, alors vos solutions
j'arrive pas à les faire fonctionner.
Personne n'a eu à faire ce genre de chose ? un exemple comme j'en trouve par
millier d'autre chose mais pas de ça.
Pitié !!!
Lourdage dans J-2.

Merci


"ephores" <ephores(at)free.fr> a écrit dans le message de
news:
Bonjour j'ai besoin de l'aide d'un pro.
Je cherche le moyen de chercher une valeur dans un fichier excel saisie


dans
une textbox.
Pour l'instant j'en suis à ce qu'il ouvre et ferme tous les fichier de ma
liste, reste a ce qu'il cherche dedans si la valeur de textbox1 est


presente
dans la feuille ouverte. Merci par avance pour votre aidionnee ;-)

voici mon bout de code :


i = 1
Dim Base As Object

For i = 1 To NbOccurence
prct = ((100 * i) / NbOccurence)
ProgressBar (prct)
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 là que je bloque....

Base.ActiveWorkbook.Close False
Next

End Sub




Avatar
Zoury
Salut! :O)

as-tu lu mon exemple? si oui, dit ce que tu ne comprends pas.

--
Cordialement
Yanick Lefebvre - MVP pour Visual Basic
http://faq.vb.free.fr/?rubrique=0 - http://www.mvps.org/vbnet/
http://www.mentalis.org/agnet/apiguide.shtml - http://www.mztools.com/
Avatar
François Picalausa
Hello,

Voici une autre solution possible:
Dim Base As Object

Set Base = CreateObject("Excel.Application")
Base.Visible = False

Dim MyWorkbook As Object
'Ouvrir le fichier excel "c:tototata.xls"
Set MyWorkbook = Base.Workbooks.Open("c:tototata.xls")

Dim MySheet As Object
Dim FindRange As Object

'Parcourt toutes les feuilles
For Each MySheet In MyWorkbook.Sheets
'Cherche dans chaque feuille le text contenu dans la textbox Text1
Set FindRange = MySheet.Cells.Find(Text1.Text)

'Si trouvé
If Not FindRange Is Nothing Then
'On affiche le résultat
MsgBox "Trouvé dans " & MyWorkbook.Name & ", feuille " &
MySheet.Name & ", à l'endroit" & FindRange.Address
End If
Next MySheet 'Feulle suivante du classeur

'Ferme le classeur
MyWorkbook.Close

--
François Picalausa (MVP VB)
http://faq.vb.free.fr --- http://msdn.microsoft.com
http://apisvb.europe.webmatrixhosting.net

"ephores" <ephores(at)free.fr> a écrit dans le message de
news:
Merci pour vos réponses, mais je suis pas un as, alors vos solutions
j'arrive pas à les faire fonctionner.
Personne n'a eu à faire ce genre de chose ? un exemple comme j'en
trouve par millier d'autre chose mais pas de ça.
Pitié !!!
Lourdage dans J-2.

Merci


"ephores" <ephores(at)free.fr> a écrit dans le message de
news:
Bonjour j'ai besoin de l'aide d'un pro.
Je cherche le moyen de chercher une valeur dans un fichier excel
saisie dans une textbox.
Pour l'instant j'en suis à ce qu'il ouvre et ferme tous les fichier
de ma liste, reste a ce qu'il cherche dedans si la valeur de
textbox1 est presente dans la feuille ouverte. Merci par avance pour
votre aidionnee ;-)

voici mon bout de code :


i = 1
Dim Base As Object

For i = 1 To NbOccurence
prct = ((100 * i) / NbOccurence)
ProgressBar (prct)
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 là que je bloque....

Base.ActiveWorkbook.Close False
Next

End Sub




Avatar
ephores
a cette ligne :

Debug.Print "Adresse de la cellule valant ""40"" : " &
ws.Range("A1:C5").Find("40").Address

message erreur : Variable objet ou variable bloc With non definie
erreur d'execution numéro '91'


PS : toutes mes feuilles doivent faire la meme taille ?? si je ne connais
pas à l'avance le nombre de cellule.

Merci ;-) t'es cool !
1 2