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

|-  LOGICIELS


|||-  

Résolu-Cherche à insérer un son automatique dans Word 2007

 

Sohome LOGICIELS : Labbaipierre, Tintin10, 1 utilisateur anonyme et 132 utilisateurs inconnus
Ajouter une réponse
 

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

Résolu-Cherche à insérer un son automatique dans Word 2007

Prévenir les modérateurs en cas d'abus 
Téou
teou
Tu cartonnes ! (de 500 à 999 messages postés)
  1. Posté le 30/05/2011 à 12:08:17  
  1. answer
  1. Prévenir les modérateurs en cas d'abus
 
Bonjour à tous

 Je souhaiterai insérer de la musique dans Word 2007
 mais cette musique devrait s'ouvrir automatiquement à l'ouverture
 de Word
 Je sais installer un logo qui en cliquant manuellement
 dessus donne le son.
 Pour l'automatisme sans doute une macro est-elle nécessaire
 mais malgré le lien ci-dessus trouvé sur 01.net je n'arrive
 pas à créer cette macro.
 http://forum.telecharger.01net [...] ges-1.html

 Merci d'avance de votre aide

 Bon après-midi

willyplaisir
Expert Excel Habitué (de 5 000 à 9 999 messages postés)
  1. Posté le 30/05/2011 à 17:53:46  
  1. answer
  1. Prévenir les modérateurs en cas d'abus
 
bonjour,

 lien trouvé pour lancer de la musique à l'ouverture d'un fichier word, différent de mettre de la musique en lançant le logiciel word

 http://forum.pcastuces.com/ouv [...] s20506.htm



 En résumé :
 - Commande : Insertion, Objet. Onglet : Créer à partir du fichier.
 - Sélectionner le fichier (.wav, . mp3...), ou en le faire glisser dans la page Word.
 - Affichage d'une icône figurant l'insertion. Ce doit être le premier objet du document.
 - Sélectionner cette icône : Clic droit et sélectionner : Mettre en forme l'objet. Dans l'onglet Habillage, sélectionner : Aligner sur le texte
 - Activer la commande : Outils, Macro, Macros. Donner un nom à cette nouvelle macro. Dans la liste déroulante Macros disponibles dans : sélectionner le document en cours (surtout pas Normal.dot). Cliquer sur le bouton Créer.
 - Coller les instructions suivantes avant l'instruction End Sub:

 Sub AutoOpen()
 ActiveDocument.InlineShapes(1)​.Activate
 ..
 ..
 end sub

 Enregistrer le tout.

 Fermer le document

 L'ouvrir à nouveau. Il s'ouvre en musique !!!!

 :salut:


---------------
[:ahlefoufou] Merci de sauver les chats abandonnés en aidant cette association : [:tazounet:5]
- Pension MillePattes
(Publicité)
teou
Tu cartonnes ! (de 500 à 999 messages postés)
  1. Posté le 31/05/2011 à 11:11:44  
  1. answer
  1. Prévenir les modérateurs en cas d'abus
 
Bonjour Willy plaisir

 Merci d'avoir répondu à mon post
 Malheureusement le lien du forum PCA pour Word 2002 je l'avais testé
 plusieurs fois ...en vain

 Tous mes essais me donnent un logo dans word qui fonctionne manuellement
 en cliquant dessus mais imposssible de faire une macro
 qui ferait démarrer la musique automatiquement à l'ouvertue de Word 2007

 Merci quand même de ton aide
 Bon après-midi

nonaseb
Débutant confirmé (de 1 000 à 4 999 messages postés)
  1. Posté le 31/05/2011 à 12:22:12  
  1. answer
  1. Prévenir les modérateurs en cas d'abus
 
Bonjour Téou et willyplaisir,

 La propriété Activate ne fonctionne pas directement avec InlineShapes...
 il faut d'abord convertir l'objet en OLE Package

 Pour cela faire un clic droit sur l'objet et choisir Objet d'environnement du Gestionnaire de liaisons / Convertir / convertir en OLE Package

 Une fois que c'est fait, voici la macro à placer dans ThisDocument
 Sub Open pour que la macro s'exécute à l'ouverture du fichier

 Private Sub Document_Open()
 ActiveDocument.InlineShapes(1)​.OLEFormat.Activate
 End Sub



 Normalement cela fonctionne...

 :hello:


teou
Tu cartonnes ! (de 500 à 999 messages postés)
  1. Posté le 31/05/2011 à 15:49:52  
  1. answer
  1. Prévenir les modérateurs en cas d'abus
 
Bonjour nonaseb
 Pardon pour le retard à te remercier mais
 j'étais absent du PC

 Je viens de faire plusieurs essais en suivant tes conseils,
 et notamnent dans ThisDocumment (j'ai en haut à droite Open mais
 pas Sub Open)

 Mais c'est toujours pareil
 J'ai bien le logo qui s'affiche et qui démarre en cliquant dessus
 mais la musique ne démarre pas automatiquement en ouvrant Word 2007
 De même j'ai essayé "enregister sous" en .docm et en .dotm

 Maintenant j'ai peut-être une manoeuvre à faire après avoir mis la macro
 dans ThisDocument ?

 Je me suis contenté de revenir sur Word 2007 pour faire "Enregistrer sous"

 Merci d'avoir essayé de m'aider

 Bonne soirée


(Publicité)
teou
Tu cartonnes ! (de 500 à 999 messages postés)
  1. Posté le 31/05/2011 à 15:49:54  
  1. answer
  1. Prévenir les modérateurs en cas d'abus
 
Bonjour nonaseb
 Pardon pour le retard à te remercier mais
 j'étais absent du PC

 Je viens de faire plusieurs essais en suivant tes conseils,
 et notamnent dans ThisDocumment (j'ai en haut à droite Open mais
 pas Sub Open)

 Mais c'est toujours pareil
 J'ai bien le logo qui s'affiche et qui démarre en cliquant dessus
 mais la musique ne démarre pas automatiquement en ouvrant Word 2007
 De même j'ai essaré "enregister sous" en .docm et en .dotm

 Maintenant j'ai peut-être une manoeuvre à faire après avoir mis la macro
 dans ThisDocument ?

 Je me suis contenté de revenir sur Word 2007 pour faire "Enregistrer sous"

 Merci d'avoir essayé de m'aider

 Bonne soirée

nonaseb
Débutant confirmé (de 1 000 à 4 999 messages postés)
  1. Posté le 31/05/2011 à 16:03:36  
  1. answer
  1. Prévenir les modérateurs en cas d'abus
 
Re,

 Tu as bien converti l'objet en OLE Package avant de faire la macro ?

 Pour la macro, tu ouvres l'éditeur visual basic (alt + F11), tu double-cliques sur ThisDocument et tu copies ceci

 Private Sub Document_Open()
 ActiveDocument.InlineShapes(1)​.OLEFormat.Activate
 End Sub

 Tu enregistres ton document en .docm

 Cela fonctionne, je viens de le tester avec un document Word 2007


 :hello:

teou
Tu cartonnes ! (de 500 à 999 messages postés)
  1. Posté le 31/05/2011 à 16:24:18  
  1. answer
  1. Prévenir les modérateurs en cas d'abus
 
Je n'ai le choix de conversion qu'en Package
 Je n'ai pas d'option "OLE package"

 J'ai fait Insertion > Objet> Créer à partir d'un fichier
 "Parcourir" et j'ai recherché le fichier.wav
 J'ai Activé "lier au fichier" et "afficher sous forme d'icône"
 Le logo avec le nom de la musique s'affiche dans Word
 Si je fais un clic droit j'ai "objet package" et pour le choix
 de la conversion je n'ai que "package" et pas de mention "OLE package"

 Après avec Alt +F11 je tape ta macro
 Je reviens sur le fichier Word (où se trouve le logo de la musique)
 et je fais "enregistrer sous" en .docm

 Je ferme le tout
 Si j'ouvre le .docm la musique ne démarre pas seule mais le tableau
 ouvrir me permet de l'écoute ....manuellement !

 Peut-être comme pour les espagnols ...'OLE' est peut-être la cause
 mais je ne le trouve pas !

 Pardon d'abuser de ton temps et ta gentillesse

 Bonne soirée

(Publicité)
nonaseb
Débutant confirmé (de 1 000 à 4 999 messages postés)
  1. Posté le 31/05/2011 à 16:35:58  
  1. answer
  1. Prévenir les modérateurs en cas d'abus
 
Re,

 On va bien finir par y arriver... :D
 puisque cela fonctionne chez moi

 Ton fichier est peut être "pollué" avec ces différents essais

 Voici ce que je te propose de faire

 supprimer tous les modules et autres procédures dans l'éditeur Visual basic
 supprimer également ton objet son
 fermer le fichier pour enregistrer ces modifications
 l'ouvrir et recommencer dans cet ordre

 1) créer l'objet son avec son icône
 ne pas activer "lier au fichier" mais seulement "afficher sous forme d'icône"
 2) vérifier qu'il fonctionne bien
 3) le convertir en OLE Package
 Pour cela faire un clic droit sur l'objet et choisir Objet d'environnement du Gestionnaire de liaisons / Convertir
 
normalement, une fenêtre s'ouvre et convertir en OLE Package doit être coché
 valider sur OK
 4) une fois que c'est fait ouvrir l'éditeur visual basic et copier ceci dans ThisDocument

 Private Sub Document_Open()
 ActiveDocument.InlineShapes(1)​.OLEFormat.Activate
 End Sub

 5) enregistrer en .docm

 A+

 :hello:

teou
Tu cartonnes ! (de 500 à 999 messages postés)
  1. Posté le 31/05/2011 à 16:51:53  
  1. answer
  1. Prévenir les modérateurs en cas d'abus
 
Je viens de refaire un essai
 le nouveau logo fonctionne comme tu l'as demandé en 2)
 mais quand je fais le clic droit
 je n'ai que le choix entre couper, copier, clle, Objet Package,
 lien Hypertexte,Insérer une légende, bordure et trame, Format d'objet

 Je n'ai Objet d'environnement du Gestionnaire de liaisons / Convertir

 Je dois me déconnecter car je suis inviter à dîner chez des amis

 Je ne reviendrai sur le PC que demain en début d'après-midi

 Je ne comprends pas pourquoi sur Word 2007 je n'ai pas la même mention
 que toi.

 Merci de ton aide et toutes mes excuses d'être aussi nul pour ne pas trouver
 cette mention pour convertir en OLE package

 Bonne fin de journée

nonaseb
Débutant confirmé (de 1 000 à 4 999 messages postés)
  1. Posté le 31/05/2011 à 17:55:27  
  1. answer
  1. Prévenir les modérateurs en cas d'abus
 
Oups !!

 Tu n'as pas ceci ?


 http://images.imagehotel.net/e​7x0syaa7p.jpg


 Si tu n'as pas cette possibilité, on peut essayer de le contourner...

 Supprime à nouveau ton objet son
 Refais le dans les mêmes conditions et copie cette procédure dans ThisDocument

 Private Sub Document_Open()
 With ActiveDocument

.InlineShapes(1).ConvertToShap​e.ConvertToInlineShape

.InlineShapes(1).OLEFormat.Act​ivate
 End With
 End Sub

 A+

 :hello:


(Publicité)
teou
Tu cartonnes ! (de 500 à 999 messages postés)
  1. Posté le 01/06/2011 à 08:58:14  
  1. answer
  1. Prévenir les modérateurs en cas d'abus
 
Bonjour nonaseb
 Me voici de retour plus tôt que prévu

 SUPER cela fonctionne mais j'a besoin de quelques pécisions

 Je n'ai pas la mention "Objet d'environnement"..
 J'ai oublié de te dire que j'avais XP avec Word 2007

 Je viens d'essayer ta nouvelle méthode
 et là en ouvrant le document.docm la lecteur Windows Media
 s'ouvre automatiquement et la musique démarre bien
 BRAVO
 Est-ce que c'est pareil sur ton PC ?
 Je pensais que la musique fonctionnerait mais que la page Word
 resterait ouverte sur un texte éventuel comme je le fais sur
 O.Express. Mais c'était sans doute une fausse idée.
 Mais si pour toi le lecteur s'ouvre aussi automatiquement
 cela me rassurera.

 Déjà je te dis BRAVO et Merci

 A+ pour ta réponse

 Bonne journée



 Bonne journée



nonaseb
Débutant confirmé (de 1 000 à 4 999 messages postés)
  1. Posté le 01/06/2011 à 09:24:41  
  1. answer
  1. Prévenir les modérateurs en cas d'abus
 
Re,

 



Je n'ai pas la mention "Objet d'environnement"..
 J'ai oublié de te dire que j'avais XP avec Word 2007




 J'ai Windows 7, ceci explique peut être cela... :chepa:

 



Je pensais que la musique fonctionnerait mais que la page Word
 resterait ouverte sur un texte éventuel comme je le fais sur
 O.Express. Mais c'était sans doute une fausse idée.
 Mais si pour toi le lecteur s'ouvre aussi automatiquement
 cela me rassurera.




 Pour moi ça donne ceci...

 http://images.imagehotel.net/t​fpyey9y3s.jpg


 



Déjà je te dis BRAVO et Merci




 Mais de rien...

 Si tu penses que ton problème est résolu, n'oublie pas de l'indiquer dans le titre de ton premier message...

 :jap:


teou
Tu cartonnes ! (de 500 à 999 messages postés)
  1. Posté le 01/06/2011 à 09:32:15  
  1. answer
  1. Prévenir les modérateurs en cas d'abus
 
Re:nonaseb

 Félicitations

 En effet en réduisant le lecteur le document word reste ouvert

 Un gand merci pour ton aide et pardon d'avoir abusé de ton
 temps et de ta patience

 BRAVO et un Grand merci
 Je vais clore le post
 Bonne journée

(Publicité)
nonaseb
Débutant confirmé (de 1 000 à 4 999 messages postés)
  1. Posté le 01/06/2011 à 09:35:29  
  1. answer
  1. Prévenir les modérateurs en cas d'abus
 

 

Téou a écrit :

Re:nonaseb

 Félicitations

 En effet en réduisant le lecteur le document word reste ouvert

 Un gand merci pour ton aide et pardon d'avoir abusé de ton
 temps et de ta patience

 BRAVO et un Grand merci
 Je vais clore le post
 Bonne journée
 




 OK et bonne journée également

 :jap:

 Page :
1

Aller à :
 

Sujets relatifs
Suppression impossible des favoris (RESOLU) Comment supprimer la selection automatique des fenêtres
Excel recherche formule [résolu] craquer un mdp oublié sous word 2007
Assembler ou diviser des fichiers PDF (RESOLU) Transformer un texte word en image
excel : classer les feuilles/résolu Cherche adresse proxy
probleme mon pc ne lit pas ma carte sd (résolu) insérer signature manuscrite dans courriel
Plus de sujets relatifs à : Résolu-Cherche à insérer un son automatique dans Word 2007

Les 5 sujets de discussion précédents Nombre de réponses Dernier message
BUMP TOP fait des siennes !! 0
synchronisation 2 smartphones et oulook 0
Des barres rouges ornent parfois les mails reçus 0
[Résolu] Macro commande Excel 2007 6
[Résolu}-Comment déprotéger plusieurs feuilles Excel 2007 3