Discussion :

[Fenyx]

Bonjour à tous,

J'espère que vous pourrez m'aiguiller pour résoudre mon problème :

Ma base contient des fichiers vidéos (.avi) appelés par un bouton.
J'ai vu que la commande ShellExecute ouvre un fichier avec l'application associée.
ShellExecute fonctionne parfaitement avec un fichier texte, un fichier audio, une autre mdb et quand j'ouvre un .avi avec Media player cela fonctionne également.
Le seul hic est donc quand j'associe mes fichiers vidéo avec mon lecteur adoré : VLC (désolé mais je n'aime pas media player) cela ne fonctionne plus

Voyez vous une solution ?

Voici mon code qui fonctionne donc pour tout sauf VLC

Dans un module :

Code :

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

1
2
3
Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
    (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, _
    ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Et pour mon formulaire :

Code :

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

1
2
3
4
5
Public Sub play_Click()
 
ShellExecute Me.hwnd, "open", "film.avi", "", CurrentProject.Path, 1
 
End Sub

Merci d'avance pour votre aide

[Invité]

Bonjour

Que veux-tu dire pas "cela ne fonctionne plus ?", rien ne se passe, as-tu un message d'erreur ?

Starec

[Fenyx]

Bonjour,

Non rien du tout, je clique sur mon bouton et pas de message d'erreur pas de réaction comme si VLC n'existait pas sur le pc. Je confirme bien que VLC est associé avec mes .avi et fonctionne parfaitement en utilisation normale

[Invité]

Bonjour

Une première piste sera de chercher à interpréter ce que renvoie la fonction, pour cela regarde cela dans la FAQ :

Que faire quand l'API ShellExecute ne fonctionne pas ?

Starec

[Fenyx]

J'ai essayé d'insérer cette vérification d'erreur mais n'étant pas familier avec le VBA je n'y parviens pas.

Je ne sais pas à quel endroit positionner la variable et l'appel de celle-ci

Code :

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

1
2
3
4
5
6
7
8
9
Public Sub play_Click()
 
ShellExecute Me.hwnd, "open", "film.avi", "", CurrentProject.Path, 1
 
 
Dim Ret As Variant
Ret = ShellExecute(.....)
MsgBox Ret
End Sub

Merci

[Invité]

Re

Mets en commentaire le premier ShellExecute, pour que seul le deuxième s'exécute, et de plus, contrôle que tu n'as pas d'instance de VLC d'ouverte, pour cela utilise le gestionnaire des tâches de Windows.

Starec