[EG] Lancer projet sas depuis programme sas

[geofnich]

Bonjour,

Je souhaiterais lancer plusieurs projets sas (EG) depuis un programme sas.
Cela est-il possible? Si oui comment?
Merci d'avance pour votre aide.

Cdlmt.

[s_a_m]

non, avec du VBS oui

[datametric]

Il est possible d'appeler un projet EG depuis un code VB pour de l'ordonnancement typiquement.

Génère un code VB via EG et regarde comment le projet est appelé pour reproduire le mode de lancement.

Autrement, appelle le code VB qui appelle le projet.

[geofnich]

Merci pour vos réponses.

J'ai en effet essayé de créer un "ordonnancement". Mais sans succès.

1) J'ai tout d'abord créé un ordonnancement depuis saseg,
2) Ensuite j'ai créer une tache planifié pour l'éxécution du script vb.

Lors de l'éxécution de cette tache planifié j'obtiens le message d'erreur suivant : "Erreur d'éxécution Microsoft VBScript", code : 800A01A8, Erreur : objet requis, ligne 7.
Et lorsque j'ouvre mon script, la ligne 7 correspond à :
"If not (app Is Nothing) Then"

Donc je suis un peu perdu....

[s_a_m]

mmm, tu peux poster ton code VB?

[geofnich]

Voici le code :

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
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
 
OPTION Explicit
Dim app         ' As SASEGuide.Application
 
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     ' AS String
    Dim prjObject   ' As SASEGuide.Project
    Dim containerName     ' AS String
    Dim containerObject   ' As SASEGuide.Container
    Dim containerColl     ' AS SASEGuide.ContainerCollection
 
    prjName = "\\SUDOUEST\Dev\SAS\PNA_ok\pna.egp" ' Project Name
    containerName = "Flux de processus" ' Container Name
 
    SET app = CreateObject("SASEGObjectModel.Application.4.3")
    IF Checkerror("CreateObject") = True Then
        Exit Sub
    End IF
 
    SET prjObject = app.Open(prjName,"")
    IF Checkerror("App.Open") = True Then
        Exit Sub
    End IF
 
 
    '-----
    'Get The Container Collection AND Object
    '-----    
    Set containerColl = prjObject.ContainerCollection
    If Checkerror("Project.ContainerCollection") = True Then
        Exit Sub
    End If
 
    Dim i       ' AS Long
    Dim count   ' As Long
    count = containerColl.count
    For i = 0 To count
        Set containerObject = containerColl.Item(i)
        If Checkerror("ContainerCollection.Item") = True Then
            Exit Sub
        End If
 
        If (containerObject.Name = containerName) Then
            Exit For
        Else
            Set containerObject = Nothing
        End If
    Next 
 
    If not (containerObject Is Nothing) Then
        '----
        ' Run the Container
        '----
        containerObject.Run
        IF Checkerror("Container.Run") = True Then
            Exit Sub
        End IF               
    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      ' As String
    Dim errNum      ' AS Long
 
    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

[s_a_m]

je n'ai pas de EG4.3 là où je suis.

je te propose de faire ces deux vérifications:

1- clic droit sur ton .VBS et dans ouvrir avec tu choisi : C:\WINDOWS\system32\wscript.exe. ( Je suppose que c'est déjà fait ). si c'est Ok.


2-Clic demarrer , executer ===> regedit ===> Ctrl+f et tu rentres : SASEGObjectModel trouves tu Application.4.3 ou juste
Application.4.?

[geofnich]

Le premier point est ok.
Cependant lors de la recherche du deuxième point je n'ai aucun résultat...

[s_a_m]

il me semble que cette clé de registre est indispensable.
t'as bien SEG d'installé sur ton poste?

[geofnich]

Oui il est bien installé

PS : Excusez moi je me suis planté!!
J'ai bien Application.4.3