Bonjour,
vu que mes script sont reliés chaque fois à une case bien précise, est ce qu'il serait possible de ne plus devoir lui mettre a chaque fois le nom de l'objet de départ et de fin (étant donné que c'est le même) ?
En gros j'aimerais retranscrire mon script de facon que je ne dois pas pour chaque donnée changer le DATE1 en DATE2 etc (dans le script même).
Comme il est a chaque fois relié a une case spécifique, je voudrais juste trouver la commande qui fait qu'il va lire tout seul à la case auquel il est rélié.
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 Sub Main() Set FullDate = Producer.Model.GetObject("DATE1") FDate = FullDate.GetProperty("Text") FF = Mid(FDate,4,2) FDate = CDate (FDate) FDate = FormatDateTime (FDate,2) If FF > 12 Then Call Producer.Model.GetObject("DATE1").SetProperty("Text",FDate) Else DD = Mid(FDate,4,2) MM = Left(FDate,2) YYYY = Mid(FDate,7,4) Call Producer.Model.GetObject("DATE1").SetProperty("Text",DD+"/"+MM+"/"+YYYY) End If End Sub
Partager