Discussion :

[Siramane]

Bonjour tout le monde,

J'espère que vous allez bien.

Quelqu'un peut m'aider svp?

J'essai d'ouvrir SAS et exécuter un programme depuis ma macro dans excel.

Voici le code que j'ai trouver dans mes recherches:

Code VBA :

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
Dim SAS As Object
Dim fichier As String
 
Set SAS = CreateObject("SAS.application")
SAS.Visible = True
SAS.Wait = True
 
fichier = "'J:\GRP\E\6\E\Siramane\Kit SAD\essai_sas.sas'"
 
 
SAS.submit ("Filename in_src '" + fichier+ "';")
SAS.submit ("run;")
 
 
 
 
'Application.Wait (Now + TimeValue("0:00:20"))
'SAS.Quit

Il ouvre bien SAS mais je n'arrive pas à exécuter mon programme.

Merci d'avance!

[Siramane]

Rebonjour,

J'ai trouvé ceci et ça fonctionne:

Code VBA :

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

1
2
3
4
5
6
7
8
9
10
11
Dim SAS As Object
Dim fichier As String
 
Set SAS = CreateObject("SAS.application")
SAS.Visible = True
SAS.Wait = True
 
SAS.submit ("%include 'J:\GRP\E\6\E\Siramane\Kit SAD\essai_sas.sas'; ")
 
'Application.Wait (Now + TimeValue("0:00:10"))
'SAS.Quit

Merci les amis!