Discussion :

[Oliv-]

Bonjour,
Je souhaite récupérer dans une variable ou un fichier le résultat de la commande

Code :

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

1
2
3
Dim ret
fichier= "maDll.dll"
ret = Shell.Run("RegSvr32 " & Chr(34) & Fichier & Chr(34) )

or "ret" me renvoi toujours 0 et pas le code d'erreur de RegSvr32.

Merci d'avance

[omen999]

bonjour,

Code :

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

ret = Shell.Run("RegSvr32 " & Chr(34) & Fichier & Chr(34),0,true )

lire la doc

[Oliv-]

Super merci beaucoup !
ce qui donne

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Dim ret
ret = Shell.Run("RegSvr32 /s " & Chr(34)  & Fichier & Chr(34), 1, true)
MsgBox ret
if ret = 0 then 
MsgBox "Mise à jour effectuée, vous pouvez relancer OUTLOOk"
elseif ret = 5 then
MsgBox "Vous devez avoir des droits d'administrateur !"
else
MsgBox "Une erreur s'est produite"
end if