[VB6]: Inscrire donnée dans une table excel

Version imprimable

Bonjour à tous

voila j'ai fait un petit programme simple

j'ai 17 textbox dans ma form

j'ai un bouton qui permet d'ouvrir un fichier excel et j'ai un autre bouton qui inscrit les données des listbox dans ma table excel et c'est cette dernière opération qui ne fonctionne pas. j'ai un msg d'erreur qui me dit variable objet ou bloc with non définis et il me surligne la ligne en jaune

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
Private Sub Command2_click()
Dim appExcel As Excel.Application 'Application Excel
Dim wbExcel As Excel.Workbook 'Classeur Excel
Dim wsExcel As Excel.Worksheet 'Feuille Excel
    
Set appExcel = CreateObject("Excel.Application")
appExcel.Workbooks.Add
Set wbExcel = appExcel.ActiveWorkbook
Set wsExcel = wbExcel.ActiveSheet
appExcel.Visible = True
End Sub

Private Sub Command1_Click()

Dim I As Integer, var As Integer
Dim val As String, typ As String
Dim Rapports(2) As Double

    Command1.Enabled = True
   
    'Texte rajouté pour le stockage dans excel
    Dim appExcel As Excel.Application 'Application Excel
Dim wbExcel As Excel.Workbook 'Classeur Excel
Dim wsExcel As Excel.Worksheet 'Feuille Excel
    
    Static J As Long
    J = J + 1

    'Inscrit le type des 4 composants sous excel
    wsExcel.Cells(3 + 3 * J, 1) = Text1(0).Text
    wsExcel.Cells(3 + 3 * J, 2) = Text1(1).Text
    wsExcel.Cells(3 + 3 * J, 3) = Text1(2).Text
    wsExcel.Cells(3 + 3 * J, 4) = Text1(3).Text
    
    'Inscrit le taux des 4 composants sous excel
    wsExcel.Cells(4 + 3 * J, 1) = Text2(0).Text
    wsExcel.Cells(4 + 3 * J, 2) = Text2(1).Text
    wsExcel.Cells(4 + 3 * J, 3) = Text2(2).Text
    wsExcel.Cells(4 + 3 * J, 4) = Text2(3).Text
    
    'Inscrit le poids des 4 composants
    wsExcel.Cells(5 + 3 * J, 1) = Text2(0).Text
    wsExcel.Cells(5 + 3 * J, 2) = Text2(1).Text
    wsExcel.Cells(5 + 3 * J, 3) = Text2(2).Text
    wsExcel.Cells(5 + 3 * J, 4) = Text2(3).Text
       
     'Inscrit le code de chaque composant sous excel
    wsExcel.Cells(6 + 3 * J, 1) = Text3(0).Text
    wsExcel.Cells(6 + 3 * J, 2) = Text3(1).Text
    wsExcel.Cells(6 + 3 * J, 3) = Text3(2).Text
    wsExcel.Cells(6 + 3 * J, 4) = Text3(3).Text
    
    'Inscrit le numéro de la machine
    wsExcel.Cells(1, 1) = Text5.Text
    
End Sub

20/07/2006, 09h20
SfJ5Rpw8
il me semble t'avoir dit de ne déclarer wsExcel .. qu'UNE seule fois ...

tu as une ligne ...en trop..

Code:

Dim wsExcel As Excel.Worksheet 'Feuille Excel

en fait il faut que tu déclare wsExcel en global.. pour cela tu met la ligne tout en haut de ton code en dehors de toute procédure...et tu enléve la déclaration que tu as mis dans command_button2...

de même tu n'as pas besoin des lignes
Code:

1 2 3 Dim appExcel As Excel.Application 'Application Excel Dim wbExcel As Excel.Workbook 'Classeur Excel
dans command_button1...

PS: Autre chose , cela sert à quoi cette ligne :

Code:

Command1.Enabled = True

?
20/07/2006, 09h56
gaetan.tranvouez

merci c'est réglé
21/07/2006, 08h30
gaetan.tranvouez
voila je viens d'avoir un changement de dernière minute, je voudrais remplacer un textbox par un combobox mais je ne connais pas la ligne de code qui permettra d'insérer le contenu sous excel

voila mon debut
Code:

1 2 3 'Inscrit le code composant sous excel wsExcel.Cells(6 + 3 * 2 * j, 1) = combo1. ...
21/07/2006, 08h34
Theocourant
Citation:
Envoyé par gaetan.tranvouez

voila je viens d'avoir un changement de dernière minute, je voudrais remplacer un textbox par un combobox mais je ne connais pas la ligne de code qui permettra d'insérer le contenu sous excel

voila mon debut

Code:

1 2 3 'Inscrit le code composant sous excel wsExcel.Cells(6 + 3 * 2 * j, 1) = combo1. ...
Bonjour,

Regarde dans l'aide du côté de la propriété ListIndex si tu veux la donnée sélectionner ou il faudra faire une boucle sur tous les éléments si tu veux tous les intégrer ...

+

Théo

PS : Pense à bien regarder l'aide des éléments que tu utilises : Propriétés, Méthodes et Evénements, ça te servira toujours...
21/07/2006, 08h43
gaetan.tranvouez

je voudrais en inserer un seul , seulement celui séléctionneé

je sais que pour un text c'est ca

Code:

wsExcel.Cells(6 + 3 * 2 * j, 1) = text1.text

mais pour un combo je ne sais pas
21/07/2006, 08h45
gaetan.tranvouez

je sais que je ne devrais pas dire ca mais autravail je n'ai pas l'aide...
c'est une version qui ne l'a pas, pourquoi je n'ai jamais eu la réponse, vb était deja installé quand je suis arrivé
21/07/2006, 08h45
SfJ5Rpw8

Citation:

Envoyé par gaetan.tranvouez

je voudrais en inserer un seul , seulement celui séléctionneé

je sais que pour un text c'est ca
wsExcel.Cells(6 + 3 * 2 * j, 1) = text1.text

mais pour un combo je ne sais pas

ben tu remplace text1 par combobox1... ;)

Code:

wsExcel.Cells(6 + 3 * 2 * j, 1) = combobox1.text
21/07/2006, 08h47
gaetan.tranvouez

c'est tout
j'aurai cru que c'était après le point qu'il fallait changer

merci
21/07/2006, 09h23
Theocourant

Citation:

Envoyé par gaetan.tranvouez

je sais que je ne devrais pas dire ca mais autravail je n'ai pas l'aide...
c'est une version qui ne l'a pas, pourquoi je n'ai jamais eu la réponse, vb était deja installé quand je suis arrivé

Pour information l'aide MSDN de VB6 est disponible sur Internet à cette adresse.

+

Théo
28/07/2006, 14h17
gaetan.tranvouez
Rebonjour

voila je suis dsl de vous rederanger sur ce post mais j'ai un gros souci

j'ai réessayé de refaire fonctionner un prog de la semaine derniere, son but étant d'inscrire des données sous une table excel et la, malheur, j'ai des erreurs et je ne comprend pas ce qui a put se passer.

a plusieurs ligne de ce type il me marque " un objet est requis"
Code:

1 2 wsExcel.Cells(7, 6) = Text8.Text
28/07/2006, 14h21
Delbeke

Je te conseille de relire le post depuis le début, tu y trouveras la solution.
Je l'ai déjà dit, dans 5 ans tu poseras toujours les mêmes questions.