Autres Lancer Vlc par Vba

[bernardrustrel]

Bonsoir
Je fais appel a vos compétences car je voudrais lancer des video au travers d'un appli VBA sous excel 2007. Voici ce que j'ai écrit:

Sub TestOuvrirVlc()

Chem = "Chemin\"
Fichier = "Video a visionner.mkv"
Shell """C:\Program Files\VideoLAN\VLC\Vlc.exe"" ""Chemin\ Video a visionner.mkv """
End Sub
Cela fonctionne parfaitement or je voudraios ma servir des variables Chemin et Fichier alors là chou blanc et je tourene en rond à y perdre mon latin.

Voici mon propos qui ne fonctionne pas

Sub TestOuvrirVlc()

Chem = "Chemin"
Fichier = "Video a visionner.mkv"
Shell """C:\Program Files\VideoLAN\VLC\Vlc.exe"" Chem & Fichier Video a visionner.mkv """
End Sub

Alors si l'un de vous avait une suggestion, je l'en remercie par avance.
Cordialement, Bernard.

 

[TooFatBoy]

Bonjour,

Tu peux essayer ceci :

Sub TestOuvrirVlc()
'
    Chem = "Chemin"
    Fichier = "Video a visionner.mkv"

    Shell """C:\Program Files\VideoLAN\VLC\Vlc.exe"" """ & chem & fichier & """"
End Sub

Ou un truc qui, perso, me semble plus clair :

Sub TestOuvrirVlc()
'
    MonPlayer = "C:\Program Files\VideoLAN\VLC\Vlc.exe"
    MonChemin = "Chemin\"
    MonFichier = "Video a visionner.mkv"

    Shell Chr(34) & MonPlayer & Chr(34) & Chr(32) & Chr(34) & MonChemin & MonFichier & Chr(34)

End Sub

 

[Staple1600]

Bonjour

Test OK sur mon PC

Sub test_B()
Dim sVLC$, Chemin$, MaVideo$
Chemin = "C:\Users\Staple\Documents\TESTS\" ' à adapter
MaVideo = Chemin & "fichierVIDEO.mp4" ' à adapter
sVLC = "C:\Program Files (x86)\VideoLAN\VLC\vlc.exe" ' à adapter si besoin
Call Shell("""" & sVLC & """ """ & MaVideo & """", 1)
End Sub

EDITION: Bonsoir Marcel32, je n'avais pas rafraichi le navigateur

 

[bernardrustrel]

Bonjour

Test OK sur mon PC

Sub test_B()
Dim sVLC$, Chemin$, MaVideo$
Chemin = "C:\Users\Staple\Documents\TESTS\" ' à adapter
MaVideo = Chemin & "fichierVIDEO.mp4" ' à adapter
sVLC = "C:\Program Files (x86)\VideoLAN\VLC\vlc.exe" ' à adapter si besoin
Call Shell("""" & sVLC & """ """ & MaVideo & """", 1)
End Sub

EDITION: Bonsoir Marcel32, je n'avais pas rafraichi le navigateur

Bonjour Merci de votre aide,
j'ai rectifie mes ecritures, ou je me trompais sur le nombre de ""

merci encore, cordialement, Bernard

 

[bernardrustrel]

Bonjour,

Tu peux essayer ceci :

Sub TestOuvrirVlc()
'
    Chem = "Chemin"
    Fichier = "Video a visionner.mkv"

    Shell """C:\Program Files\VideoLAN\VLC\Vlc.exe"" """ & chem & fichier & """"
End Sub

Ou un truc qui, perso, me semble plus clair :

Sub TestOuvrirVlc()
'
    MonPlayer = "C:\Program Files\VideoLAN\VLC\Vlc.exe"
    MonChemin = "Chemin"
    MonFichier = "Video a visionner.mkv"

    Shell Chr(34) & MonPlayer & Chr(34) & Chr(32) & Chr(34) & MonChemin & MonFichier & Chr(34)

End Sub

Bonjour Merci de votre aide,
j'ai rectifie mes ecritures, ou je me trompais sur le nombre de ""
merci encore, cordialement, Bernard