Discussion :

[Alfred23]

Bonjour, :-)

Je souhaite ouvrir un .VBS à partir d'une macro excel et passer des paramètres de l'une à l'autre...

Je vais essayer d'expliciter ce que je n'arrive pas à faire :

1- Une macro excel qui appelle un script VBS :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
    (ByVal hWnd As Long, ByVal lpOperation As String, _
    ByVal lpFile As String, ByVal lpParameters As String, _
    ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
 
Sub Selection()
 
    Dim Script As String
 
    Script = "C:\Cours\Test.vbs\" 
 
ShellExecute 0, "open", Script, "", "", 1
 
End Sub

2- Macro modifiée pour ajouter des paramètres :

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
Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
    (ByVal hWnd As Long, ByVal lpOperation As String, _
    ByVal lpFile As String, ByVal lpParameters As String, _
    ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
 
Sub Selection()
    Dim Script As String
    Dim Parametre As String
 
    Script = "C:\Cours\Test.vbs\"
    Parametre = "chemin d'accès à un fichier excel"
 
ShellExecute 0, "open", Script, "", "", 1
 
End Sub

Question 1 :

Comment faire pour que, quand le script VBS s'ouvre, il "prenne" avec lui la variable Parametre ?
Est-ce qu'il faut modifier le ShellExecute ou bien faut il ajouter les variable à la suite de Script = "C:\Cours\Test.vbs\" ?

Question 2 :

Comment récupérer la variable dans le script.VBS pour l'utiliser dans le script.VBS ?

Merci d'avance pour votre aide !

Alfred

[Alfred23]

Est-ce que mettre les variables dans la fonction serait la solution ?

Exemple :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
(ByVal hWnd As Long, ByVal lpOperation As String, _
ByVal lpFile As String, ByVal lpParameters As String, _
ByVal lpDirectory As String, ByVal nShowCmd As Long, Parametre As String) As Long
 
Sub Selection()
 
Dim Script As String
 
Script = "C:\Cours\Test.vbs\"
Parametre = "chemin d'accès à un fichier excel"
 
ShellExecute 0, "open", Script, "", "", 1, Parametre
End Sub

[omen999]

bonjour,
je n'utilise pas souvent ms office mais il me semble qu'il existe une fonction native Shell() dans le vba
pourquoi passer par l'api ?

[Alfred23]

Merci omen999 mais, je suis désolé ... Je ne comprends pas ta réponse...

Peux-tu m'en dire plus ?

Merci !

[omen999]

quelque chose comme ça
les macros des applications ms office sont écrites en vba

[Alfred23]

Re !

Décidément on ne se comprend pas ! :-)

Je sais bien ce qu'est le VBA même si je ne le maîtrise pas !!!

Ce que je ne sais pas, c'est comment passer des variables d'une macro vers un VBScript et faire en sorte que le VBScript récupère ces varaibles.

Merci quand même !

Alfred