XL 2013 Piloter fichier .VLC et .avi via VBA

[maval]

Bonjour


Voila j'ai cette ligne de commande pour ouvrir un film qui fonctionne très bien, seul petit souci j'ai des films avec l'extension "Avi, Mp4,et Mkv"
Ma ligne:

Shell """C:\Program Files\Windows Media Player\wmplayer.exe"" ""J:\Films\Films\" & TextBox1.Value & ".avi""", vbMaximizedFocus

Si quelqu'un pouvait m'aider j'ai fait ceci mais sa nefonctionne pas?

Shell """C:\Program Files\Windows Media Player\wmplayer.exe"" ""J:\Films\Films\" & TextBox1.Value & ".avi,Mp4,Mkv""", vbMaximizedFocus

et ceci: qui fait fonctionner que les fichier MKV

Dim Film As Variant
Dim ID As Variant
ID = Shell("""C:\Program Files\VideoLAN\VLC\vlc.exe"" ""J:\Films\Films\" & TextBox1.Value & ".mkv""", vbMaximizedFocus)

Je vous remercie d'avance

 

[maval]

Re : Piloter fichier .VLC et .avi via VBA

Bonjour

Personne peut m'aiguillait ?

Bonne journée à tous

 

[Iznogood1]

Re : Piloter fichier .VLC et .avi via VBA

Bonjour,

cherche du coté de la fonction "DIR"
quii te permettra de savoir quelle fichier existe sur ton disque.

 

[maval]

Re : Piloter fichier .VLC et .avi via VBA

Re,

Voila en cherchant j'ai trouvé ceci qui ma fois fonctionne pas trop mal?

If Dir("J:\Films\Films\" & TextBox1.Value & ".avi") <> "" Then
Shell """C:\Program Files\Windows Media Player\wmplayer.exe"" ""J:\Films\Films\" & TextBox1.Value & ".avi""", vbMaximizedFocus
ElseIf Dir("J:\Films\Films\" & TextBox1.Value & ".mkv") <> "" Then
ID = Shell("""C:\Program Files\VideoLAN\VLC\vlc.exe"" ""J:\Films\Films\" & TextBox1.Value & ".mkv""", vbMaximizedFocus)
Else
MsgBox ("Film non trouvé")
End If