trie d'un fichier excel par une autre appli en vb

Question

Bonjour,





Je cherche a trie un document excel depui une autre application en vb.
ca j'ai besoin de trouver une ligne dans ce document grace a la
connaissance de 2parametre de 2 colonnes.


Mais si je fait un recherche ligne a ligne ca prend bcp de temps (
jusqu'a 1min) car mon document contient environ 5000 lignes. Je sais
pas si faire un filtre sur le document excel est possible depuis une
autre appli. et je sais pas si ca peut faire gagner du tps.


en gros en macro excel ca donne :


  


    Selection.AutoFilter Field:=1, Criteria1:="3"


    Selection.AutoFilter Field:=3, Criteria1:="4"


    Selection.AutoFilter Field:=1


    Selection.AutoFilter Field:=3





Mais je veux faire ca depuis une autre appli


pour l'instant je fait une recherche ligne a ligne. Voila ce mon code:





 Public Sub defautsysteme(IntID As Integer, IntNumber As Integer)


  


 'd&#233;claration des variables


  Dim docexcel 'As Excel.Application


  Dim xlSht


  Dim NumLigne As Integer


  Dim IDlu As Integer


  Dim Numlu As Integer


  Dim errorcode As String


  Dim severity As String


  Dim intitule As String


  Dim cause As String


  Dim remedes As String


      


  NumLigne = 2


                


  Screen.MousePointer = vbHourglass


   


 'le prog va aller chercher les informations du d&#233;faut dans le fichier excel:


  Set docexcel = CreateObject("Excel.Application")


      docexcel.Visible = False


      docexcel.Workbooks.Open "C:\Defaut_sys.xls"


  Set xlSht = docexcel.ActiveSheet


 


 'tant que il y a des donn&#233;es ou que le code n'a pas &#233;t&#233; trouv&#233;


  Do


     IDlu = xlSht.Application.Cells(NumLigne, 1)


       


    'si le code lu est le m&#234;me que celui saisi


     If IDlu = IntID Then


         


         Do     


            Numlu = xlSht.Application.Cells(NumLigne, 3)


            


            If Numlu = IntNumber Then


                 
errorcode = xlSht.Cells(NumLigne, 2)


                 
severity = xlSht.Cells(NumLigne, 4)


                 
intitule = xlSht.Cells(NumLigne, 5)


                 
cause = xlSht.Cells(NumLigne, 6)


                 
remedes = xlSht.Cells(NumLigne, 7)


                  Exit Do  ' l'erreur a &#233;t&#233; trouv&#233; on peut sortir de la boucle


            End If


            


            NumLigne = NumLigne + 1


         Loop While IDlu = IntID


         Exit Do 'sort de la boucle si le code a &#233;t&#233; trouv&#233; ou que l'erreur n'est pas repertori&#233;e


     End If


                 


     NumLigne = NumLigne + 1


  Loop While (xlSht.Application.Cells(NumLigne, 1)  "")


  


 'ferme le document excel


  docexcel.Application.Quit



Quelqu'un a t'il une solution ou peut il m'aider, svp? merci d'avance.

valtrase · Answer

Salut,
Il &#233;xiste une classe pour VB6 qui te sera utile
http://www.vbfrance.com/article.aspx?ID=2113

Cordialement, Jean-Paul  
______________________________________________________________________

Le Savoir n'a de valeur que s'il est partag&#233;

ptithomm · Answer

Merci bcp je vais regarder !!

valtrase · Answer

Re,
Sinon en gros quand tu cr&#233;e to appi Docexcel et ta feuille xlScht tu as sous la main toutes les propri&#233;t&#233;es et m&#233;thode de ses objets
je te conseille de faire un for each qui est plus rapide qu'une boucle

Cordialement, Jean-Paul  
______________________________________________________________________

Le Savoir n'a de valeur que s'il est partag&#233;

Trie d'un fichier excel par une autre appli en vb

3 réponses

Discussions similaires