Discussion :

[eliot.raymond]

Bonsoir a toutes et tous, forum bonsoir

(1) Je souhaiterai svp positionner a l'écran windows média player dès l'ouverture a un endroit de mon choix, car je voudrai qu'il s'ouvre toujours au mème endroit présentation sur ma page

(2) et un petit code pour arreter et effacer une image

Mais voyez svp le petit fichier joint svp c'est expliquer dans le code en remarque PS: sous seven 32 bits

Merci a vous et de votre temps combien précieux

Bonne soirée et merci d'avance

Raymond

[Antoniom]

Hello,

Pour le point 2

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
29
30
Option Explicit
 
'*** 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 s As Shape
'===============
 
If Not Intersect(Target, Range("A4:A" & [A1800].End(xlUp).Row)) Is Nothing Then
 
'===========================================
For Each s In ActiveSheet.Shapes
    If s.Type = msoPicture Then s.Delete
Next s
'===========================================
 
Cancel = True
Chemin = "E:\Videos\"
Fichier = "E:\Affiche\" & Target.Value & ".jpg"
 
End If
'*** APPEL DU FILM CHOISI DANS LA COLONNE A
Shell """C:\Program Files\Windows Media Player\wmplayer.exe"" """ & Chemin & Target & ".avi", vbMaximizedFocus
 
'*** APPEL DE L'IMAGE CORRESPONDANT AU FILM                     (A)  (B)  (C)  (D)
Set Shp = Feuil1.Shapes.AddPicture(Fichier, msoFalse, msoCTrue, 400, 50, 200, 240)
 
End Sub

Pour le point 1, je fouille...

Bonne soirée.

[eliot.raymond]

Bonjour a toutes et tous, forum bonjour

Bonjour Antonium,

Merci pour ta réponse ta modification arrète et efface bien WMP mais par contre l'affiche reste toujours a l'écran, j'ai regarder mais pas trouver pour effacer également la photo en mème temps.

Merci pour l'aide c'est gentil j'attends pour la question (1) pas de problème je cherche aussi de mon coté te tient informer.

Merci une bonne journée le soleil reviens enfin

Raymond

[eliot.raymond]

Re salut

le code fonctionne on peut effacer l'image MAIS ca marche pas comme il le faudrai dès que j'arrète windows média player celui s'arrète et s'efface bien MAIS ca n'efface pas l'image, pourtant quand j'exécute le code pour éffacer l'image le code fonctionne et l'image s'éfface

le test surement qui n'ai pas approprié

a plus tard et merci

raymond