jouer un son a l ouverture d un classeur exel

Question

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.

ralag · Answer

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é.

michel_m · Answer

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

Jouer un son a l ouverture d un classeur exel

2 réponses

Votre réponse

Discussions similaires

Newsletters