[Déplacé .Net -- VB6] problème avec une base excel

Question

Bonjours,
voila j'appelle à l'aide car j'ai raté quelque chose
je veux convertir un fichier excel en fichier txt
sur l'ordinateur de développement tout fonctionne parfaitement bien (même l'executable créé)
Sur une autre machine (même os : win XP pro) j'ai une (en fait 2) erreur.

Pour info:
- j'utilise VB6 et leur programme "Assistant Empaquetage & déploiement" pour la distribution
- Je ne connais pas le nom de la base de donnée donc aubligation de le faire en "live"

je crois avoir lu qu'il me manque un set ou connect ou les 2 ... 

merci de m'aider...

 voici mon code :



Option Explicit
Dim c As Integer

Private Sub Form_Load()
Open App.Path & "\excel.txt" For Output As #1
initialisation
End Sub

Private Sub Form_Unload(Cancel As Integer)
End
End Sub

Private Sub Timer1_Timer()
' Conversion fichier excel en txt sous le nom de excel.txt
If c = 0 Then
    If Data1.Recordset.EOF = False Then
    Shape1.Width = Shape2.Width / 100 * Data1.Recordset.PercentPosition
    percent.Caption = Int(Data1.Recordset.PercentPosition) + 1 & "%"
        If Label2.Caption <> "" Then conversion 'sub
        Data1.Recordset.MoveNext
    Else
        c = 2
    End If
Else
    If Label1.Caption = "" Then
        Data1.Recordset.MovePrevious
    Exit Sub
    Else
        Close #1
        Timer1.Enabled = False
        Unload Me 'sortie du programme
    End If
End If
End Sub

Private Sub initialisation()
c = 0
CMD1.FileName = App.Path & "\*.xls"
CMD1.DialogTitle = "Cliquez sur la Base de donnée excel"
CMD1.Filter = "Base de donnée excel|*.xls"
CMD1.ShowOpen
Data1.DatabaseName = CMD1.FileName
If Mid$(Data1.DatabaseName, Len(Data1.DatabaseName) - 4, 5) "*.xls" Then Data1.DatabaseName ""
Data1.RecordSource = InputBox("Veuillez entrez le nom de la feuille excel " & vbCrLf & "Il faut rajouter un $ au nom" & vbCrLf & vbCrLf & "exemple:  base devient base$", "Nom de la feuille excel", "base$")
If Data1.RecordSource "" Then Data1.RecordSource "base$"
convert.Caption = Data1.DatabaseName
Data1.Caption " Nom de la feuille " & Data1.RecordSource
Data1.Refresh
Timer1.Enabled = True
'la suite dans le timer !!!
End Sub

Private Sub conversion()
'tous les labels ont une connexion avec la base de données (Data1)
' dans leur propriétés DataField et DataSource qui eux ne change pas quelque soit MA base excel
Print #1, Label1.Caption;  'nom
Print #1, ",";
Print #1, Label2.Caption 'prenom
End Sub



Merci d'avance !

javascript:AjoutSmiley('');

cs_Jack · Answer

Salut
2 erreurs : lesquelles + sur quelles lignes

Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)

mstaub · Answer

Merci de s'interesser à mon problème
voici les erreurs :
1ere : erreur d'execution '3170'
       Couldn't find installable ISAM

en cliquant OK il me remet la même erreur 
en un peu plus court :
2ème:  Couldn't find installable ISAM

bien-sûr j'ai fait des recherches sur cette erreur mais aucune des solutions ont fonctionné

Merci d'avance pour votre aide !


javascript:AjoutSmiley('');

mstaub · Answer

Bonjours,
Nouveauté : j'ai recompiler mon petit programme et (je le rappelle)j'utilise "Assistant Empaquetage & déploiement" pour l'install sur un PC. 
>> La nouveauté c'est que cette fois je n'ai plus (ou pas encore) l'erreur citée plus haut mais une erreur de classe non enregistrée qu'il me repète 2 fois. Je ne sais plus quoi faire 

Quelqu'un pourait-il essayer ce bout de code et me dire s'il retrouve les mêmes erreurs ou pas ? 
Même le poste de développement me fait cette erreur je suppose que cela vient du fait d'utiliser excel mais que faire !? je n'ai pas le choix c'est un logiciel "etranger" qui me donne une feuille excel !


javascript:AjoutSmiley('');

[Déplacé .Net --> VB6] problème avec une base excel

3 réponses

Votre réponse

Discussions similaires