Pb recherche excel sous VB

Signaler
Messages postés
4
Date d'inscription
vendredi 25 août 2006
Statut
Membre
Dernière intervention
29 août 2006
-
Messages postés
13280
Date d'inscription
lundi 13 décembre 2004
Statut
Modérateur
Dernière intervention
3 février 2018
-
Alors voila, j'aurait besoin d'un petit coup de main, je travail actuelement sur un projet qui consiste a faire une recherche rapide sous VB dans une base de donnée excel, j'arrive a ouvrir excel, a faire afficher l'onglet que je veux, j'arrive aussi a appliquer un filtre grace aux macros, seul probleme, je ne peut pas choisir quel mot recherché lorsque le programme est lancé.

Voici une partie de mon code :
'Ouverture de l'application
Set appExcel = CreateObject("Excel.Application")
'Ouverture d'un fichier Excel avec son emplacement
Set wbExcel = appExcel.Workbooks.Open("C:\Program Files\.......xls")


'Selection de la feuille a l'affichage
appExcel.Sheets("Nom de la feuille").Select

Le pb se trouve a se niveau :
'Filtre
appExcel.Columns.AutoFilter Field:=8, Criteria1:="=*je souhaiterais mettre ici une variable qui prenne une valeur differente selon se que l'utilisateur tape*", Operator:=xlAnd

'J'ai essayer de mettre une variable a se niveau mais les guillemets ne passent pas  (Syntax error)...comme sa :
'Filtre
appExcel.Columns.AutoFilter Field:=8, Criteria1:="=*"variable"*", Operator:=xlAnd

'Affichage d'Excel
appExcel.Visible = True

Si quelqu'un peut m'aider, je l'en remercie d'avance.
C'est assez urgent, je doit finir se programme pr la fin de la semaine...

8 réponses

Messages postés
6786
Date d'inscription
vendredi 16 décembre 2005
Statut
Membre
Dernière intervention
21 décembre 2011
18
Salut,

essai comme ceci :

appExcel.Columns.AutoFilter Field:=8, Criteria1:="=*" & variable & "*", Operator:=xlAnd

++
Messages postés
7393
Date d'inscription
mercredi 23 avril 2003
Statut
Membre
Dernière intervention
6 avril 2012
58
Salut,
je n'est pas teste mais est ce que ceci ne pourrait pas fonctionner.

Dim Critere as String
Critere = "TonFiltre"

appExcel.Columns.AutoFilter Field:=8, Criteria1:= Critere , Operator: =xlAnd

@+,   Ju£i?n
Messages postés
4
Date d'inscription
vendredi 25 août 2006
Statut
Membre
Dernière intervention
29 août 2006

OH !! Merci, c'est sa !!!
Je suis trop content, je sais pas comment te remercier...encore merci !!! ;)
Messages postés
4
Date d'inscription
vendredi 25 août 2006
Statut
Membre
Dernière intervention
29 août 2006

Je n'ai pas essayer ton code jrivet, merci qd meme, celui de mortalino me convient parfaitement !
Messages postés
6786
Date d'inscription
vendredi 16 décembre 2005
Statut
Membre
Dernière intervention
21 décembre 2011
18
Tiens,

je viens de remarquer que le '=' entre guillemets n'a pas lieu d'être !

Donc, a la méthode de Julien,

Dim Critere as String
Critere = "*" & TaVariable & "*"
appExcel.Columns.AutoFilter Field:=8, Criteria1:=Critere, Operator:=xlAnd

++
Messages postés
6786
Date d'inscription
vendredi 16 décembre 2005
Statut
Membre
Dernière intervention
21 décembre 2011
18
Bah j'ai écrit avant tes messages, diego16000, je ne pensais pas qu'avec le '=' ça allait passer.

Ben tant mieux si ça fonctionne. ;)

@++
Messages postés
4
Date d'inscription
vendredi 25 août 2006
Statut
Membre
Dernière intervention
29 août 2006

Encore merci ;)
Messages postés
13280
Date d'inscription
lundi 13 décembre 2004
Statut
Modérateur
Dernière intervention
3 février 2018
49
salut à tous,
pense à valider la ou les réponse diego16000

<hr size="2" width="100%" />Prenez un instant pour répondre à ce sondage svp