Discussion :

[eliot.raymond]

Bonsoir a tous, forum bonsoir

Je souhaiterai svp utiliser le lecteur WMP et je voudrais pouvoir effectuer deux manipulations

(1) Positionner sur l'écran la ou je le souhaite
(2) Agrandir plus ou moins l'écran selon mon besoin
(3) Voir insérer le lecteur dans une USF si c'est plus facile

Coder en vba les dimensions ces trois possibilités Left Top Height Width

J'ai bien lu sur le site divers infos sur le WMP mais pas sur la façon de positionner

Merci a vous pour votre aide et savoir partager.

Cordialement Raymond

[unparia]

Bonjour
Une réponse (la mienne) bien que je considère que telle n'est pas la vocation d'un tableur (ce qu'est Excel) :
l'objet dont il s'agit a des propriétés, parmi lesquelles des propriétés de positionnement et de dimensions.
Montre-nous comment tu as au moins tenté de les utiliser.

[patricktoulon]

Bonsoir
en fait tout depend de quoi tu parle
du composant MP dans les controls suplementaires ou de l'application WMP ce n'est pas la meme chose
pour l'un il a déjà ces propriétés donc ca c'est régle


mais si c'est pour l'application WMP il va te falloir utiliser les apis

en l'occurrence ici pour les apis se sera findwindow et setwindowsposition


les déclarations :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Declare Function FindWindow Lib "user32" Alias "FindWindowA" ( _
                 ByVal lpClassName As String, _
                  ByVal lpWindowName As String) As Long
 
 
Declare Function SetWindowPos Lib "user32" Alias "SetWindowPos" ( _
                 ByVal hwnd As Long, _
                  ByVal hWndInsertAfter As Long, _
                  ByVal x As Long, _
                  ByVal y As Long, _
                  ByVal cx As Long, _
                  ByVal cy As Long, _
                  ByVal wFlags As Long) As Long

fit une recherche la dessus et après on verra
mettre "ptrsafe"devant "Function" pour les office version 64 bytes

[eliot.raymond]

Bonjour a tous,

Merci de vos réponses, je ne souhaite pas du compliqué, le plus simple m'irai bien..

Dans ma liste de la colonne (A) je sélectionne une vidéo par un DoubleClic qui lance le petit code ci-dessous

Ca fonctionne très bien sauf que lecteur s'affiche un peu trop petit, il me faut donc l'ouvrir manuellement a chaque fois
et par la même occasion, je voudrais bien pouvoir placer le lecteur la ou je le souhaite.

Si on peut éviter l'usine a gaz alors tant mieux.

Pour infos je suis sous Windows 7 - 32 bits Excel 2007

Merci a vous pour votre aide et bonnes fêtes de fin d'année a tous.

Cordialement 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
 
'### SELECTION D'UN FILM DANS LA LISTE EN DOUBLE-CLIC VERS LECTEUR WINDOWS MEDIA PLAYER
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
          Dim Chemin As String, Film As String
 
    If Not Intersect(Target, Range("A1:A" & [A4000].End(xlUp).Row)) Is Nothing Then
           Cancel = True
           Range(Cells(Target.Row, 1), Cells(Target.Row, Target.Column)).Interior.ColorIndex = 4   
           Chemin = "H:\": Film = Target & ".avi"       'Chemin Film et Avi
 
           UserForm1.Label91 = Target                   'Affiche le titre du film a visionner
    End If
           Shell """C:\Program Files\Windows Media Player\wmplayer.exe"" """ & Chemin & Film, vbMaximizedFocus
End Sub

[eliot.raymond]

Bonjour a tous,

Bon je n'ai pas avancer, c'est un peu compliquer pour moi, tant pis, ça restera comme ça.

Cdlt Raymond

[patricktoulon]

Bonjour
je t'ai donné la solution ,faut il encore faire quelques efforts

tu utilise les deux apis que je t'ai donné + 3 ou 4 lignes de code et c'est bouclé

si tu veux pas t'investir personne le fera pour toi