Discussion :

[fred_chx]

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,

[mercatog]

Code :

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

Program = Url & " 172.16.XXX.XXX /notoolbar /nohotkeys /nostatus /noauto /256colors /password XXXXXX /autoscaling"

[Theze]

Bonsoir,

Comme ça peut être ?

Code :

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

1
2
 
Program = Url & " 172.16.XXX.XXX /notoolbar /nohotkeys /nostatus /noauto /256colors /password XXXXXX /autoscaling"

Hervé.

[fred_chx]

Merci à vous deux pour votre aide, c'est parfait!
Votre rapidité est remarquable!
C'est ma première approche sur ce forum et j'ai bien peur de revenir (souvent) vu le niveau d’efficacité des membres!

MERCI