Discussion :

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

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

[SfJ5Rpw8]

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

Code :

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

1
2
msgbox compteurtrans

+

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

Code :

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

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

[SfJ5Rpw8]

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

et

Code :

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

1
2
msgbox compteurtrans

ne fonctionne pas ..?

[Esmax]

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

[SfJ5Rpw8]

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 :

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

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

[SfJ5Rpw8]

essai :

Code :

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

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]

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