XL 2010 ouvrir wmplayer en 1er plan

[herve62]

Bonsoir
Dans un USF , j'ai plusieurs choix d'affichage de fichiers ( du PDF > avec adobe reader ; du DOCX > avec Word ....)
Là pas de soucis les appli se mettent au 1er plan
Le Pb avec les MP4 Wmplayer se met en barre des taches ?
J'utilise cette fonction qui est universelle pour tous les choix d'ouverture mais pas d'option de faire du style : AppActivate ("wmplayer"), 1 ... si cela fonctionne? ou de mettre Vbnormalfocus ... je ne sais pas
Y a t-il une solution ?

Public Function OuvrirFichier(choixpdf As String)

On Error GoTo OuvertureFichierErreur
    
   Dim MonApplication As Object
   Set MonApplication = CreateObject("Shell.Application")
      MonApplication.Open (choixpdf)
    OuvrirFichier = True
   Set MonApplication = Nothing
 
Exit Function
OuvertureFichierErreur:
   Set MonApplication = Nothing
    OuvrirFichier = False
End Function

 

[Phil69970]

Bonjour Herve62, le forum

2 pistes :

1 de patricktoulon ==> https://www.developpez.net/forums/d...l/ouvrir-windows-media-player-partir-d-excel/

et 1 de silkyroad ==>https://silkyroad.developpez.com/VBA/WindowsMediaPlayer/

Function WmPlaySound(MySound)
      Dim WshShell
      Set WshShell = CreateObject("WScript.Shell")
      WshShell.Run "wmplayer " & DblQuote(MySound) & "", 1, False
      Set WshShell = Nothing
   End Function
Function DblQuote(Str)
   DblQuote = Chr(34) & Str & Chr(34)
End Function
Sub test()
musique = "H:\mes musique\Amy Mc Donald\This is the Life - Amy Mac Donald\This is the Life\02 - This is the life2.mp3"
WmPlaySound musique
End Sub

Cordialement

 

[herve62]

Ok merci bien Phil !!!!
J'ai bien réussi à adapter WmplaySound , le lecteur reste bien en 1er plan avec l'USF ( en écran total) en arrière plan !! on a bien le 1 dans WshShell qui fait mettre en 1er plan