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

Signaler
Messages postés
51
Date d'inscription
dimanche 24 août 2003
Statut
Membre
Dernière intervention
29 octobre 2010
-
Messages postés
51
Date d'inscription
dimanche 24 août 2003
Statut
Membre
Dernière intervention
29 octobre 2010
-
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('');

3 réponses

Messages postés
14008
Date d'inscription
samedi 29 décembre 2001
Statut
Modérateur
Dernière intervention
28 août 2015
66
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)
Messages postés
51
Date d'inscription
dimanche 24 août 2003
Statut
Membre
Dernière intervention
29 octobre 2010
1
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('');
Messages postés
51
Date d'inscription
dimanche 24 août 2003
Statut
Membre
Dernière intervention
29 octobre 2010
1
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('');