Pb recherche excel sous VB

Question

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...

mortalino · Answer

Salut,

essai comme ceci :

appExcel.Columns.AutoFilter Field:=8, Criteria1:="=*" & variable & "*", Operator:=xlAnd

++

jrivet · Answer

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

diego16000 · Answer

OH !! Merci, c'est sa !!!
Je suis trop content, je sais pas comment te remercier...encore merci !!! ;)

diego16000 · Answer

Je n'ai pas essayer ton code jrivet, merci qd meme, celui de mortalino me convient parfaitement !

mortalino · Answer

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

++

mortalino · Answer

Bah j'ai écrit avant tes messages, diego16000, je ne pensais pas qu'avec le '=' ça allait passer.

Ben tant mieux si ça fonctionne.  ;)

@++

diego16000 · Answer

Encore merci ;)

PCPT · Answer

salut à tous,
pense à valider la ou les réponse diego16000

<hr size="2" width="100%" />Prenez un instant pour répondre à ce sondage svp

Pb recherche excel sous VB

8 réponses

Votre réponse

Discussions similaires