Démarrage automatique d'une bande son.

Fermé

Guillaume - 26 nov. 2013 à 09:38
Guillaume - 26 nov. 2013 à 13:00

Bonjour à tous,

Voilà, j'ai crée un clesseur sur excel.

Je souhaite qu'a l'ouverture de mon fichier une bande son démarre automatiquement.
Avec une macro qui démarre à l'ouverture par exemple.

Pouvez-vous m'aider ?

A voir également:

Démarrage automatique d'une bande son.
Pc lent au démarrage - Guide
Forcer demarrage pc - Guide
Démarrage automatique windows 10 - Guide
Ecran noir demarrage pc - Guide
Message automatique thunderbird - Guide

3 réponses

Réponse 1 / 3

Anicottedirgala Messages postés 972 Date d'inscription lundi 4 novembre 2013 Statut Membre Dernière intervention 23 juillet 2014 432
Modifié par Anicottedirgala le 26/11/2013 à 09:42

Salut,

Uui c'est possible

1 - Insérer l'objet son (ton fichier son) que l'on appellera "test" dans la feuille de calcul

2 - Double cliquer sur ce fichier pour le lire
ou
2 - bis: créer une macro qui exécute la lecture de ce fichier son automatiquement
la macro sera du type

ActiveSheet.Shapes("test" ).Sel?ect
selection.Verb Verb:=xlPrimary

Réponse 2 / 3

Guillaume
26 nov. 2013 à 10:22

Merci de la réponse.

Donc, j'ai inséré mon objet qui s'appel (Bonjour).

Apès je crée une macro qui double clic sur mon fichier.
Par contre y-a rien d'automatique !

je rentre quoi en code ?
dans générale ou Worksheet ?

Merci ;)

Anicottedirgala Messages postés 972 Date d'inscription lundi 4 novembre 2013 Statut Membre Dernière intervention 23 juillet 2014 432
26 nov. 2013 à 10:27

Voici un exemple de message d'accueil qui s'affiche à l'ouverture d'un classeur

Private Sub Workbook_Open()
MsgBox "Bonjour " & Environ("UserName")
End Sub

Anicottedirgala Messages postés 972 Date d'inscription lundi 4 novembre 2013 Statut Membre Dernière intervention 23 juillet 2014 432
26 nov. 2013 à 10:28

Et si tu veux un conseil tu peux suivre ca :

https://silkyroad.developpez.com/VBA/EvenementsClasseur/#LII-O

Réponse 3 / 3

Guillaume
26 nov. 2013 à 13:00

Alors j'ai essayé avec :

Private Sub Workbook_Open()
MsgBox "Bonjour " & Environ("UserName")
End Sub

J'ai bien un message d'accueil !

Par contre impossible de le faire fonctionner avec ma bande son !

ex :

Private Sub Workbook_Open()

' Bonjours Macro
' Bonjours
'
' Touche de raccourci du clavier: Ctrl+s
'
ActiveSheet.Shapes.Range(Array("Object 1066")).Select
Selection.Verb Verb:=xlPrimary
Range("G13").Select
End Sub

Newsletters