Comment Stopper Vlc via code VBA?

Bonjour à tous,

Dans un code vba Excel, j'ouvre vlc qui joue un mp3.

Quel code utiliser, par exemple dans un bouton, pour stopper vlc?

Merci d' avance.

Bonsoir Laudelout,

Voici une piste à explorer : https://fr.extendoffice.com/documents/excel/4483-excel-play-video.html

Bonjour,,

Tu as aussi ceci :

Dans la procédure, tu remplaces "NotePad.exe" par le nom
du processus que tu veux tuer et qui s'afficher dans le gestionnaire
de tâche. Ceci supprime toutes les instances du processus mentionné.

'---------------------------
Sub Test()
'by michdenis (2010)
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!" & strComputer & "rootcimv2")
Set colProcessList = objWMIService.ExecQuery _
("Select * from Win32_Process Where Name = 'Notepad.exe'")
For Each objProcess in colProcessList
objProcess.Terminate()
Next
End Sub

A+

Bonsoir,

Dans le cadre de la piste suggérée par Valky68, tu peux utiliser un Userform avec le contrôle ActiveX : VLCPlugin disponible dans les contrôles supplémentaires.

Son fonctionnement est cependant différent de celui de Windows Media Player :

1- le chemin d'accès du fichier média est au format Web

2- il faut passer par une playlist

ci-dessous exemple de chargement pour le fichier vidéo M:\groland01.flv

Private Sub UserForm_Initialize()
    Me.VLCPlugin21.playlist.Add ("File:///M:/groland01.flv")
End Sub

Bonjour,

Un grand Merci à vous , Walky68, galopin01 et thev pour vos réponse.

Bonjour,

A+

bonjour

je me permet d'intervenir

quelle solution a été adoptée?

car perso je m'y suis déjà frotter il y a très longtemps

et la solution de thev ne fonctionne pas chez moi( office 2013 32 bit sur w10 64 et vlc 32 installé pour l’occasion)

je n'ai pas d'erreur mais la lecture ne fonctionne pas sur un ".avi " ni sur un ".mp4" d'ailleurs

Notre ami à utilisé le code de michdenis, code qui provoque une erreur sur Terminate qu'on peut inhiber avec un gestionnaire d'erreur.

        If Not objProcess Is Nothing Then
        hh = objProcesses.Count ' 1
            objProcess.Terminate ' Here is Error Not Found
            If Err.Number <> 0 Then
            Else
                'DisplayErrorInfo
                Exit For
            End If
        End If

A+

bonsoir galopin

perso j'utilise une petite commande pour killer des process

avec commentaire

'patricktoulon
CreateObject("WScript.Shell").Run "cmd /c TASKKILL /IM vlc* /F", 0, False

'detail du script
'[CreateObject("WScript.Shell")]    crée l'object shell pour lancer la commande
' run :                             lance la commande
' "cmd /c TASKKILL /IM vlc*         commande à exécuter
'/F":                               toute les instances du process  seront fermées
',0                                 empêche l'apparition de la fenêtre DOS
', False :                          asynchrone le script continue  de s’exécuter et n'attend pas la fin des kills
                                    autrement dit là il se ferme puisqu'il y a que cette commande à exécuter 

j'aurais aimer voir des exemples avec le plugins vlc

Salut Patrick,

ci-dessous un exemple du plugin VLC avec démarrage automatique pour le film D:\cluedo.mkv avec les événements associés.

Cet exemple concerne office 2021 64 bits.

re

merci thev

j'avais trouvé entre temps

le autoplay ne fonctionne pas c'est .playlist.play ou playitem(x) qui fonctionne

j'ai cherché aussi si l'on pouvait ajouter des bouton tel que avance rapide etc ... , mais il semble que non; il faut se les faire dans le userform

je vous donnesi ça vous intéresse et si vous avez le webbrowser accessible(débloqué) sur 64 bit mon lecteur WMp qui ne demande pas d'autorisation activeX

car c'est un webbrowser avec un embed wmp

je l'ai mis a jour pour les api mais il faudra vérifier les declarations 64

patrickT

Je t'ai toujours soupçonné de fumer des trucs pas avouables !

A+

Bonjour galopin

hoh! là !! je suis assez tordu comme ça au naturel pour agraver mon cas en fumant des imbécilités

il vous plait pas mon wmp façon patosh jusqu’à l’icône dans la barre de titre

la voix de claude pieplu me fait encore autant délirer aujourd'hui

cultissime, exellent