VBA Excel : exécuter deux procédures en parallèle
Résolu/Fermé
A voir également:
- VBA Excel : exécuter deux procédures en parallèle
- Liste déroulante excel - Guide
- Si et excel - Guide
- Word et excel gratuit - Guide
- Déplacer une colonne excel - Guide
- Excel compter cellule couleur sans vba - Guide
4 réponses
michel_m
Messages postés
16602
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 décembre 2023
3 313
Modifié par michel_m le 23/11/2014 à 08:21
Modifié par michel_m le 23/11/2014 à 08:21
Bonjour,
Les macros XL4 sont bien pratiques mais souvent limitées
essaies ceci à adapter
Michel
Les macros XL4 sont bien pratiques mais souvent limitées
essaies ceci à adapter
Private Declare Function PlaySound32 Lib "winmm.dll" Alias "PlaySoundA" (ByVal IpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long Const SND_SYNC = &H0 Const SND_ASYNC = &H1 Const SND_FILENAME = &H20000 ' archives MPFE Sub PlayWAV() ' snd_async: son asynchrone (la musique n'arrete pas le programme) snd_sync: arrete le prog If Application.CanPlaySounds Then WAVFile = ThisWorkbook.Path & "\" & "coluche.wav" Call PlaySound32(WAVFile, 0&, SND_ASYNC Or SND_FILENAME) Else Exit Sub End If End Sub
Michel
Bonjour Michel,
Merci d'avoir pris le temps de regarder ma question et de m'avoir apporté une réponse claire qui, en plus, fonctionne ! (humour du dimanche...)
Je ne connaissais pas cette fonction. J'ai pu l'adapter sans problème. J'ai déclaré la fonction et les variables en public, dans un module, puisque je l'utiliserai dans plusieurs UF.
Juste une question : c'est l'utilisateur qui décide ou non d'avoir du son. Cela donne une variable nommée ambiance.
J'ai donc remplacé:
"If Application.CanPlaySounds" par "if ambiance"
Cela fonctionne mais y a t-il un risque ou ma condition peut-elle remplacer sans problème celle que tu avais indiqué ?
Bon appétit
Jean
Merci d'avoir pris le temps de regarder ma question et de m'avoir apporté une réponse claire qui, en plus, fonctionne ! (humour du dimanche...)
Je ne connaissais pas cette fonction. J'ai pu l'adapter sans problème. J'ai déclaré la fonction et les variables en public, dans un module, puisque je l'utiliserai dans plusieurs UF.
Juste une question : c'est l'utilisateur qui décide ou non d'avoir du son. Cela donne une variable nommée ambiance.
J'ai donc remplacé:
"If Application.CanPlaySounds" par "if ambiance"
Cela fonctionne mais y a t-il un risque ou ma condition peut-elle remplacer sans problème celle que tu avais indiqué ?
Bon appétit
Jean
michel_m
Messages postés
16602
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 décembre 2023
3 313
23 nov. 2014 à 13:32
23 nov. 2014 à 13:32
Cela fonctionne mais y a t-il un risque
Je ne pense pas
dim ambiance as boolean
if ambiance then can.....
Je ne pense pas
dim ambiance as boolean
if ambiance then can.....