Intégrer fichier audio sur Excel

[FaridP]

Bonjour le Forum,

Je cherche en vain le moyen d'intégrer un fichier audio à mon classeur excel mais est-ce possible ?
Et si par bonheur c'est le cas, comment faire en sorte qu'il s'exécute automatiquement ?

Merci pour Votre aide et Bon Courage à Tous.
Farid

 

[Gégé]

Bonjour le forum, FaridP,

Essai cela... 😉

Option Explicit
Private Declare Function PlaySound Lib 'winmm.dll' _
  Alias 'PlaySoundA' (ByVal lpszName As String, _
  ByVal hModule As Long, ByVal dwFlags As Long) As Long

Sub Audio()
Dim WAVFile As String
Const SND_ASYNC = &H1
Const SND_FILENAME = &H20000
    
    WAVFile = 'C:\\Windows\\Media\\Tada.wav' 'à adapter
    Call PlaySound(WAVFile, 0&, SND_ASYNC Or SND_FILENAME)
    
End Sub

@+

 

[FaridP]

Salut Gégé,

Merci pour ton Aide. Malheureusement, je suis une bille quand il s'agit d'utiliser VBA.
Le fichier que je souhaite lancer est un fichier MP3 (objet intégrer à la feuille de calcul).
J'y suis parvenu mais maintenant je voudrais que Windows Media Player lance le son en restant masqué quelqu'un a-t-il la solution ?
Ci-dessous mon code.

Encore Merci à Tous.
Farid

Sub Auto_Open()
    ActiveSheet.Shapes('Object 6').Visible = True
    ActiveSheet.Shapes('Object 6').Select
    Selection.Verb Verb:=xlPrimary
    ActiveSheet.Shapes('Object 6').Visible = False
    
    
End Sub

 

[MichelXld]

bonjour Farid , bonjour Gégé

j'espere que ce lien pourra t'aider

Lien supprimé

Lien supprimé



bonne soirée
MichelXld

 

[FaridP]

Bonsoir Michel,

Merci pour ton aide c'est effectivement ce qu'il me fallait.

Encore Merci
Farid