Discussion :

[gaetan.tranvouez]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[SfJ5Rpw8]

il me semble t'avoir dit de ne déclarer wsExcel .. qu'UNE seule fois ...

tu as une ligne ...en trop..

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

 Command1.Enabled = True

?

[gaetan.tranvouez]

merci c'est réglé

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Theocourant]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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...

[gaetan.tranvouez]

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

je sais que pour un text c'est ca

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

mais pour un combo je ne sais pas