Passage de paramètres entre VB et VBS.

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:

---

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:

---

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

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

Exemple :

Code:

---

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

---

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 ? :koi:

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

Peux-tu m'en dire plus ?

Merci !

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

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