[WinCC-VBScript] Transferer des donées sur une colonne ligne d'excel

[Esmax]

Hello tout le mode

J'essaye de realiser un script qui permet de transferer une variable sur une ligne et colonne d'Excel
Le probleme est que je ne voudrais pas que la valeur de la ligne dans le script soit fixe

Lorsque je met une variable dans "excel.Cells" mon script ne marche plus...
Exemple: excel.Cells(compteurtrans, 3).Value = ScreenItems("Temps_utilisation_moteur_journée").OutputValue

ici "compteurtrans" permet de choisir la ligne non?

Mais le script ne marche marche pas avec la variable... Est ce que j'utilise la bonne methode?



Merci





Mon script

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
Sub Click(Byval Item)                        
Dim g_excelfilename
Dim excel
'rajouté

Dim projectname,projectpath,group
Dim compteurtrans

Set compteurtrans = HMIRuntime.Tags("NbDeTransfert")

'Aktuellen Projektnamen und Pfad ermitteln - Get actual projectname and projectpath

projectname = HMIRuntime.ActiveProject.Name
projectpath = HMIRuntime.ActiveProject.Path

HMIRuntime.Tags("ProjectName").Write projectname
HMIRuntime.Tags("ProjectPath").Write projectpath

'rajouté


g_excelfilename = HMIRuntime.Tags("ProjectPath").Read & "\Excel1.xls"
'MsgBox g_excelfilename
Set excel = CreateObject("Excel.Application")
excel.Visible = True
excel.Workbooks.Open g_excelfilename
excel.Cells(compteurtrans, 3).Value = ScreenItems("Temps_utilisation_moteur_journée").OutputValue
excel.Cells(4, 4).Value = ScreenItems("Compteur_Dep_journée").OutputValue
excel.Cells(4, 5).Value = ScreenItems("Compteur_Def_journée").OutputValue
excel.ActiveWorkbook.Save
MsgBox ("Voulez vous transferez les valeurs moyennes dans WinCC")
ScreenItems("V6_ExcelRead_1").OutputValue = excel.Cells(4, 11).Value
ScreenItems("V6_ExcelRead_2").OutputValue = excel.Cells(5, 11).Value
ScreenItems("V6_ExcelRead_3").OutputValue = excel.Cells(6, 11).Value
excel.ActiveWorkbook.Save
excel.Workbooks.Close
excel.Quit
Set excel = Nothing







End Sub

[bbil]

pour debugger : affiche ton compteurtrans histoire de connaître sa valeur ...

Code :

1
2
msgbox compteurtrans

+

si compteurtrans est un un entier enlève le "Set" ici :

Code :

1
2
Set compteurtrans = HMIRuntime.Tags("NbDeTransfert")

(set , c'est pour affecter une référence à un objet ...

[Esmax]

ah ben la message box ne maffiche pas de valeur :s y a rien

[bbil]

Envoyé par Esmax

Je probleme est que je programme sur WinCC... est je ne sais pas comment faire afficher la valeur d'une variable interne

et

Code :

1
2
msgbox compteurtrans

ne fonctionne pas ..?

[Esmax]

si je viens de rentrer la ligne mais je recois pas la valeur

[bbil]

voir la :

http://www.developpez.net/forums/sho...05&postcount=6

[Esmax]

c'est justement là ou j'ai essayé d'apprendre un peu le VB et j'ai donc trouvé le "set..."

sinon j'ai essayé une autre commande

Code :

compteurtrans = ScreenItems("Compteur_Def_journée").OutputValue

Mais j'ai toujours pas la valeur qui s'affiche :/

[Esmax]

a c'est bon j'ai reussi à recuperer la valeur mais avec "screenitems" avec la fonction "hmi..." je n'arrive meme pas à avoir le message

[bbil]

essai :

Code :

1
2
3
Set compteurtrans = HMIRuntime.Tags("NbDeTransfert")
msgbox compteurtrans.read

[Esmax]

oui je recois bien la valeur en rajoutant le ".read", je l'ai egalement rajouté dans la commande "cells"

Par contre je n'ai pas compris à quel momet il faut mettre un "Set" ou pas


J'ai juste une derniere question mais c'est plutot pour excel

Je voudrais faire un calcul de la valeur moyene de ma colonne B mais je recois une erreur car certaines lignes ne sont pas rempli... elle sont rempli au fur et à mesure de mes transferts
J'ai tapé la fonction =(B2:B200)/K3


K3 correspond à mon nombre de transfert
Est ce que je peux remplacer la constante B200 par une variable? Car je nombre de ligne dot j'ai besoin correspod à mon K3

J'ai egalement le meme probleme pour creer la plage dans le graphisme

[Mgros]

Dite question en rapport avec la programation en Script sous Wincc flex 05...
Moi je n'ai acces a aucun script peut etre parceque je n'ai que la version compact ? ...

[ThierryAIM]

Envoyé par Mgros

Dite question en rapport avec la programation en Script sous Wincc flex 05...
Moi je n'ai acces a aucun script peut etre parceque je n'ai que la version compact ? ...

Y'a des chances, oui ...

Il me semble que pour avoir accès au vbscript, il faut une version Wincc Flexible, mais pas certain (moi, je n'ai que celle-ci, alors forcement ...)