A voir également:
- Démarrage automatique d'une bande son.
- Forcer demarrage pc - Guide
- Pc lent au démarrage - Guide
- Reinitialiser pc au demarrage - Guide
- Recherche automatique des chaînes ne fonctionne pas - Guide
- Message automatique thunderbird - Guide
3 réponses
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
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
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
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 ;)
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
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
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
26 nov. 2013 à 10:28
Et si tu veux un conseil tu peux suivre ca :
https://silkyroad.developpez.com/VBA/EvenementsClasseur/#LII-O
https://silkyroad.developpez.com/VBA/EvenementsClasseur/#LII-O
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
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