POWERPOINT - VBA & accès à une autre application

  • Initiateur de la discussion Initiateur de la discussion thombar
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

T

thombar

Guest
POWERPOINT - VBA & accès à une autre application

Bonjour,

J'ai réalisé une présentation sous Powerpoint. Lorsque je clique sur un objet, je souhaite qu'une autre application (en l'occurence, le logiciel audio Cakewalk Sonar dont une session est ouverte) lance un fichier de musique dont l'extension est .cwp ou .cwb. (NB : je pense que pour les autres applications type Winamp ou n'importe quoi, c'est la même chose...).
J'utilise la macro vba que vous trouverez à la fin de ce post.

J'ai deux soucis :
- lorsque la macro se lance, elle affiche le logiciel Cakewalk à l'écran, alors que je souhaite conserver ma présentation en tant qu'application active, et que Cakewalk reste une application cachée.
- après chargement du fichier .cwp, il faut que la chanson démarre. Une simple pression sur la barre d'espacement suffirait (lorsque cakewalk est l'application active), comment l'intégrer à la macro ?

merci beaucoup pour votre aide précieuse.
thombar
_______________________

Private 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

Sub Test()
Dim cmdstring As String
Dim ret As Long

cmdstring = "C:\musique\chanson.cwp"

ret = ShellExecute(0&, vbNullString, cmdstring, _
vbNullString, vbNullString, vbNormalFocus)

End Sub
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
8
Affichages
1 K
Retour