Jouer un son a l ouverture d un classeur exel

totoff50 Messages postés 1 Statut Membre -  
michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   -
bonjour a tous
voila j ai deux problèmes, le premier, c est que je voudrais par une macro, ouvrir un classeur avec une petite musique ou un petit son, et le deuxième, c est que j aimerais supprimer le petit point d exclamation de l icône, qui se mets sur l icone quand il y as une macro dans un classeur. petite précision mon extension est xlsm.
merci d avance pour les bonnes âmes qui se pencheront sur mes petits problèmes.

2 réponses

  1. ralag Messages postés 15 Statut Membre 2
     
    Salut,

    Dans le VBA (Alt + F11)
    double clic sur ThisWorbook et coller :

    Private Sub Workbook_Open()
    Call Shell("C:\Program Files\Media Player\wmplayer.exe C:\chimes.wav", vbHide)
    End Sub

    Pour l'icone je pense qu'il faudrait faire un xls ou allez dans l'explorateur / outils / options des dossiers /type de fichier/ et changer l'icone mais cela n'est pas recommandé.
    0
  2. michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   3 320
     
    Dans le module Thisworbook

    Private Declare Function Beep Lib "Kernel32" (ByVal Fq As Long, ByVal Tm As Long) As Long 
      
    Private Sub Workbook_Open() 
    Beep 500, 500 
    Beep 1500, 500 
    Beep 700, 800 
    End Sub 
    

    1° nombre=tonalité, 2°=durée
    Michel
    0