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
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