variable VBA vers VBS

Bonjour,

Merci d'avance pour votre aide.

Je voudrais pouvoir utiliser le résultat des variables MOIS & PATH dans mon script VBS
Comment faire ?

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Dim PATH As Variant Dim MOIS As Variant Dim oWsh As Variant   PATH = "P:\VBA\BETA_KRC\Scripts_extract_budget\" MOIS = "5"   Application.ScreenUpdating = False   Set oWsh = CreateObject("Shell.Application") oWsh.ShellExecute "P:\VBA\BETA_KRC\Scripts_extract_budget\test.vbs " & MOIS, vbNormalFocus Set oWsh = Nothing   'Sleep 180000 Sleep 70000   MsgBox "test"   Application.ScreenUpdating = True

---

Bonjour,

Un mini fichier test.vbs recevant 2 arguments:

Code:

---

msgbox "Test" & chr(13) & "Premier argument: " & WScript.Arguments(0) & chr(13) & "second argument: " & WScript.Arguments(1)

---

et un exemple d'appel en VBA:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Option Explicit   Sub TestVbs() Dim sChemin As String Dim sTxt As String Dim sMois As String Dim oWsh As Variant sChemin = ThisWorkbook.PATH sTxt = "Texte avec des espaces" sMois = "5" Set oWsh = CreateObject("Shell.Application") oWsh.ShellExecute "test.vbs ", sMois & " " & Chr(34) & sTxt & Chr(34), sChemin, "open", 1 oWsh.ShellExecute "test.vbs ", sMois & " " & sTxt, sChemin, "open", 1 Set oWsh = Nothing End Sub '--- https://ss64.com/vb/shellexecute.html

---

et de l'importance à gérer les espaces au moment de l'envoi des paramètres (lignes 12 et 13).
Pour cet exemple il est supposé que les fichiers Excel et vbs sont dans le même dossier.

A éviter absolument: donner à une variable le même nom qu'un nom déjà utilisé par Excel (en anglais ou en français), p.ex. PATH ou MOIS.

Cordialement.