Bonjour,

J'utilise ce code VBA sous Excel 2010 pour lancer UltraVNC depuis un fichier Excel :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
 Sub MyExcelMacro()
    Dim Program As String
    Dim Launch As Double
    On Error Resume Next
    Program = "C:\Program Files\UltraVNC\vncviewer.exe 172.16.XXX.XXX /notoolbar /nohotkeys /nostatus /noauto /256colors /password XXXXXX /autoscaling"
    Lauch = Shell(Program, 1)
    End Sub

J'aimerais stocker le chemin vers l’exécutable dans une autre variable (le chemin change suivant la version et l'OS) et l'appeler dans la ligne Program = :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
Sub MyExcelMacro()
    Dim Program As String
    Dim Launch As Double
    Dim Url As String
    Url = "C:\Program Files\UltraVNC\vncviewer.exe"
    On Error Resume Next
    Program = "Url 172.16.XXX.XXX /notoolbar /nohotkeys /nostatus /noauto /256colors /password XXXXXX /autoscaling"
    Lauch = Shell(Program, 1)
    End Sub


Il me manque des guillemets ou autre chose, mais je tourne en rond.
Merci d'avance,