[Résolu] [Calc] Jouer un son (wav, mp3) directement

Discussions et questions sur tout ce qui concerne la programmation tous langages et tous modules confondus.

Modérateur : Vilains modOOs

Règles du forum
:alerte: Balisage obligatoire dans cette section !
Aidez-nous à vous aider au mieux en balisant correctement votre question : reportez-vous sur les règles de cette section avant de poster !
ThierryM
Membre enthOOusiaste
Membre enthOOusiaste
Messages : 437
Inscription : 26 nov. 2006 12:29
Localisation : Les Corbières
Contact :

[Résolu] [Calc] Jouer un son (wav, mp3) directement

Message par ThierryM »

Bonjour,
Suite à la création d'une macro permettant de déclencher une alarme dans calc à une heure donnée (Voir ce fil : http://user.services.openoffice.org/fr/ ... c3334.html ), comment pourrait-on jouer un son lancé par une macro à partir de calc ?

Il y a la possibilité de lancer un fichier son (wav ou mp3) via une application externe (voir proposition de Michel : http://user.services.openoffice.org/fr/ ... ml+fichier ) mais ne serait-il pas possible de le faire comme dans OOo Impress ?
Pour ceux intéressés, j'ai trouvé ce lien sur un site proposant différents tutoriels dans l'utilisation d'Impress (et de PowerPoint aussi...) http://domisweb.free.fr/tutorielppt/php ... sonimp.php

A bientôt,
Dernière modification par ThierryM le 17 janv. 2007 15:09, modifié 1 fois.
LibreOffice Version: 7.6.2 / Linux Mint Mate Edition 21.2 / Pourquoi privilégier les formats de fichiers ouverts ?
Avatar de l’utilisateur
Dude
IdOOle de la suite
IdOOle de la suite
Messages : 25144
Inscription : 03 mars 2006 08:45
Localisation : 127.0.0.1
Contact :

Message par Dude »

Tu peux faire appel à l'API Windows comme ceci :

Code : Tout sélectionner

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

Const SND_FILENAME As Long = &H20000
Const SND_ASYNC As Long = &H1
Const HMODULE As Long = &H0

Sub JoueSon
	Dim ret&
	FicWav = "C:\temp\test.wav"
	ret& = PlaySound(FicWav, HMODULE, SND_FILENAME or SND_ASYNC)
End Sub
Bien sûr ce code n'est pas portable sous Linux ou MacOS.
Poser une question, c'est bien. Répondre aux autres, c'est encore mieux.
Améliorez AOO et votez pour les issues
ThierryM
Membre enthOOusiaste
Membre enthOOusiaste
Messages : 437
Inscription : 26 nov. 2006 12:29
Localisation : Les Corbières
Contact :

Message par ThierryM »

Merci Dude, :P
C'est exactement ce que je voulais !!! Ca marche très bien. J'ai juste déclaré la variable "FicWav" dans la routine JoueSon.

Je me permets de reproduire ta macro avec cet ajout :

Code : Tout sélectionner

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

Const SND_FILENAME As Long = &H20000
Const SND_ASYNC As Long = &H1
Const HMODULE As Long = &H0

Sub JoueSon
   Dim ret&, FicWav
   FicWav = "C:\test.wav" 'Fichier wave à la racine de c:
   ret& = PlaySound(FicWav, HMODULE, SND_FILENAME or SND_ASYNC)
End Sub
A bientôt
LibreOffice Version: 7.6.2 / Linux Mint Mate Edition 21.2 / Pourquoi privilégier les formats de fichiers ouverts ?
Charrière
Membre OOrganisé
Membre OOrganisé
Messages : 60
Inscription : 25 févr. 2007 11:52

Message par Charrière »

Bonjour,
J'ai testé cette macro pour ouvrir un son (son.wav) à l'ouverture d'une présentation impress.
Cela fonctionne (J'ai ajouté: ThisComponent.Presentation.Start
pour lancer le diaporama automatiquement.)

Comment l'améliorer pour que le son s'arrête quand le diaporama est fini.

Quelle autre idée pour avoir un son en continu tout au long du diaporama.

Merci beaucoup.
Le modérateur a écrit :Bonjour,

Nous nous devons de verrouiller ce fil de discussion.

Comme vous avez pu le lire, ce sujet est désormais résolu. Si vous avez également ce problème, c'est que ce dernier est différent. Votre configuration n'est peut être pas la même que celle de l'auteur de ce fil.

Dans ce cas et pour des raisons de lisibilité sur ce forum, nous vous demandons de créer une nouvelle question en rappelant que vous avez le même problème que dans ce fil.

Merci de votre collaboration.
LO 4.4.5.2 windows 7
Verrouillé