Autres Lancer Vlc par Vba

bernardrustrel · 14 Mars 2022

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 · 14 Mars 2022

Bonjour,

Tu peux essayer ceci :

VB:

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 :

VB:

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 · 14 Mars 2022

Bonjour

Test OK sur mon PC

VB:

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 · 15 Mars 2022

Staple1600 à dit:
Bonjour

Test OK sur mon PC

VB:

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 · 15 Mars 2022

Marcel32 à dit:

Bonjour,

Tu peux essayer ceci :

VB:

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 :

VB:

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

Autres Lancer Vlc par Vba

bernardrustrel

XLDnaute Occasionnel

TooFatBoy

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

bernardrustrel

XLDnaute Occasionnel

bernardrustrel

XLDnaute Occasionnel

Discussions similaires