Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Son.wav en sortie

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion guy72
  • 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 !

S'inscrire

guy72

XLDnaute Impliqué
Bonjour,
Est-il possible de mettre un "son.wav" quand on quitte le Formulaire avec la "croix" ?
PS : pas avec un bouton.
Cordialement
Guy
 
Trier par date Trier par votes
Re : Son.wav en sortie

Bonjour,

Il te faut sans doute combiner la fonction sndPlaySound32
et la fermeture de la UserForm ...

A tester ...


Code: 
Option Explicit 

Declare Function sndPlaySound32 Lib "winmm.dll" _ 
Alias "sndPlaySoundA" (ByVal lpszSoundName _ 
As String, ByVal uFlags As Long) As Long 

Private Sub UserForm_QueryClose _ 
  (Cancel As Integer, CloseMode As Integer) 
Call sndPlaySound32("C:\WINNT\Media\ringin.wav", 1)
End Sub

A +
 
Vote positif 0 Vote négatif
Re : Son.wav en sortie

Bonjour,
Dans le module du formulaire
Code: 
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode = 0 Then PlayPanPanCuCu
End Sub
Et dans un module standard
Code: 
Private Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" (ByVal lpszName As String, _
ByVal hModule As Long, ByVal dwFlags As Long) As Long

Sub PlayPanPanCuCu()
[COLOR="Red"]PlaySound "C:\...\ ...\PanPanCuCu.wav", &O0, 0[/COLOR]
End Sub
A+
kjin
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Son.wav en sortie

Bonjour à tous,
J'ai beau essayer, je n'ai aucun son avec la croix.

Erreur, ça fonctionne avec :

Private Sub UserForm_Terminate()
Ma macro
End Sub

Cordialement
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Son.wav en sortie

Excelent le Panpancucu
chez moi ça ne fonctionne pas non plus!
MDR😀
A+
par contre comme ceci oui
Code: 
Private Sub UserForm_Terminate()
Application.Speech.Speak "Pan pan cu cu "
End Sub
 
Vote positif 0 Vote négatif
Re : Son.wav en sortie

kjin à dit:
Re,
Je te signale quand même que je n'ai aucun fichier nommé PanPanCuCu sur mon disque non plus...sait-on jamais
A+
kjin
Cliquez pour agrandir...

Non bien sur moi non plus, j'ai remplacer ce qu'il falait.
Mais finalement avec : Private Sub UserForm_Terminate()
ça fonctionne très bien.
Merci quand même de m'avoir répondu.
Cordialement
 
Vote positif 0 Vote négatif
Re : Son.wav en sortie


bonjour à tous,
Guy ,
le code de James marche....il y'a juste une erreur dans le code de l'usf

il faut remplacer Call sndPlaySound32("C:\WINNT\Media\ringin.wav", 1)
par celui-ci :
Call sndPlaySound32("C:\WINDOWS\Media\ringin.wav", 1)

a mettre dans un module:
Declare Function sndPlaySound32 Lib "winmm.dll" _
Alias "sndPlaySoundA" (ByVal lpszSoundName _
As String, ByVal uFlags As Long) As Long

voilou...

bonne journée

limat
 
Vote positif 0 Vote négatif
Re : Son.wav en sortie


J'avais déjà remplacer, mais pas de changement.
Guy
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- 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ésolu(e)
Microsoft 365 Usf, contrôle 'Image' : transformer mon pointeur "Flèche" en "Main" ?
Réponses
6
Affichages
211
Dranreb
F
  • Question Question
XL 2021 problème pou une macro ou une formule pour mon fichier
Réponses
2
Affichages
118
fab5152
F
C
  • Résolu(e)
XL 2021 Impression d'un tableau en pdf
2
Réponses
18
Affichages
230
Phil69970
M
  • Question Question
Microsoft 365 automatiser un bouton "efface cellule"
Réponses
5
Affichages
134
matlatarte
M
M
  • Résolu(e)
Microsoft 365 Bouton d'actualisation
2
Réponses
15
Affichages
401
Melio_051651
M
W
  • Question Question
XL 2010 Écrire une formule d'alerte en fonction des dates entrée et sortie
Réponses
5
Affichages
169
walter ebelle
W
  • Question Question
XL 2021 Affichage document (Word ou PDF) dans un formulaire depuis un bouton.
2
Réponses
19
Affichages
268
jeff1494
  • Question Question
XL 2016 graph avec 2 tcd
Réponses
5
Affichages
116
Hecatonchire
H
K
  • Question Question
Microsoft 365 Exercice compte en banque
Réponses
10
Affichages
349
klemasson
K
C
  • Résolu(e)
XL 2019 Evénement MouseMove sur formulaire
Réponses
13
Affichages
684
ceralpes
C
M
  • Question Question
XL 2021 Fichier de suivi avec liens et formules
Réponses
4
Affichages
254
Mily74
M
  • Question Question
Microsoft 365 Saisie par userform ne fonctionne pas
Réponses
10
Affichages
165
jcf6464
J
  • Question Question
XL 2021 bulletin de paie 2025
Réponses
2
Affichages
541
albTrith
A
  • Résolu(e)
Microsoft 365 Zoom sur image
Réponses
3
Affichages
174
Electron24
N
  • Question Question
XL 2016 Afficher un "X" dans un tableau semaine en fonction d'un récurrence Horaire
Réponses
2
Affichages
287
nicobush
N
D
  • Question Question
XL 2021 Boucle sur deux feuilles
Réponses
11
Affichages
174
dadaze
D
C
  • Question Question
XL 2021 Case a cocher
2
Réponses
15
Affichages
265
clausen
C
A
  • Résolu(e)
XL 2021 formulaire de saisie
2
Réponses
23
Affichages
329
aquila70
A
J
  • Question Question
Microsoft 365 alimentation tableau par listview
Réponses
2
Affichages
410
JES_B
J
  • Question Question
XL 2019 formule excel
Réponses
10
Affichages
228
job75
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…