Musique de fond dans Word

Bonjour

Malgré mes recherches sur les forums, je n'ai pas trouvé de réponse à ma question. Je voudrais mettre une musique de fond dans un document Word. J'ai vu comment mettre une icône mais je voudrais effacer les infos concernant l'emplacement sur le disque dur. Il ne me resterait alors qu'à cliquer pour lancer la musique. Mieux encore : j'ai cru comprendre qu'on pouvait créer une macro qui lancerait la musique à l'ouverture du document Word.
Merci aux spécialistes du sujet.

Pour ajouter un fond sonore à un document Word, cliquez sur "Insertion" puis sur "Objet". Cliquez sur "Parcourir" ou sur "Créer à partir du fichier" (selon les versions de Word). Sélectionnez votre musique. Cochez les cases "Lier au fichier" et "Afficher sous forme d'icônes".

Voici aussi une macro qui vous permettra de jouer un fichier:

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

Const SND_SYNC = &H0
Const SND_ASYNC = &H1
Const SND_FILENAME = &H20000
Const MAMUSIQUE = "C:\WINDOWS\MEDIA\CHORD.WAV"

Private Sub Document_Open()
Call PlaySound(MAMUSIQUE, 0&, SND_ASYNC Or SND_FILENAME)
End Sub

Il suffit ensuite de modifier la constante MAMUSIQUE pour lui indiquer l'emplacement de votre fichier de musique.

Bonjour

Merci pour votre réponse.
J'ai ouvert le document Word, cliqué sur Macro, nouvelle macro que j'aintitulée SonForum et fait un copier-coller de la formule que vous m'avez fournie.J'obtiens le résultat suivant :

Sub SonForum()
'
' SonForum Macro
' Macro créée le 28/09/2009 par JP
'
Private Declare Function PlaySound Lib "winmm.dll" _
Alias "PlaySoundA" (ByVal lpszName As String, _
ByVal hModule As Long, ByVal dwFlags As Long) As Long
Const SND_SYNC = &H0
Const SND_ASYNC = &H1
Const SND_FILENAME = &H20000
Const MAMUSIQUE = "C:\Documents and Settings\Papy\Mes documents\PERSO\Poèmes\Akon Beautiful.mp3"
Private Sub Document_Open()
Call PlaySound(MAMUSIQUE, 0&, SND_ASYNC Or SND_FILENAME)
End Sub

End Sub

Lorsque je lance l'éxécution, j'obtiens un message d'erreur:
Erreur de compilation : seuls des commentaires peuvent apparaître après End Sub, End Function, ou End Property.

D'où provient cette erreur ?

Merci

PS :

Je précise que la zone surlignée en erreur est celle qui va de Private Declare à As Long

A+

Bonjour

Private Declare Function PlaySound Lib "winmm.dll" _
Alias "PlaySoundA" (ByVal lpszName As String, _
ByVal hModule As Long, ByVal dwFlags As Long) As Long
Const SND_SYNC = &H0
Const SND_ASYNC = &H1
Const SND_FILENAME = &H20000
Const MAMUSIQUE = "C:\Documents and Settings\Papy\Mes documents\PERSO\Poèmes\Akon Beautiful.mp3"
end Function

Private Sub Document_Open()
Call PlaySound(MAMUSIQUE, 0&, SND_ASYNC Or SND_FILENAME)
End Sub

Remarque 1/ cette air ne sera joué qu'une fois et non en boucle
remarque 2/ cette macro est connue depuis longtemps... origine française (excel): Alain Vallon, MPFE d'après MPEP (USA)...

Merci Michel

C'est à peu près la même formule que celle de Docteur Micro et j'ai la même erreur quand je lance l'éxécution.Peut être sauras tu me dire pourquoi, sachant que je n'ai fait qu'un copier-coller de ta macro.

Merci

bonjour à tous,

peut-être qu'il faut supprimer l'espace entre Akon et beautiful.mp3

remplacer : Akon Beautiful.mp3
par Akon_Beautiful.mp3

si Akon est un dossier alors il manque l'anti-slash
Akon\Beautiful.mp3


voir ce lien:
http://www.pcastuces.com/pratique/astuces/2158.htm

Bonjour,

Je planais, s'cusez-moi...

Private Declare Function PlaySound32 Lib "winmm.dll" Alias "PlaySoundA" (ByVal IpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long

Const SND_SYNC = &H0
Const SND_ASYNC = &H1
Const SND_FILENAME = &H20000

' archives mpfe, Alain Vallon
Sub Document_Open()
' snd_async: son asynchrone (la musique n'arrete pas le programme)
If Application.CanPlaySounds Then
WAVFile = Thisdocument.Path & "\" & "atmosph.wav"
Call PlaySound32(WAVFile, 0&, SND_ASYNC Or SND_FILENAME)
Else
Exit Sub
End If

End Sub

WAVFile = Thisdocument.Path & "\" & "atmosph.wav" à adapter

Donc Un seul End Sub à la fin

Bonsoir

J'ai toujours le même message d'erreur et je détaille comment je procède : je dois louper une manip !

J'ouvre un document Word. Je fais Outils => Macros => Nouvelle macro que j'intitule par exemple Macro Son 3.
Je fais un copier-coller de tes instructions en remplaçant le nom du fichier par celui que je veux écouter ( Pour Williplaisir: je l'ai intitulé Akon Beautiful et c'est du mp3 ).
Je clique ensuite sur Exécuter et j'obtiens le message d'erreur signalé plus haut, la ligne ¨PrivateDeclare Function ..." étant surlignée.

Où est-ce que je commets une erreur ? Pour info, je joins une copie de ma macro:

[color=#ff0000][/color]Sub MacroSon3()
'
' MacroSon3 Macro
' Macro enregistrée le 01/10/2009 par JP
'
Private Declare Function PlaySound32 Lib "winmm.dll" Alias "PlaySoundA" (ByVal IpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long

Const SND_SYNC = &H0
Const SND_ASYNC = &H1
Const SND_FILENAME = &H20000

' archives mpfe, Alain Vallon
Sub Document_Open()
' snd_async: son asynchrone (la musique n'arrete pas le programme)
If Application.CanPlaySounds Then
WAVFile = ThisDocument.Path & "\" & "C:\Documents and Settings\Papy\Mes documents\PERSO\Poèmes\Akon Beautiful.mp3"
Call PlaySound32(WAVFile, 0&, SND_ASYNC Or SND_FILENAME)
Else
Exit Sub
End If

End Sub

End Sub

Merci pour votre aide

Ci joint demo
http://cjoint.com/?kbxqDwYpPy

il faut dézipper dans un dossier

mais comme je te l'avais écrit, ca ne foncionne pas en boucle
tu peus mettre du mp", wav, midi....
j'vas au