Discussion :

[eliot.raymond]

Bonjour a toutes et tous, forum bonjour

Dans la suite de mon programme, je rencontre un souci auquel je n’ai pas la solution.

Je m’explique :

Dans la colonne (A) j’ai une liste de films, quand je clic sur un nom de film, je lance Windows Média Player pour visualiser celui-ci et dans la foulée l’image correspondante au film s’affiche.

Quand je n’ai pas l’image du film, j’en affiche une autre par défaut toujours la même (Liberty.jpg)
Quand je clic sur WMP pour l’arrêter un message qui dit que WMP est a l’arrêt, je clic de nouveau et l’image s’efface, enfin presque d’où le souci.

En fait seule l’image (afficher par défaut s’efface) et en (aucun cas celle qui correspond au film) ne veut pas s’effacer.

Alors que bien sur dans les deux cas il faudrait de toutes manières effacer l’image par défaut OU celle correspondante au film.

Je joins le code qui permets de faire fonctionner ca et S’il vous plait de regarder mon code afin d’y déceler une erreur.

Par avance je vous remercie de corriger.

Encore merci a vous et de votre temps.

Raymond

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
'*** LANCE UN FILM SUR DOUBLE CLIC DANS LA LISTE COLONNE A
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim Chemin As String: Dim Fichier As String: Dim Shp As Shape: Dim Retval As Long: Dim ID As Variant
Application.ScreenUpdating = False
'
If Not Intersect(Target, Range("A2:A" & [A3000].End(xlUp).Row)) Is Nothing Then
Cancel = True
Chemin = "E:\Videos\"
Fichier = "E:\Affiche\" & Target.Value & ".jpg"
End If
'
'*** APPEL DU FILM CHOISI DANS LA COLONNE A
ID = Shell("""C:\Program Files\Windows Media Player\wmplayer.exe"" """ & Chemin & Target & ".avi", vbMaximizedFocus)
Retval = ExecCmd("Wmplayer.exe" )
'
'*** APPEL DE L'IMAGE CORRESPONDANT AU FILM                    L    T    W    H
On Error Resume Next
Set Shp = Feuil1.Shapes.AddPicture(Fichier, msoFalse, msoCTrue, 945, 196, 194, 240)
On Error GoTo 0
Fichier = IIf(Shp Is Nothing, "E:\Affiche\Liberty.jpg", Fichier)
Set Shp = Feuil1.Shapes.AddPicture(Fichier, msoFalse, msoCTrue, 945, 196, 194, 240)
Shp.Name = Fichier
'
Application.ScreenUpdating = True
'*** ARRET DU LECTEUR ET EFFACE L'AFFICHE
If Retval = -1 Then MsgBox "Windows média player est arrêter."
Shp.Delete
End Sub

[mercatog]

ici

Code :

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

1
2
3
4
Set Shp = Feuil1.Shapes.AddPicture(Fichier, msoFalse, msoCTrue, 945, 196, 194, 240)  'ICI
On Error GoTo 0
Fichier = IIf(Shp Is Nothing, "E:\Affiche\Liberty.jpg", Fichier)
Set Shp = Feuil1.Shapes.AddPicture(Fichier, msoFalse, msoCTrue, 945, 196, 194, 240)ET ici

si l'image du film existe, tu l'insère 2 fois
plus bas tu la supprime 1 seule fois
remplace

Code :

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

1
2
3
4
5
6
et Shp = Feuil1.Shapes.AddPicture(Fichier, msoFalse, msoCTrue, 945, 196, 194, 240)  'ICI
On Error GoTo 0
if shp is nothing then 
   Fichier = "E:\Affiche\Liberty.jpg"
   Set Shp = Feuil1.Shapes.AddPicture(Fichier, msoFalse, msoCTrue, 945, 196, 194, 240)
endif

[eliot.raymond]

Bonjour a toutes et tous, forum bonjour

Bonjour Mercatoq

Bien vu, félicitations merci beaucoup, j'ai effectuer ta modification et ca marche nickel.

Je te souhaite un excellent W-end et encore merci a toi, c'est gentil et très sympa.

Bye Bye Raymond