Bonjour,
 
Dans le cadre de la dév d'une application interne, je me retrouve à ressortir mes vieilles connaissances VB.
Seulement voilà, elles sont vraiment obsolètes.
Je tente de créer une connexion SqlPlus avec le code suivant :
 

Dim File, Cmd, SqlPlus As String
Dim objShell As Object
Dim objScriptExec As Object
Dim User, Mdp, Dbname As String
     
    User = "xx"
    Mdp = "yy"
    Dbname = "zz"
 
    File = PreRisk_TxtDirectory.Text & "\" & PreRisk_CBList.Text
 
    SqlPlus = "sqlplus -s" & " " & User & "/" & Mdp & "@" & Dbname
    Cmd = SqlPlus & " " & "@" & File
    Set objShell = CreateObject("WScript.Shell" )
    objScriptExec = objShell.Run(Cmd)
 
Seulement, au moment d'exécuter la ligne objScriptExec = objShell.Run(Cmd), le programme me sort l'erreur suivante :
Run-Time error '91' : Object Variable or With Block variable no set
 
L'erreur est la même si je change objScriptExec = objShell.Run par objScriptExec = objShell.Exec
 
Je ne trouve rien sur Internet de probant donc je me tourne vers vous.