Bonsoir,
Je voudrais faire émettre un son windows dans un CommandButton lorsque l'on
clique dessus pour ouvrir un fichier ou autre, cela est-il réalisable ?
Merci pour vos réponses.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Youky
Copie cela dans un module standard Dans ton bouton tu n'as qu'a inscrire ..............myway Remplacer "tir" par le nom du fichier wav qui doit être présent dans le même répertoire que ton fichier Youky
Option Explicit Declare Function PlaySound Lib "Winmm" _ (ByVal pszsound As String, ByVal hmod As Long, _ ByVal fdwsound As Long) As Long Sub mywav() PlaySound ThisWorkbook.Path & "tir", 0, 1 End Sub
"Peponne31" a écrit dans le message de news:
Bonsoir, Je voudrais faire émettre un son windows dans un CommandButton lorsque l'on clique dessus pour ouvrir un fichier ou autre, cela est-il réalisable ? Merci pour vos réponses.
Copie cela dans un module standard
Dans ton bouton tu n'as qu'a inscrire ..............myway
Remplacer "tir" par le nom du fichier wav qui doit être présent dans le même
répertoire que ton fichier
Youky
Option Explicit
Declare Function PlaySound Lib "Winmm" _
(ByVal pszsound As String, ByVal hmod As Long, _
ByVal fdwsound As Long) As Long
Sub mywav()
PlaySound ThisWorkbook.Path & "tir", 0, 1
End Sub
"Peponne31" <Peponne31@discussions.microsoft.com> a écrit dans le message de
news: 48EE4037-03BD-409B-8D29-D86C53BCFAF9@microsoft.com...
Bonsoir,
Je voudrais faire émettre un son windows dans un CommandButton lorsque
l'on
clique dessus pour ouvrir un fichier ou autre, cela est-il réalisable ?
Merci pour vos réponses.
Copie cela dans un module standard Dans ton bouton tu n'as qu'a inscrire ..............myway Remplacer "tir" par le nom du fichier wav qui doit être présent dans le même répertoire que ton fichier Youky
Option Explicit Declare Function PlaySound Lib "Winmm" _ (ByVal pszsound As String, ByVal hmod As Long, _ ByVal fdwsound As Long) As Long Sub mywav() PlaySound ThisWorkbook.Path & "tir", 0, 1 End Sub
"Peponne31" a écrit dans le message de news:
Bonsoir, Je voudrais faire émettre un son windows dans un CommandButton lorsque l'on clique dessus pour ouvrir un fichier ou autre, cela est-il réalisable ? Merci pour vos réponses.
Peponne31
Bonjour "Youky", je te remercie pour ta réponse j'ai bien créer un module pour ta macro mais je ne sais comment l'intégrer dans mon bouton, voici mon bouton.'Bouton nouveau devis Private Sub NouveauDevis_Click() Sheets("Devis1page").Select ActiveWindow.WindowState = xlMaximized With ActiveWindow .DisplayHorizontalScrollBar = True .DisplayVerticalScrollBar = True
End With ActiveWindow.DisplayHeadings = False
End Sub Merci encore si tu peux m'aider.
Copie cela dans un module standard Dans ton bouton tu n'as qu'a inscrire ..............myway Remplacer "tir" par le nom du fichier wav qui doit être présent dans le même répertoire que ton fichier Youky
Option Explicit Declare Function PlaySound Lib "Winmm" _ (ByVal pszsound As String, ByVal hmod As Long, _ ByVal fdwsound As Long) As Long Sub mywav() PlaySound ThisWorkbook.Path & "tir", 0, 1 End Sub
"Peponne31" a écrit dans le message de news:
Bonsoir, Je voudrais faire émettre un son windows dans un CommandButton lorsque l'on clique dessus pour ouvrir un fichier ou autre, cela est-il réalisable ? Merci pour vos réponses.
Bonjour "Youky",
je te remercie pour ta réponse j'ai bien créer un module pour ta macro mais
je ne sais comment l'intégrer dans mon bouton, voici mon bouton.'Bouton
nouveau devis
Private Sub NouveauDevis_Click()
Sheets("Devis1page").Select
ActiveWindow.WindowState = xlMaximized
With ActiveWindow
.DisplayHorizontalScrollBar = True
.DisplayVerticalScrollBar = True
End With
ActiveWindow.DisplayHeadings = False
End Sub
Merci encore si tu peux m'aider.
Copie cela dans un module standard
Dans ton bouton tu n'as qu'a inscrire ..............myway
Remplacer "tir" par le nom du fichier wav qui doit être présent dans le même
répertoire que ton fichier
Youky
Option Explicit
Declare Function PlaySound Lib "Winmm" _
(ByVal pszsound As String, ByVal hmod As Long, _
ByVal fdwsound As Long) As Long
Sub mywav()
PlaySound ThisWorkbook.Path & "tir", 0, 1
End Sub
"Peponne31" <Peponne31@discussions.microsoft.com> a écrit dans le message de
news: 48EE4037-03BD-409B-8D29-D86C53BCFAF9@microsoft.com...
Bonsoir,
Je voudrais faire émettre un son windows dans un CommandButton lorsque
l'on
clique dessus pour ouvrir un fichier ou autre, cela est-il réalisable ?
Merci pour vos réponses.
Bonjour "Youky", je te remercie pour ta réponse j'ai bien créer un module pour ta macro mais je ne sais comment l'intégrer dans mon bouton, voici mon bouton.'Bouton nouveau devis Private Sub NouveauDevis_Click() Sheets("Devis1page").Select ActiveWindow.WindowState = xlMaximized With ActiveWindow .DisplayHorizontalScrollBar = True .DisplayVerticalScrollBar = True
End With ActiveWindow.DisplayHeadings = False
End Sub Merci encore si tu peux m'aider.
Copie cela dans un module standard Dans ton bouton tu n'as qu'a inscrire ..............myway Remplacer "tir" par le nom du fichier wav qui doit être présent dans le même répertoire que ton fichier Youky
Option Explicit Declare Function PlaySound Lib "Winmm" _ (ByVal pszsound As String, ByVal hmod As Long, _ ByVal fdwsound As Long) As Long Sub mywav() PlaySound ThisWorkbook.Path & "tir", 0, 1 End Sub
"Peponne31" a écrit dans le message de news:
Bonsoir, Je voudrais faire émettre un son windows dans un CommandButton lorsque l'on clique dessus pour ouvrir un fichier ou autre, cela est-il réalisable ? Merci pour vos réponses.
Youky
Private Sub NouveauDevis_Click() Sheets("Devis1page").Select ActiveWindow.WindowState = xlMaximized With ActiveWindow .DisplayHorizontalScrollBar = True .DisplayVerticalScrollBar = True
End With ActiveWindow.DisplayHeadings = False mywav ' ceci exécute cette macro qui est dans ton module End Sub
(voir l'avant derniere ligne en macro) Ne pas oublier de mettre ton fichier son "wav" dans le mm répertoire et rectifie "tir" dans la macro "mywav" en fonction du nom de ton fichier .wav Youky
Private Sub NouveauDevis_Click()
Sheets("Devis1page").Select
ActiveWindow.WindowState = xlMaximized
With ActiveWindow
.DisplayHorizontalScrollBar = True
.DisplayVerticalScrollBar = True
End With
ActiveWindow.DisplayHeadings = False
mywav ' ceci exécute cette macro qui est dans ton module
End Sub
(voir l'avant derniere ligne en macro)
Ne pas oublier de mettre ton fichier son "wav" dans le mm répertoire
et rectifie "tir" dans la macro "mywav" en fonction du nom de ton fichier
.wav
Youky
Private Sub NouveauDevis_Click() Sheets("Devis1page").Select ActiveWindow.WindowState = xlMaximized With ActiveWindow .DisplayHorizontalScrollBar = True .DisplayVerticalScrollBar = True
End With ActiveWindow.DisplayHeadings = False mywav ' ceci exécute cette macro qui est dans ton module End Sub
(voir l'avant derniere ligne en macro) Ne pas oublier de mettre ton fichier son "wav" dans le mm répertoire et rectifie "tir" dans la macro "mywav" en fonction du nom de ton fichier .wav Youky
Peponne31
Merci Youky, j'ai bien enregistré ta macro mais je n'ai que le son du buzer, pourtant le fichier son est dans le mème répertoire que le programe que j'ai créer merci tout de mème je vais re essayer.
Private Sub NouveauDevis_Click() Sheets("Devis1page").Select ActiveWindow.WindowState = xlMaximized With ActiveWindow .DisplayHorizontalScrollBar = True .DisplayVerticalScrollBar = True
End With ActiveWindow.DisplayHeadings = False mywav ' ceci exécute cette macro qui est dans ton module End Sub
(voir l'avant derniere ligne en macro) Ne pas oublier de mettre ton fichier son "wav" dans le mm répertoire et rectifie "tir" dans la macro "mywav" en fonction du nom de ton fichier ..wav Youky
Merci Youky, j'ai bien enregistré ta macro mais je n'ai que le son du buzer,
pourtant le fichier son est dans le mème répertoire que le programe que j'ai
créer merci tout de mème je vais re essayer.
Private Sub NouveauDevis_Click()
Sheets("Devis1page").Select
ActiveWindow.WindowState = xlMaximized
With ActiveWindow
.DisplayHorizontalScrollBar = True
.DisplayVerticalScrollBar = True
End With
ActiveWindow.DisplayHeadings = False
mywav ' ceci exécute cette macro qui est dans ton module
End Sub
(voir l'avant derniere ligne en macro)
Ne pas oublier de mettre ton fichier son "wav" dans le mm répertoire
et rectifie "tir" dans la macro "mywav" en fonction du nom de ton fichier
..wav
Youky
Merci Youky, j'ai bien enregistré ta macro mais je n'ai que le son du buzer, pourtant le fichier son est dans le mème répertoire que le programe que j'ai créer merci tout de mème je vais re essayer.
Private Sub NouveauDevis_Click() Sheets("Devis1page").Select ActiveWindow.WindowState = xlMaximized With ActiveWindow .DisplayHorizontalScrollBar = True .DisplayVerticalScrollBar = True
End With ActiveWindow.DisplayHeadings = False mywav ' ceci exécute cette macro qui est dans ton module End Sub
(voir l'avant derniere ligne en macro) Ne pas oublier de mettre ton fichier son "wav" dans le mm répertoire et rectifie "tir" dans la macro "mywav" en fonction du nom de ton fichier ..wav Youky
Youky
Dans mon exemple le fichier son a pour nom "tir" donc bien rectifier "tir" par "leNomDuFichierSon" PlaySound ThisWorkbook.Path & "tir", 0, 1 Youky
Dans mon exemple le fichier son a pour nom "tir"
donc bien rectifier "tir" par "leNomDuFichierSon"
PlaySound ThisWorkbook.Path & "tir", 0, 1
Youky
