Exploiter un .xls en VB6

Bonjour,

J'ai parcouru le forum pour savoir si cela était possible de parcourir un fichier .xls en VB6 cependant la majeure partie des posts restent sans réponses.
Actuellement j'ai un fichier .xls dans lequel je dois comparer des données avec un fichier .csv
L'avantage du .csv c'est que le Split nous sert à délimiter mes champs, cependant dans le .xls c'est pas possible et c'est la justement ou je fais appel à vous. Car en utilisant le fso, j'ai constaté que le filestream que me retourne vb est inexploitable, j'ai que des caractères en forme de carré au lieu des simples données qui sont présentes dans ce fichier .xls.
Je suis donc un peu dans le flou. Si vous avez des indications la-dessus ?

_______________________
<<<< :-: 4L!@$ :-: >>>>

Salam,

Tu peux par exemple créer un fichier .csv temporaire par copie du fichier .xls .
Tu l'exploites comme tu veux et puis tu l'effaces à la fin de ton prog.

bah la actuellement j'ai qu'un petit csv car il contient 30 000 enregistrements, cependant il en traite beaucoup plus que ca, car il contient toutes les cartes Sim Sfr qui est notre client, il faudrait un truc plus optimisé sinon le pc va fumer..
En gros tu me dis créer chaque ligne que je lie dans un fichier csv temporaire ?

_______________________
<<<< :-: 4L!@$ :-: >>>>

tu as plus simple :

Utilises la library d'excel : Microsoft Excel Object Library

Tu trouveras tout ce que tu veux dedans.

Bah je l'utilise cependant je cherche comment spliter un xls, ou comment recup la valeur d'une colonne via le filestream

_______________________
<<<< :-: 4L!@$ :-: >>>>

Salut,
Avec Microsoft Excel Object Library plus besoin de splitter, tu peux parcourir ton fichier Xls par colonne par ligne, bref faire tout ce que tu souhaites comme si tu étais sous Excel.

@+: Ju£i€n
Pensez: Réponse acceptée

Bon j'utilise ce que tu m'as dis mais je bloque tjrs sur un point, comment récupérer la valeur de la colonne dans la ligne sur laquelle je suis positionné.

Dim ExcelApp As Excel.Application
Dim ExcelWB As Excel.Workbook
Dim ExcelSheet As Excel.Worksheet
Dim ExcelCols As ColumnHeaders   
Dim NbLine As Long
Dim I As Integer
    Set ExcelApp = New Excel.Application
    Set ExcelWB = ExcelApp.Workbooks.Open("C:\dev\vb6\Facturation_sim\trunk\lot500_1207.xls")
    NbLine = ActiveSheet.UsedRange.Rows.Count
   
    For I = 1 To NbLine
        If ExcelCols(4).Text = Numero Then
            Numero = ExcelCols(4).Text
            NumeroSim = ExcelCols(2).Text
            Exit For
        End If
    Next I
    ExcelApp.Workbooks.Close


_______________________
<<<< :-: 4L!@$ :-: >>>>

Salut,
Dans un objet Range contenu dans un objet worksheet, les propriétés Row et Column doivent etre ce que tu cherches.
NOTE:
1- ActiveCell est de type Range.
2- Range est le type d'objet LE plus important d'EXCEL (a mon aviq)

@+: Ju£i€n
Pensez: Réponse acceptée

C'est vrai le Range m'aide bien, cependant dans mon code j'ai une erreur, et j'ai l'impression qu'actuellement dans mon code le numero prendra la valeur de la 1ere ligne et non la ligne sur laquelle je serai positionné. Je me trompe ?

    For I = 1 To NbLine
        If Range.Column(4) = Numero Then
            Numero = Range.Column(4)
            NumeroSim = Range.Column(2)
            Exit For
        End If
    Next I

Merci de ton aide

_______________________
<<<< :-: 4L!@$ :-: >>>>

j'ai modifié ainsi mon code, cependant je pense avoir résolu le problème de l'index de la colonne cependant toujours la meme erreur stipulant que l'argument n'est pas facultatif en parlant de Range.

    For I = 1 To NbLine
        If ActiveCell.Range.Columns(I, 4) = Numero Then
            Numero = ActiveCell.Range.Columns(I, 4)
            NumeroSim = ActiveCell.Range.Columns(I, 2)
            MsgBox ActiveCell.Range.Columns(I, 4)
            Exit For
        End If
    Next I


_______________________
<<<< :-: 4L!@$ :-: >>>>