Discussion :

[batama]

Bonjour à tous,

Voici un petit code :

Code :

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

1
2
3
4
5
6
7
8
Sub Connect_Entity()
    Dim ip
    If ActiveSheet.Range("C27").Value = "Chad" Then
        ip = ActiveSheet.Range("D30").Value
    End If
   RunShell "C:\WINDOWS\system32\Psexec.exe \\ip -u Hyperion -p Hyperion0789 M:\V2\Calc_Process\calc.bat"

End Sub

Comme vous pouvez le voir, la variable Ip provient d'une cellule Excel, et cette variable doit servir dans une commande dos.
j'ai essayé le &ip ou ip.value mais ça donne rien.
mon idée donc, c'est de créer une variable de session dos qui contient la valeur de la variable ip. Et d'utiliser cette variable dans l'appel de Psexec.exe.

Ça serait cool de m'aider a faire cela, ou alors s'il y a une autre façon de faire je suis open.

Merci d'avance.

[cafeine]

Hello,

as-tu essayé ?

Code :

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

RunShell "C:\WINDOWS\system32\Psexec.exe " & Range("ip").Value & " -u Hyperion -p Hyperion0789 M:\V2\Calc_Process\calc.bat"

[neupont]

Et ceci ?

Code :

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

1
2
 
RunShell "C:\WINDOWS\system32\Psexec.exe \\" & ip & " -u Hyperion -p Hyperion0789 M:\V2\Calc_Process\calc.bat"

[Godzestla]

Petite explication complémentaire :

Code :

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

1
2
 
RunShell "C:\WINDOWS\system32\Psexec.exe \\ip -u Hyperion -p Hyperion0789 M:\V2\Calc_Process\calc.bat"

Ecrit comme cela, IP fait partie d'un string et n'est donc pas interprétée.
D'ou la solution qu'on t'a proposée de le sortir du string en concaténant sa valeur (& IP &) entre le début et la fin du string.

[batama]

Ben wé c'était une histoire de concaténation de string et de variable...

merci les amis .

ça marche.