Emettre un son Pendant une macro
Résolu
Utilisateur anonyme
-
Utilisateur anonyme -
Utilisateur anonyme -
Bonjour,
Comment faire pour emettre un son "musique de fond" pendant la durée d"exécution de la macro ?
Comment faire pour emettre un son "musique de fond" pendant la durée d"exécution de la macro ?
A voir également:
- Emettre un son Pendant une macro
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Télécharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Jitbit macro recorder - Télécharger - Confidentialité
- Macro maker - Télécharger - Divers Utilitaires
- Impossible d'émettre des appels sortants si le blocage d'appels est activé - Forum Réseaux sociaux
3 réponses
Bonsoir Cocyttehier, Eriic
Essaies ces macros avec possibité d'arret
Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" _
(ByVal lpstrCommand As String, ByVal lpstrReturnString As String, _
ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
'Robert Dezan, mpfe (OK)
Sub Jouer_la_musique()
DoEvents
' paramètres de la musique
Path_musique = ThisWorkbook.Path & "\"
Musique_Nom = "bailey.mid"
' jouer la musique
Call Musique_jouer(Path_musique + Musique_Nom)
End Sub
Public Function Musique_jouer(ByVal Fichier As String, _
Optional ByVal Alias As Variant) As Boolean
Dim nRet As Long
If IsMissing(Alias) Then Alias = "tune"
' stoppe la musique en cours d'exécution éventuellement
Call Musique_Stopper(Alias)
If mciSendString("open " & Fichier$ & " alias " & Alias, vbNullString, 0, 0) = 0 Then
nRet = mciSendString("play " & Alias & " from 0", vbNullString, 0, 0)
Musique_jouer = (nRet = 0)
Else
MsgBox "Impossible de jouer la musique." + vbLf + vbLf + "Problème de fichier ou de compatibilité"
Musique_Stopper
End If
End Function
Public Sub Musique_Stopper(Optional ByVal Alias As Variant)
If IsMissing(Alias) Then Alias = "tune"
Call mciSendString("stop " & Alias, vbNullString, 0, 0)
Call mciSendString("close " & Alias, vbNullString, 0, 0)
End Sub
Essaies ces macros avec possibité d'arret
Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" _
(ByVal lpstrCommand As String, ByVal lpstrReturnString As String, _
ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
'Robert Dezan, mpfe (OK)
Sub Jouer_la_musique()
DoEvents
' paramètres de la musique
Path_musique = ThisWorkbook.Path & "\"
Musique_Nom = "bailey.mid"
' jouer la musique
Call Musique_jouer(Path_musique + Musique_Nom)
End Sub
Public Function Musique_jouer(ByVal Fichier As String, _
Optional ByVal Alias As Variant) As Boolean
Dim nRet As Long
If IsMissing(Alias) Then Alias = "tune"
' stoppe la musique en cours d'exécution éventuellement
Call Musique_Stopper(Alias)
If mciSendString("open " & Fichier$ & " alias " & Alias, vbNullString, 0, 0) = 0 Then
nRet = mciSendString("play " & Alias & " from 0", vbNullString, 0, 0)
Musique_jouer = (nRet = 0)
Else
MsgBox "Impossible de jouer la musique." + vbLf + vbLf + "Problème de fichier ou de compatibilité"
Musique_Stopper
End If
End Function
Public Sub Musique_Stopper(Optional ByVal Alias As Variant)
If IsMissing(Alias) Then Alias = "tune"
Call mciSendString("stop " & Alias, vbNullString, 0, 0)
Call mciSendString("close " & Alias, vbNullString, 0, 0)
End Sub
Avec grand plaisir je vais essayer.
Merci