Pb de son

Le
jpa
Bonjour
Peut-on inclure un fichier son dans un dossier word (ou
excel) de telle faon que ce fichier son dmarre
automatiquement l'ouverture du fichier word, un peu
comme dans powerpoint (l, je sais faire)
Merci de vos rponses et bientt
jpa
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
JièL Goubert
Le #895398
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

papou
Le #895395
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" 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



Clément Marcotte
Le #897260
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.


Le #897096
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.




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

"JièL Goubert"
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
'=====================

JièL Goubert
Le #896941
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"
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
'==================== >





geo
Le #899369
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+

Publicité
Poster une réponse
Anonyme