Actualité informatique
Test comparatif matériel informatique
Jeux vidéo
Astuces informatique
Vidéo
Télécharger
Services en ligne
Forum informatique
01Business

|-  LOGICIELS


|||-  

Musique de fond dans Word (Fermé)

 

29 utilisateurs inconnus
Ajouter une réponse
 

 
Page photos
 
     
Vider la liste des messages à citer
 
 Page :
1
Auteur
 Sujet :

Musique de fond dans Word (Fermé)

Prévenir les modérateurs en cas d'abus 
Plus tu pédales moins vite et moins t'avances plus
stebrice
Tu cartonnes ! (de 500 à 999 messages postés)
  1. Posté le 26/09/2009 à 08:26:57  
  1. answer
  1. Prévenir les modérateurs en cas d'abus
 
:hello:

 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.

 :salut:

docteur-micro
Tu cartonnes ! (de 500 à 999 messages postés)
  1. Posté le 28/09/2009 à 08:13:58  
  1. answer
  1. Prévenir les modérateurs en cas d'abus
 
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.


---------------
Docteur Micro (Micro-Hebdo)
(Publicité)
Plus tu pédales moins vite et moins t'avances plus
stebrice
Tu cartonnes ! (de 500 à 999 messages postés)
  1. Posté le 28/09/2009 à 09:34:58  
  1. answer
  1. Prévenir les modérateurs en cas d'abus
 
:hello:

 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

Plus tu pédales moins vite et moins t'avances plus
stebrice
Tu cartonnes ! (de 500 à 999 messages postés)
  1. Posté le 28/09/2009 à 09:37:25  
  1. answer
  1. Prévenir les modérateurs en cas d'abus
 
:hello:
 PS :

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

 A+

michel_m
Sur la bonne voie (de 100 à 499 messages postés)
  1. Posté le 30/09/2009 à 11:35:48  
  1. answer
  1. Prévenir les modérateurs en cas d'abus
 
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)...


---------------
Amicalement Michel
(Publicité)
Plus tu pédales moins vite et moins t'avances plus
stebrice
Tu cartonnes ! (de 500 à 999 messages postés)
  1. Posté le 30/09/2009 à 13:52:39  
  1. answer
  1. Prévenir les modérateurs en cas d'abus
 

 :hello:

 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

willyplaisir
Expert Excel Habitué (de 5 000 à 9 999 messages postés)
  1. Posté le 01/10/2009 à 16:53:02  
  1. answer
  1. Prévenir les modérateurs en cas d'abus
 
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

 :salut:



---------------
[:ahlefoufou] Merci de sauver les chats abandonnés en aidant cette association : [:tazounet:5]
- Pension MillePattes
michel_m
Sur la bonne voie (de 100 à 499 messages postés)
  1. Posté le 01/10/2009 à 17:25:20  
  1. answer
  1. Prévenir les modérateurs en cas d'abus
 
Bonjour,

 Je planais, s'cusez-moi... :fume:

 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


---------------
Amicalement Michel
(Publicité)
Plus tu pédales moins vite et moins t'avances plus
stebrice
Tu cartonnes ! (de 500 à 999 messages postés)
  1. Posté le 01/10/2009 à 18:09:12  
  1. answer
  1. Prévenir les modérateurs en cas d'abus
 
:hello:

 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:

 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

michel_m
Sur la bonne voie (de 100 à 499 messages postés)
  1. Posté le 01/10/2009 à 22:20:00  
  1. answer
  1. Prévenir les modérateurs en cas d'abus
 
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  :sleep:


---------------
Amicalement Michel
 Page :
1

Aller à :
 

Sujets relatifs
extraire musique youtube Comment recuperer un fichier word ecrasé
rapport d'erreur(merci fermé) musique arabe
Musique libre de droit pour fond de vidéo. [Résolu] Convertir musique AAC acheté sur iTunes en MP3
probleme de musique sur diaporama open office  
Plus de sujets relatifs à : Musique de fond dans Word (Fermé)

Les 5 sujets de discussion précédents Nombre de réponses Dernier message
Outlook Expres versus Live Mail Liste d'Adresses (RESOLU) 3
Publication sur le Net : quel logiciel utiliser ? 4
sauvegarde disque dur 8
incrémenter une cellule avec la souris 6
convertir doc ppt en word 2