Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Word Pb de son

Pb de son

7 réponses
Avatar
jpa
Bonjour
Peut-on inclure un fichier son dans un dossier word (ou=20
excel) de telle fa=E7on que ce fichier son d=E9marre=20
automatiquement =E0 l'ouverture du fichier word, un peu=20
comme dans powerpoint (l=E0, je sais faire)
Merci de vos r=E9ponses et =E0 bient=F4t
jpa
Signaler un problème avec ce contenu

7 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
JièL Goubert
Bonjoir(c) jpa

Le 14/04/2004 10:10 vous nous disiez ceci :
Bonjour
Peut-on inclure un fichier son dans un dossier word (ou
excel) de telle façon que ce fichier son démarre
automatiquement à l'ouverture du fichier word, un peu
comme dans powerpoint (là, je sais faire)


Je ne sais pas faire ce que tu demandes, (et je vois mal comment un
traitement de texte voire un tableur pourrait le faire...) mais
j'aimerais bien savoir dans quel but tu veux faire faire ça a Word ou a
Excel alors que PPT y arrive trés bien ?

Ceci dit, il est surement possible d'inclure la lecture d'un fichier son
via une macro, mais ça me semble vraiment superfétatoire

Merci de vos réponses et à bientôt


--
JièL / Jean-Louis GOUBERT
La FAQ Outlook est la : http://faq.outlook.free.fr
Celle d'Outlook Express ici : www.faqOE.com

Avatar
papou
Bonjour
Bien qu'étant d'accord avec Jiel :
Voici un exemple de lecture d'un fichier son (WAV) à l'ouverture d'Excel
(modifier les chemins d'accès et noms de fichier)
Dans le code de ThisWorkBook :
Private Sub Workbook_Open()
PlayWavFile "D:Mes DocumentsPascalSonsToonskikidi2.wav"
End Sub
Dans un modile standard :
Public Declare Function sndPlaySound Lib "winmm.dll" _
Alias "sndPlaySoundA" (ByVal ipszsoundname As String, ByVal uflags As Long)
As Long
Sub PlayWavFile(WavFileName As String)
If Dir(WavFileName) = "" Then Exit Sub
sndPlaySound WavFileName, 0
End Sub

Cordialement
Pascal

"JièL Goubert" a écrit dans le
message de news:
Bonjoir(c) jpa

Le 14/04/2004 10:10 vous nous disiez ceci :
Bonjour
Peut-on inclure un fichier son dans un dossier word (ou
excel) de telle façon que ce fichier son démarre
automatiquement à l'ouverture du fichier word, un peu
comme dans powerpoint (là, je sais faire)


Je ne sais pas faire ce que tu demandes, (et je vois mal comment un
traitement de texte voire un tableur pourrait le faire...) mais
j'aimerais bien savoir dans quel but tu veux faire faire ça a Word ou a
Excel alors que PPT y arrive trés bien ?

Ceci dit, il est surement possible d'inclure la lecture d'un fichier son
via une macro, mais ça me semble vraiment superfétatoire

Merci de vos réponses et à bientôt


--
JièL / Jean-Louis GOUBERT
La FAQ Outlook est la : http://faq.outlook.free.fr
Celle d'Outlook Express ici : www.faqOE.com



Avatar
Clément Marcotte
Bonjour,

Peut-on inclure un fichier son dans un dossier word (ou
excel) de telle façon que ce fichier son démarre
automatiquement à l'ouverture du fichier word, un peu
comme dans powerpoint (là, je sais faire)


Je ne sais pas faire ce que tu demandes, (et je vois mal comment un
traitement de texte voire un tableur pourrait le faire...) mais
j'aimerais bien savoir dans quel but tu veux faire faire ça a Word
ou a

Excel alors que PPT y arrive trés bien ?


Imagine un patron zélé qui veut savoir quand son employé travaille sur
un fichier particulier. Évidemment, si l'employé est moindrement
débrouillard, il peut réduire les haut-parleurs au silence.


Avatar
Bonsoir à tous,
Ca me rappelle une option de W95 ou 98 qui permettait à chaque frappe du clavier d'avoir un cliquetis rappellant une machine à
écrire, de la nostalgie ?
En cherchant un peu on doit pouvoir associé un son à sa jet d'encre pour qu'elle fasse le bruit d'une vieille matricielle, il
manquerait plus qu'on ralentisse exprès l'impression pour synchroniser...
Merci d'avoir lu jusque là.

On n'arrête pas le progrès dit-on. La bêtise non plus
Yves Courrière

Clément Marcotte wrote:
Bonjour,

Peut-on inclure un fichier son dans un dossier word (ou
excel) de telle façon que ce fichier son démarre
automatiquement à l'ouverture du fichier word, un peu
comme dans powerpoint (là, je sais faire)


Je ne sais pas faire ce que tu demandes, (et je vois mal comment un
traitement de texte voire un tableur pourrait le faire...) mais
j'aimerais bien savoir dans quel but tu veux faire faire ça a Word
ou a Excel alors que PPT y arrive trés bien ?


Imagine un patron zélé qui veut savoir quand son employé travaille sur
un fichier particulier. Évidemment, si l'employé est moindrement
débrouillard, il peut réduire les haut-parleurs au silence.




Avatar
gee-dee-
Bonsoir Jean-louis !!!
la balise HS c'est uniquement pour l'alerte ;-)))
la réponse elle !!! correspond au sujet ;-)))

"JièL Goubert" a écrit >
Je ne sais pas faire ce que tu demandes, (et je vois mal comment un
traitement de texte voire un tableur pourrait le faire...)


Mon ami Siesting Hoax "le facteur marseillais" et moi-meme sont au regret de
te démentir !!!

Super fete à Thouars tu disais ...!!!
non....????? ;-)))

ci-dessous :
pour word (sauvegarder avant éxécution ;-))
code à ajouter dans VBA via auto-open appeler la macro "samba"
ou associer la macro "samba" à un bouton :
dans excel (des exemples de cette utilisation sont déja dans
http://excelabo.net)
ajouter l'ensemble dans un module
activer la macro "samba" directement ou par un bouton

'---------------------------------------------------
Private Type MIDIOUTCAPS
wMid As Integer
wPid As Integer
vDriverVersion As Long
szPname As String * 32
wTechnology As Integer
wVoices As Integer
wNotes As Integer
wChannelMask As Integer
dwSupport As Long
End Type
Private Declare Function midiOutGetDevCaps Lib _
"winmm.dll" Alias "midiOutGetDevCapsA" (ByVal uDeviceID _
As Long, lpCaps As MIDIOUTCAPS, ByVal uSize As Long) As Long
Private Declare Function midiOutGetNumDevs Lib "winmm" () As Integer

Private Declare Function MidiOutClose Lib "winmm.dll" _
Alias "midiOutClose" (ByVal hMidiOut As Long) As Long
'-------------------------------
Private Declare Function MidiOutOpen Lib "winmm.dll" _
Alias "midiOutOpen" (lphMidiOut As _
Long, ByVal uDeviceID As _
Long, ByVal dwCallback As _
Long, ByVal dwInstance As _
Long, ByVal dwFlags As Long) As Long
'-------------------------------
Private Declare Function MidiOutShortMsg Lib "winmm.dll" _
Alias "midiOutShortMsg" (ByVal hMidiOut As _
Long, ByVal dwMsg As Long) As Long
'---------------------------------------------------
Declare Sub Sleep Lib "Kernel32" (ByVal dwMilliseconds As Long)
Dim hMidiOut As Long
Public lanote As Integer

Sub samba()
'
batterie = Array(48, 47, 56, 55)
'------ sans garantie aucune !!! ;-)))
Application.EnableCancelKey = xlErrorHandler
On Error GoTo fin
For i = 1 To 250
Randomize
x = batterie(Int(Rnd * 4))
MidiOutClose hMidiOut
MidiOutOpen hMidiOut, 0, 1, 2, 0
xxx = CInt(x)
For z = 1 To 15
On Error GoTo fin
Randomize
MidiOutShortMsg hMidiOut, RGB(153, xxx, 127)
Sleep (Rnd * 150 + 70)
Next
doevents
Sleep (150)
For z = 1 To 10
For u = 1 To 5
Randomize
x = batterie(Int(Rnd * 4))
xxx = CInt(x)
MidiOutShortMsg hMidiOut, RGB(153, xxx, 127)
MidiOutShortMsg hMidiOut, RGB(153, xxx + 1, 127)
MidiOutShortMsg hMidiOut, RGB(153, xxx + 30, 127)
MidiOutShortMsg hMidiOut, RGB(153, xxx + 6, 127)
Sleep (100)
doevents
Next u
Randomize
x = batterie(Int(Rnd * 4))
xxx = CInt(x)
MidiOutShortMsg hMidiOut, RGB(153, xxx, 127)
MidiOutShortMsg hMidiOut, RGB(153, xxx + 1, 127)
MidiOutShortMsg hMidiOut, RGB(153, xxx + 20, 127)
MidiOutShortMsg hMidiOut, RGB(153, xxx + 6, 127)
Sleep (Rnd * 200)
Next z
For z = 1 To 10
Randomize
x = batterie(Int(Rnd * 4))
xxx = CInt(x)
MidiOutShortMsg hMidiOut, RGB(153, xxx, 127)
MidiOutShortMsg hMidiOut, RGB(153, xxx + 1, 127)
MidiOutShortMsg hMidiOut, RGB(153, xxx + 15, 127)
MidiOutShortMsg hMidiOut, RGB(153, xxx + 6, 127)
doevents
Sleep (100)
Next z
Next i
fin:
MidiOutClose hMidiOut
End Sub
'=====================

Avatar
JièL Goubert
Bonjoir(c) gee-dee-

MDR ;-))))))))))))
Je me doutais bien que quelques MECHANTS viendraient défendre leur
macrotage ;-)))))))))

Heu... au fait, tu as une méthode pour éviter le CTRL+ALT+Suppr pour
débloquer Word aprés le lancement de ceci ;-)))))))))))))))

(*) MECHANTS
Macroteurs
Espérants
Cacher (leur)
Humiliation (en)
Avilissant
Nos
Trucs
Surprenants

--
JièL Gentil AMIS ;-)))


Le 14/04/2004 23:25 vous nous disiez ceci :
Bonsoir Jean-louis !!!
la balise HS c'est uniquement pour l'alerte ;-)))
la réponse elle !!! correspond au sujet ;-)))

"JièL Goubert" a écrit >

Je ne sais pas faire ce que tu demandes, (et je vois mal comment un
traitement de texte voire un tableur pourrait le faire...)



Mon ami Siesting Hoax "le facteur marseillais" et moi-meme sont au regret de
te démentir !!!

Super fete à Thouars tu disais ...!!!
non....????? ;-)))

ci-dessous :
pour word (sauvegarder avant éxécution ;-))
code à ajouter dans VBA via auto-open appeler la macro "samba"
ou associer la macro "samba" à un bouton :
dans excel (des exemples de cette utilisation sont déja dans
http://excelabo.net)
ajouter l'ensemble dans un module
activer la macro "samba" directement ou par un bouton

'---------------------------------------------------
Private Type MIDIOUTCAPS
wMid As Integer
wPid As Integer
vDriverVersion As Long
szPname As String * 32
wTechnology As Integer
wVoices As Integer
wNotes As Integer
wChannelMask As Integer
dwSupport As Long
End Type
Private Declare Function midiOutGetDevCaps Lib _
"winmm.dll" Alias "midiOutGetDevCapsA" (ByVal uDeviceID _
As Long, lpCaps As MIDIOUTCAPS, ByVal uSize As Long) As Long
Private Declare Function midiOutGetNumDevs Lib "winmm" () As Integer

Private Declare Function MidiOutClose Lib "winmm.dll" _
Alias "midiOutClose" (ByVal hMidiOut As Long) As Long
'-------------------------------
Private Declare Function MidiOutOpen Lib "winmm.dll" _
Alias "midiOutOpen" (lphMidiOut As _
Long, ByVal uDeviceID As _
Long, ByVal dwCallback As _
Long, ByVal dwInstance As _
Long, ByVal dwFlags As Long) As Long
'-------------------------------
Private Declare Function MidiOutShortMsg Lib "winmm.dll" _
Alias "midiOutShortMsg" (ByVal hMidiOut As _
Long, ByVal dwMsg As Long) As Long
'---------------------------------------------------
Declare Sub Sleep Lib "Kernel32" (ByVal dwMilliseconds As Long)
Dim hMidiOut As Long
Public lanote As Integer

Sub samba()
'
batterie = Array(48, 47, 56, 55)
'------ sans garantie aucune !!! ;-)))
Application.EnableCancelKey = xlErrorHandler
On Error GoTo fin
For i = 1 To 250
Randomize
x = batterie(Int(Rnd * 4))
MidiOutClose hMidiOut
MidiOutOpen hMidiOut, 0, 1, 2, 0
xxx = CInt(x)
For z = 1 To 15
On Error GoTo fin
Randomize
MidiOutShortMsg hMidiOut, RGB(153, xxx, 127)
Sleep (Rnd * 150 + 70)
Next
doevents
Sleep (150)
For z = 1 To 10
For u = 1 To 5
Randomize
x = batterie(Int(Rnd * 4))
xxx = CInt(x)
MidiOutShortMsg hMidiOut, RGB(153, xxx, 127)
MidiOutShortMsg hMidiOut, RGB(153, xxx + 1, 127)
MidiOutShortMsg hMidiOut, RGB(153, xxx + 30, 127)
MidiOutShortMsg hMidiOut, RGB(153, xxx + 6, 127)
Sleep (100)
doevents
Next u
Randomize
x = batterie(Int(Rnd * 4))
xxx = CInt(x)
MidiOutShortMsg hMidiOut, RGB(153, xxx, 127)
MidiOutShortMsg hMidiOut, RGB(153, xxx + 1, 127)
MidiOutShortMsg hMidiOut, RGB(153, xxx + 20, 127)
MidiOutShortMsg hMidiOut, RGB(153, xxx + 6, 127)
Sleep (Rnd * 200)
Next z
For z = 1 To 10
Randomize
x = batterie(Int(Rnd * 4))
xxx = CInt(x)
MidiOutShortMsg hMidiOut, RGB(153, xxx, 127)
MidiOutShortMsg hMidiOut, RGB(153, xxx + 1, 127)
MidiOutShortMsg hMidiOut, RGB(153, xxx + 15, 127)
MidiOutShortMsg hMidiOut, RGB(153, xxx + 6, 127)
doevents
Sleep (100)
Next z
Next i
fin:
MidiOutClose hMidiOut
End Sub
'==================== >





Avatar
geo
Bonjour

j'aimerais bien savoir dans quel but tu veux faire faire
ça a Word ?


Pour compléter les consignes en cas d'incendie,
on met le son du signal d'alarme pour que les gens le
reconnaissent bien.

;-)

A+