Utiliser fichier .Dat dans VB6

Question

Bonjour à tous,

Je dois réaliser un petit programme Visual basic permettant de comparer deux données. Une se trouvant dans un fichier.Dat et l'autre dans excel.

Voici comment j'ai procédé:

Private Sub Command1_Click()

Open "D:/WINMAX.DAT" For Input As #1
Do While Not EOF(1)
Line Input #1, valeur1

Dim xlApp As Excel.Application
    Dim xlBook As Object
    Dim XlSheet As Object
    
    Set xlApp = CreateObject("excel.application")
    Set xlBook = xlApp.Workbooks.Add
    Set XlSheet = xlBook.Worksheets(1)
    
    xlApp.Workbooks.Open FileName:="D:/resultat.xls", Editable:=True, ReadOnly:=False
 
 valeur2 = XlSheet.Application.ActiveSheet.Cells(1, 1)
 
 If valeur1 = valeur2 Then
MsgBox "Bravo!"
Else
MsgBox "Erreur"
End If

 xlBook.Close
 xlApp.Quit
    
    Set xlApp = Nothing
    Set xlBook = Nothing
    Set XlSheet = Nothing
    Loop
End Sub

Cependant, mon programme ne fonctionne pas, alors que quand j'utilise un fichier .TXT à la place de mon fichier .DAT ça fonctionne sans problème.

Auriez-vous une solution?

Merci beaucoup à tous

Bonne nuit

Mathieu

jmf0 · Answer

Bonjour,

et .... comment est écrit ce fichier .dat ? et quelle en est la structure ?
Mets ici un petit bout de ce fichier (par copier/coller) qu'on ait une chance de savoir de quoi il s'agit ...

PS : je vois au passage qu'en plus, que tu ne fermes nulle part pas le fichier ouvert par Open !!!

Phalls · Answer

En fait c'est assez simple. Dans ce fichier .dat, il n'y a qu'un seul nombre dans la première ligne. Il s'agit d'un nombre à 12 chiffres correspondant à un numéro de transpondeur. 
Je voudrais simplement récupérer ce nombre et le comparer à ma base de données dans excel.

Phalls · Answer

Ca va, j'y suis arrivé ;)
Merci

Utiliser fichier .Dat dans VB6

3 réponses

Votre réponse

Discussions similaires