Discussion :

[geofnich]

Bonjour,

Je souhaiterai modifier la valeur d'une invite dans mon script vb (qui lance un projet SASEG).
Je dispose d'un unique paramètre et je voudrais lui passer la date du jour.

Voici le code que j'ai en partie adapté (code trouvé sur le site du support technique SAS) :

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
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
 
Option Explicit
Dim app
 
Call dowork
 
'shut down the app
If not (app Is Nothing) Then
    app.Quit
    Set app = Nothing
End If
 
 
Sub dowork()
    On Error Resume Next
    '----
    ' Start up Enterprise Guide using the project name
    '----
    Dim prjName
    Dim prjObject
 
    prjName = "\\SUDOUEST\Dev\SAS\Projet.egp"    'Project Name
 
    Set app = CreateObject("SASEGObjectModel.Application.4.3")
    If Checkerror("CreateObject") = True Then
        Exit Sub
    End If
 
    '-----
    ' open the project
    '-----
    Set prjObject = app.Open(prjName,"")
    If Checkerror("app.Open") = True Then
        Exit Sub
    End If
 
'---------------------------------
'Begin processing the project
'---------------------------------
 
' Discover the parameters for the project
Set parmList = prjObject.Parameters
 
' Get the default value from the first parameter
Set parm = parmList.Item(0)
 
' Change the value of the parameter to la date du jour and display the new value.
parm.Value = Date()
 
 
'-------------------------------
'Begin processing the stored process
'-------------------------------
Set spList = prjObject.StoredProcessCollection
 
' Cycle through the list of stored processes and the parameters for each of them.
for n=0 to (spList.Count - 1)
	Set sp = spList.Item(n)
	' Get the list of parameters
	Set spParamList = sp.Parameters
 
	' Process each stored process parameter
      for i=0 to (spParamList.Count - 1)
 
	    Set spParam = spParamList.Item(i)
		' Change the value of the parameter
	    spParam.Value = Date()
 
		' Save the project with the updated stored process
	    prjObject.Save
	Next
Next
 
 
    '-----
    ' run the project
    '-----
    prjObject.run
    If Checkerror("Project.run") = True Then
        Exit Sub
    End If
 
 
    '-----
    ' Save the new project
    '-----
    prjObject.Save
    If Checkerror("Project.Save") = True Then
        Exit Sub
    End If
 
    '-----
    ' Close the project
    '-----
    prjObject.Close
    If Checkerror("Project.Close") = True Then
        Exit Sub
    End If
 
End Sub
 
Function Checkerror(fnName)
    Checkerror = False
 
    Dim strmsg
    Dim errNum
 
    If Err.Number <> 0 Then
        strmsg = "Error #" & Hex(Err.Number) & vbCrLf & "In Function " & fnName & vbCrLf & Err.Description
        'MsgBox strmsg  'Uncomment this line if you want to be notified via MessageBox of Errors in the script.
        Checkerror = True
    End If
 
End Function

Sans succès, si quelqu'un a une idée...

[omen999]

bonjour,

Sans succès, si quelqu'un a une idée...

un devin peut-être...
commence déjà par décommenter la ligne 110 et dis-nous ce que tu lis
puisque l'auteur du script s'est paluché une gestion centralisée des erreurs autant que ça serve