Option Explicit Dim WSHShell, Commande Set WSHShell = CreateObject("WScript.Shell") Commande = "\\192.168.1.12\MonPartage" WSHShell.Run Commande Set WSHShell = Nothing