Utiliser fichier .Dat dans VB6

Signaler
Messages postés
8
Date d'inscription
jeudi 4 décembre 2008
Statut
Membre
Dernière intervention
3 février 2009
-
Messages postés
8
Date d'inscription
jeudi 4 décembre 2008
Statut
Membre
Dernière intervention
3 février 2009
-
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

3 réponses

Messages postés
1566
Date d'inscription
mardi 26 décembre 2000
Statut
Membre
Dernière intervention
5 avril 2013
6
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 !!!
Messages postés
8
Date d'inscription
jeudi 4 décembre 2008
Statut
Membre
Dernière intervention
3 février 2009

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.
Messages postés
8
Date d'inscription
jeudi 4 décembre 2008
Statut
Membre
Dernière intervention
3 février 2009

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