Simplification de fonction
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:
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 |
