Logo GNT
Actualités Tests & Guides Bons Plans
Gemini 3 Shein GTA 6 iPhone 17 Switch 2 ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Musique

Musique

5 réponses
Avatar
Pascal
Bonsoir à tous
Je me pose une question.
Pour le fun, j'aimerais jouer un son à l'ouverture d'un fichier Excel.
Donc j'ai bien trouvé un truc approchant dans le pense Bête de Geedee, mais
cela ne marche pas.
Est-ce Kekun a une idée?

Merci
Pascal
Signaler un problème avec ce contenu

5 réponses

Supprimer
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
Avatar
gee-dee-
Bonsoir,
hélas la formule avec FONCTION.APPELANTE n'est plus reconnue par EXCEL
2000+
et comme je ne sais pas par quoi la remplacer ....

il reste VBA , comme ça :

Declare Function PlaySound Lib "winmm.dll"
Alias "PlaySoundA" (ByVal lpszName As String, ByVal
hModule As Long, ByVal dwFlags As Long) As Long

Sub MonBeep()
'KPD-Team 2000
'URL: http://www.allapi.net/
'E-Mail:
PlaySound "C:WINDOWSMEDIATADA.WAV", 0, 0
'----- le dernier parametre 0 ou 1 pour permettre l'interruption (1) ou pas
(0) par le son suivant
PlaySound "C:WINDOWSMEDIASon Utopia sortie de Windows.wav", 0, 1

End Sub

@+
Avatar
Pascal
Merci Gee-Dee
Mais cela marche toujours pas,
La ligne ALIAS....jusqu'à la fin s'inscrit automatiquement en rouge donc pb.
Tu vois ce que cela peut-être??
PAscal
"gee-dee-" a écrit dans le message de
news:%
Bonsoir,
hélas la formule avec FONCTION.APPELANTE n'est plus reconnue par EXCEL
2000+
et comme je ne sais pas par quoi la remplacer ....

il reste VBA , comme ça :

Declare Function PlaySound Lib "winmm.dll"
Alias "PlaySoundA" (ByVal lpszName As String, ByVal
hModule As Long, ByVal dwFlags As Long) As Long

Sub MonBeep()
'KPD-Team 2000
'URL: http://www.allapi.net/
'E-Mail:
PlaySound "C:WINDOWSMEDIATADA.WAV", 0, 0
'----- le dernier parametre 0 ou 1 pour permettre l'interruption (1) ou
pas

(0) par le son suivant
PlaySound "C:WINDOWSMEDIASon Utopia sortie de Windows.wav", 0, 1

End Sub

@+




Avatar
Clément Marcotte
Les 2 ou trois lignes de Declare à long n'en font qu'une.


"Pascal" a écrit dans le message de
news:
Merci Gee-Dee
Mais cela marche toujours pas,
La ligne ALIAS....jusqu'à la fin s'inscrit automatiquement en rouge
donc pb.

Tu vois ce que cela peut-être??
PAscal
"gee-dee-" a écrit dans le message de
news:%
Bonsoir,
hélas la formule avec FONCTION.APPELANTE n'est plus reconnue par
EXCEL


2000+
et comme je ne sais pas par quoi la remplacer ....

il reste VBA , comme ça :

Declare Function PlaySound Lib "winmm.dll"
Alias "PlaySoundA" (ByVal lpszName As String, ByVal
hModule As Long, ByVal dwFlags As Long) As Long

Sub MonBeep()
'KPD-Team 2000
'URL: http://www.allapi.net/
'E-Mail:
PlaySound "C:WINDOWSMEDIATADA.WAV", 0, 0
'----- le dernier parametre 0 ou 1 pour permettre l'interruption
(1) ou


pas
(0) par le son suivant
PlaySound "C:WINDOWSMEDIASon Utopia sortie de Windows.wav",
0, 1



End Sub

@+








Avatar
Frédéric Sigonneau
Bonsoir Modeste,

On peut toujours passer par une fonction perso créée dans une feuille macro
Excel 4 (reconnues par Excel 2000/2002, et sans doute 2003) pour utiliser
FONCTION.APPELANTE.
Extrait d'une réponse du 28 janvier dernier :

'=============début
Dans un classeur tu insères une feuille macro (clic droit sur l'onglet d'une
feuille, Insérer et choisis "Macro MS Excel 4.0" puis tape, par ex en A1 de
cette feuille (attention, la commande est sur une seule ligne) :

=RETOUR(FONCTION.APPELANTE("winmm.dll";"sndPlaySoundA";"JCJ!";"C:WindowsMediaLogoff.wav";))

Sélectionne A1 puis InsertionNomDéfinir, coche "Fonction" dans la zone "Macro"
et donne le nom "Son" (sans les guillemets). Enfin, dans une cellule d'une
feuille de calcul "ordinaire" du même classeur, tape
=Son()
'=============fin

FS
--
Frédéric Sigonneau [MVP Excel - né un sans-culottide]
Gestions de temps, VBA pour Excel :
http://perso.wanadoo.fr/frederic.sigonneau
Si votre question sur Excel est urgente, évitez ma bal !


Bonsoir,
hélas la formule avec FONCTION.APPELANTE n'est plus reconnue par EXCEL
2000+
et comme je ne sais pas par quoi la remplacer ....

il reste VBA , comme ça :

Declare Function PlaySound Lib "winmm.dll"
Alias "PlaySoundA" (ByVal lpszName As String, ByVal
hModule As Long, ByVal dwFlags As Long) As Long

Sub MonBeep()
'KPD-Team 2000
'URL: http://www.allapi.net/
'E-Mail:
PlaySound "C:WINDOWSMEDIATADA.WAV", 0, 0
'----- le dernier parametre 0 ou 1 pour permettre l'interruption (1) ou pas
(0) par le son suivant
PlaySound "C:WINDOWSMEDIASon Utopia sortie de Windows.wav", 0, 1

End Sub

@+


Avatar
isabelle
gros bisou Frédéric pour se rappel à l'ordre, car cette notion est
indispensable pour les fonctions perso.

isabelle


Bonsoir Modeste,

On peut toujours passer par une fonction perso créée dans une feuille macro
Excel 4 (reconnues par Excel 2000/2002, et sans doute 2003) pour utiliser
FONCTION.APPELANTE.
Extrait d'une réponse du 28 janvier dernier :

'=============début
Dans un classeur tu insères une feuille macro (clic droit sur l'onglet d'une
feuille, Insérer et choisis "Macro MS Excel 4.0" puis tape, par ex en A1 de
cette feuille (attention, la commande est sur une seule ligne) :

=RETOUR(FONCTION.APPELANTE("winmm.dll";"sndPlaySoundA";"JCJ!";"C:WindowsMediaLogoff.wav";))

Sélectionne A1 puis InsertionNomDéfinir, coche "Fonction" dans la zone "Macro"
et donne le nom "Son" (sans les guillemets). Enfin, dans une cellule d'une
feuille de calcul "ordinaire" du même classeur, tape
=Son()
'=============fin

FS
--
Frédéric Sigonneau [MVP Excel - né un sans-culottide]
Gestions de temps, VBA pour Excel :
http://perso.wanadoo.fr/frederic.sigonneau
Si votre question sur Excel est urgente, évitez ma bal !


Bonsoir,
hélas la formule avec FONCTION.APPELANTE n'est plus reconnue par EXCEL
2000+
et comme je ne sais pas par quoi la remplacer ....

il reste VBA , comme ça :

Declare Function PlaySound Lib "winmm.dll"
Alias "PlaySoundA" (ByVal lpszName As String, ByVal
hModule As Long, ByVal dwFlags As Long) As Long

Sub MonBeep()
'KPD-Team 2000
'URL: http://www.allapi.net/
'E-Mail:
PlaySound "C:WINDOWSMEDIATADA.WAV", 0, 0
'----- le dernier parametre 0 ou 1 pour permettre l'interruption (1) ou pas
(0) par le son suivant
PlaySound "C:WINDOWSMEDIASon Utopia sortie de Windows.wav", 0, 1

End Sub

@+