Common dialog

Version imprimable

Common dialog

Bonjour,
Je suis étudiante en économie et j'ai un examen d'informatique où je dois concevoir un petit programme simple avec VB. Mais je ne comprends pas grand chose en informatique et mon programme ne marche pas. Je vais mettre les codes si dessous et je vous demande à votre avis d'où viens l'erreur :

En fait j'ai une fausse enquête sur la clientèle d'une épicerie, il donne leur nom prénom, adresse, produit acheter et pourquoi. J'ai tous mis dans un fichier notepad et je voudrais que chaque donné apparraisse dans des textbox diférrente donc j'ai crée 6 textbox j'en ai fait un groupe et après je sais pas trop comment faire. Moi j'ai fait çà :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
 
Option Explicit
Const N =3
Dim Tableau(6, N) As String
Dim NombreDeLignes As Integer
Dim LigneCourante As Integer
 
 
Private Sub Form_Load()
   Dim Fichier As String
   Dim Ligne As String
   Dim I As Integer
 
   [color=red] ' Apparement ça serait par ici mais je ne sais pas quoi.[/color]
 
   LigneCourante = 1
   CommonDialog1.Filter = "Texte (*.txt)|*.txt|Tous (*.*)|*.*"
   CommonDialog1.ShowOpen
   Fichier = CommonDialog1.FileName
 
 
   On Error Resume Next
   Open Fichier For Input As #1
   NombreDeLignes = 0
   Do Until EOF(1)
       Line Input #1, Ligne
        Text1.Add Ligne
       NombreDeLignes = NombreDeLignes + 1
   Loop
   Close #1
   Open Fichier For Input As #1
   For I = 1 To NombreDeLignes
       Input #1, Tableau(1, I), Tableau(2, I)
   Next I
   Close #1
   For I = 1 To 2
       Boite(I - 1).Text1 = Tableau(I, 1)
   Next I
End Sub
 
 [color=red] ' Cette partie apparemment fonctionne ici j'ouvre un fichier excel ou j'ai regroupé toute les données et fait des calculs enregistré dans des macros j'aurai voulu compliqué en remettant les calcul dans VB mais bon je sais pas faire non plus.[/color]
 
Private Sub btnlancerexcel_Click()
 
Set xlApp = CreateObject("Excel.Application")
xlApp.Visible = True
xlApp.Workbooks.Open ("H:\MesprojetsVB\Programme vb\enqu--te client(1).xls")
  End Sub
 
Private Sub btnquitexcel_Click()
If CallExcel Then
xlWorkBook.Close False
xlApp.Quit
Set xlSheet = Nothing
Set xlWorkBook = Nothing
Set xlApp = Nothing
End If
End
End Sub
Const N = 3
Dim Tableau(6, N) As String
 
 
Je vous remercie d'avance je dois rendre mon programme lundi soir et j'aimerai faire en sorte qu'il fonctionne. Désolé d'être un boulet en informatique mais cette note est capital pour mes examens.
 
Merci

09/12/2005, 15h49
SfJ5Rpw8

essai d'éditer ton message et de rajouter les balises code , ce ser plus lisible..

décrit nous ce qui marche pas .. ( ou ce que devrai faire le programme...) :wink:
09/12/2005, 15h55
Theocourant

Salut,

Ce que dit bbil est nécessaire pour que l'on puisse t'aider.

Pendant que tu y es à éditer ton post, :
- utilise les balises :tagcode:
- modifie ton titre car du moment que c'est écrit "URGENT", les gens prendront tout leur temps car on est pas là pour faire à ta place mais te donner un coup de main ce qui peut prendre un peu de temps...

Merci d'avance

Théo
09/12/2005, 16h19
Lenaslayer

désolé j'ai fait ce que j'ai pu pour rendre le message plus claire j'espère que vous comprendrez.
09/12/2005, 16h45
SfJ5Rpw8

on vas avancer petit à petit...

' Apparement ça serait par ici mais je ne sais pas quoi.
.. C'est la que tu as un message d'erreur ? mais lequel ?

Et la :

Code:

Text1.Add Ligne

text1 c'est quoit pour-toi ? :wink:

Bonjour

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
Option Explicit
Const N = 3
Dim Tableau(6, N) As String
Dim xlApp
Dim LigneCourante, NombreDeLignes As Integer
'Ajout perso
Dim SauT$
 
Private Sub Form_Load()
SauT$ = Chr$(13) & Chr$(10) 'pour retour à la ligne
   Dim Fichier As String
   Dim Ligne As String
   Dim I As Integer
 
   ' Apparement ça serait par ici mais je ne sais pas quoi
   '****** CommonDialog1 est-il posé sur la Form *********
   CommonDialog1.Filter = "Texte (*.txt)|*.txt|Tous (*.*)|*.*"
   CommonDialog1.ShowOpen
   Fichier = CommonDialog1.FileName
 
   ' On Error Resume Next, mais pas de traitement d'erreur ????
   On Error Resume Next
   Open Fichier For Input As #1
   Do Until EOF(1)
       Line Input #1, Ligne
        'Text1.Add Ligne  mauvaise syntaxe ***********************
        'Text1.multiline doit etre declaré = true 
       Text1.Text = Text1.Text & Ligne & SauT$
       NombreDeLignes = NombreDeLignes + 1
       '****** important pour laisser du temps au processeur *****
       DoEvents
   Loop
   Close #1
   Open Fichier For Input As #1
   For I = 1 To NombreDeLignes
       Input #1, Tableau(1, I), Tableau(2, I)
   Next I
   Close #1
    For I = 1 To 2
       ' Boite(I - 1).Text1 = Tableau(I, 1)  ???????? s'est quoi ????????
   Next I
End Sub

jusque là sa fonctionne, mais je ne parviens pas a trouver ce que peut-être "Boite(I - 1)"

09/12/2005, 17h12
leroissejp

Bonsoir,
Une petite question, quand tu as placés tes données dans notepad, elles sont en colonne ou sur une même ligne ??

jpleroisse
09/12/2005, 17h20
Lenaslayer

Merci pour les réponses,
en fait je peux pas vérifier dans le weekend parce que le programme vb je l'utilise a la fac mais je prend vos explications en note.
Alors Text1 si je me trompe pas c'est le nom donné a mon groupe de textbox.
Boites je sais plus ca devait être un truc que j'ai pris dans mes cours d'infos mais ils sont tellement pas clair.
J'ai une autre question est-ce que je peux mettre autant de ligne que je veux dans mon notepad et les données sur les clients doivent elle être en un mot ou peuvent-elles êtres des phrases?

A le message il dit variables non définis. Mais je comprends pas pourquoi j'ai même essayer d'indiquer le chemin et tout. Bon d'accord je susi vraiment pas très doué mais l'informatique c'est pas censé être l'objet de mes études.

Merci

++
++
09/12/2005, 17h24
Lenaslayer

notepad

Les données dans notepad se présente comme ça.

Nom,prénom,ville,age,pdt acheté, pk?

Nom,prénom,ville,age,pdt acheté, pk?

Nom,prénom,ville,age,pdt acheté, pk?

Nom,prénom,ville,age,pdt acheté, pk?

Nom,prénom,ville,age,pdt acheté, pk?

Nom,prénom,ville,age,pdt acheté, pk?

Ainsi de suite