Discussion :

[gaetan.tranvouez]

bonjour

voila mon soucis

Je récupère des valeurs dans un TextBox et cela à intervalle de temps régulier.
je dois les stocker quelques part, je pense que le mieux serait sous excel mais je ne sais pas du tout comment faire . est ce quelqu'un peut me donner un tuyaux svp?

merci

[SfJ5Rpw8]

tiens de quoi commencer aprés tu dis ou tu bloque.. s'il y as lieu..

Utiliser Excel à partir de Visual Basic par Sébastien Curutchet

[gaetan.tranvouez]

merci beaucoup je vais me pencher sur le sujet

[gaetan.tranvouez]

je sais maintenant ouvrir et fermer une feuille excel mais je ne vois rien de marquer qui explique comment insérer des valeurs qui arrivent dans un textBox, les mettrent dans une case sous excel???

[SfJ5Rpw8]

ben une fois ton classeur ouvert ...: tu accéde au feuilles et cellules... un truc du genre :

Code :

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

xAPP.wk.sheets(1).cells(1,1) = "MaValeur"

...

[gaetan.tranvouez]

merci mais tout le code, je peux le mettre dans le form ou pas, ou plutot dans le module

dsl pour la quetion bete mais je reprend un prog deja fait et c'est pas facile de comprendre du premier coup...

[SfJ5Rpw8]

c'est peu-être plus "propre" dans un module séparé .. ou tu regroupe tes accés vers fichier Excel... mais rien ne t'empêche de tout mettre dans le code de la form...

[gaetan.tranvouez]

et donc a la place de "Ma valeur" comme ci dessous, je met le nom du TextBox???

Code :

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

1
2
 
xAPP.wk.sheets(1).cells(1,1) = "MaValeur"

[SfJ5Rpw8]

oui sans les ""...

Code :

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

xAPP.wk.sheets(1).cells(1,1) = maform.textBox1

il faudra aussi définir
cells(1,1) ... en fonction de la cellule à atteindre.. tu peu t'inspirer des divers codes VBA excel de rajout de données...

[gaetan.tranvouez]

mais puis je faire un truc du genre

Code :

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

1
2
3
4
 
int i
i=0
xAPP.wk.sheets(1).cells(1,1+i) = maform.textBox1

comme ca vu qu'il y a un timer et que les donées se récupèrent toutes les 5 sec, les données vont se rentrer une ligne en dessous à chaque fois

[SfJ5Rpw8]

ben il faut donc mettre ce code dans ton timer ... et y incrémenter le i...

[gaetan.tranvouez]

ok merci

kom ca c'est mieu

Code :

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

1
2
3
4
5
 
int i
i=0
i=i+1
xAPP.wk.sheets(1).cells(1,1+i) = maform.textBox1

[SfJ5Rpw8]

oui mais si tu le remet à 0 à chaquefois (i=0) ... il va pas beaucoup monter ton numéro de ligne

[gaetan.tranvouez]

oui mais si je l'initialise pas

ou alors je le fais à l'exterieur de la fonction

[SfJ5Rpw8]

oui et la déclaration est aussi à revoir... soit tu le déclare en dehors de la fonction... , ou en static... sinon à chaque dim il repasse à 0...

[gaetan.tranvouez]

oui je sais

c'est

dim i as integer

c'est le c ca reste à force

[gaetan.tranvouez]

mai jai un autre soucis

voila mon code du module

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
 
Option Explicit
 
Private Function stockexcel() As Byte
'Déclaration des variables
Dim appExcel As Excel.Application 'Application Excel
Dim wbExcel As Excel.Workbook 'Classeur Excel
Dim wsExcel As Excel.Worksheet 'Feuille Excel
 
'Ouverture de l'application
Set appExcel = CreateObject("Excel.Application")
'Ajout d'un classeur car à l'ouverture d'Excel il n'y a aucun classeur d'ouvert
appExcel.Workbooks.Add 'Ceci n'est nécessaire que si vous n'ouvrez pas un fichier existant
'Récupération du classeur par défaut
Set wbExcel = appExcel.ActiveWorkbook
'Récupération de la feuille par défaut
Set wsExcel = wbExcel.ActiveSheet
 
End Function

voila une partie de mon code a l'interieur du timer

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
 
'rajouté pour stocker les données sous excel
 
    i = i + 1
    xAPP.wk.Sheets(1).Cells(1, 1 + 5 * i) = Text_type(0).Text
    xAPP.wk.Sheets(1).Cells(1, 2 + 5 * i) = Text_type(1).Text
    xAPP.wk.Sheets(1).Cells(1, 3 + 5 * i) = Text_type(2).Text
    xAPP.wk.Sheets(1).Cells(1, 4 + 5 * i) = Text_type(3).Text
 
    xAPP.wk.Sheets(1).Cells(2, 1 + 5 * i) = Text_taux(0).Text
    xAPP.wk.Sheets(1).Cells(2, 2 + 5 * i) = Text_taux(1).Text
    xAPP.wk.Sheets(1).Cells(2, 3 + 5 * i) = Text_taux(2).Text
    xAPP.wk.Sheets(1).Cells(2, 4 + 5 * i) = Text_taux(3).Text
 
    xAPP.wk.Sheets(1).Cells(3, 1 + 5 * i) = Text_poids(0).Text
    xAPP.wk.Sheets(1).Cells(3, 2 + 5 * i) = Text_poids(1).Text
    xAPP.wk.Sheets(1).Cells(3, 3 + 5 * i) = Text_poids(2).Text
    xAPP.wk.Sheets(1).Cells(3, 4 + 5 * i) = Text_poids(3).Text
 
 
    'Fin de rajout pour le stockage

mon pb c'est que il me dit que xAPP n'est pas d&claré, mais je sais pas quoi mettre d'atres, le nom du doc excel, le nom d'une appli...

[SfJ5Rpw8]

ben oui xAPP.. c'était un exemple.(nom de variable apllication excel) .. n'ayant pas vu ton code....

remplace les

Code :

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

xAPP.wk.Sheets(1)

par

Code :

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

wsExcel

pour travailler sur la feuille active.. au démarrage,initialisé par la ligne :

Code :

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

Set wsExcel = wbExcel.ActiveSheet

[gaetan.tranvouez]

voila mon nième soucis

j'ai tout remplacé les xAPP.... par wsExcel mais ceci se trouve dans mon form alors que ma déclaration
Set wsExcel = wbExcel.ActiveSheet se trouve dans mon module
puis je le changer de place ou le déclarer 2 fois??? ou faire autrement???

[SfJ5Rpw8]

tu peu déclarer
wsExcel en variable publique ... pour cela en haut de ton module.. en dehors de toutes procédure

Code :

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

Public wsExcel As Excel.Worksheet 'Feuille Excel

et supprime la ligne Dim wsExcel...