Microsoft 365 lire .wav en 32 ou 64bits VBA

[youky(BJ)]

Bonjour tous,
Lire les fichiers .wav selon les versions
Avant en 32bits je déclarais ceci qui fonctionnait

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
Private Declare Function GetShortPathName Lib "kernel32" Alias _
"GetShortPathNameA" (ByVal lpszLongPath As String _
, ByVal lpszShortPath As String, ByVal lBuffer As Long) As Long
Private Song As String
----------------------------------------------------------------------
pour passer en 64bits j'ai ceci qui fonctionne en 64bits
#If VBA7 Then
Declare PtrSafe Function PlaySound Lib "winmm.dll" (ByVal pszsound As String, ByVal hmod As Long, ByVal fdwsound As Long) As Long
#Else
'ici ca passe pas en 32 bits, je ne sais pas quoi mettre, l'ancien code bug
'Declare Function PlaySound Lib "winmm.dll" (ByVal pszsound As String, ByVal hmod As Long, ByVal 'fdwsound As Long) As Long
#End If
----------------------------------------------------------------------
Sub woot()
PlaySound ThisWorkbook.Path & "\woot", 0, 1
End Sub

Si besoin d'un fichier
Lien du chargement du fichier Poker sur xld

https://excel-downloads.com/resources/poker-game.1264/download

Je souhaite mettre le son quel que soit les bits
Bruno

 

[patricktoulon]

bonsoir
celle ci devrait fonctionner sur 32/64 bits sans déclaration

'-------------------------------------------------------------------------------------------------------------------
'FONCTION POUR JOUER UN SON WAVE
'patricktoulon
'extrait collection api  en macro 4 episode 4
Sub joueBeepWAVEWindows1()    'le dernier argument pour asyncro ou syncro
    Dim MonWav As String
    MonWav = "C:\Windows\Media\Windows Exclamation.wav"     '... chemin et nom à adapter
    ExecuteExcel4Macro ("CALL(""winmm"",""PlaySoundA"",""JCJJ"",""" & MonWav & """, " & 0 & "," & &H1 & ")")
End Sub

 

[youky(BJ)]

Merci bien Patrick,
Cela fonctionne bien et sans Api c'est le top.
Bruno

 

[Cousinhub]

Bonjour,
Si je peux me permettre...
Attention aux versions, car xl2021 et (je crois) 365 nécessitent l'autorisation des macros xl4
Voir ce fil
Je ne sais pas si cela peut impacter...
Bonne journée

 

[Cousinhub]

Re-,
Je viens de faire l'essai en désactivant l'option, et cela semble fonctionner malgré tout.
Donc, pas de soucis à priori
Désolé pour mon incrust'
Bonne journée

 

[youky(BJ)]

J'ai testé sur mon nouveau et ancien PC c'est tout bon
Bruno

 

[patricktoulon]

re @youky(BJ)
et oui c'est l'avantage de se servir des api en macro 4
la remarque de @bhbh n'est pas anodine
c'est vrai sur 2021 il faut cocher l'autorisation pour certaine api comme GDI par exemple

cela dit c'est un bon compromis quand on galère avec les déclarations 64 bits
de plus avec declaration le module charge les fonctions et variable afférentes en memoire
en macro4 elle consomme légèrement plus en action mais sont vidé après exécution
rien ne reste en mémoire
alors pour certaines api c'est pas simple surtout pour celle qui ont des argument de type structure
mais pour le long, string et variant c'est hyper simple

dans les ressource j'ai commencé une serie episodes (1,2,3,4) sous forme de fichiers si ça vous intéresse

https://excel-downloads.com/members/patricktoulon.167882/#resources

voilà vous savez tout

 

[matlatarte]

Bonjour, j'aimerai faire la même chose mais avec 2 ou x fichiers sons lancés en même temps ou non. Est ce possible ? Dans le cas actuel, le lancement d'un autre son arrête celui déjà lancé. J'aimerai (à minima) qu'à chaque bouton cliqué par exemple cela lance un nouveau son sans arrêter les autres... Une idée ?