Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Inserer une musique

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

strawberry

XLDnaute Nouveau
Hello le forum,
Une nouvelle fois je lance un sos !!!
Aprés plusieurs mois de travail (j'en profite d'ailleurs pour remercier tout le monde pour l'immense aide) je boucle enfin mon 'bébé'. Pour finir (cerise on the cake) j'aimerais inserer un fichier son pour faire 'patienter' l'utilisateur lors de l'ouverture du fichier (ouverture du fichier un peu long), Tout fonctionne bien, sauf que je n'arrive qu'à inserer du son à travers l'option : =INCORPORER("Document Magnétophone";""). Tout se passe bien aussi au niveau de la macro :
Sub MUSIC()
ActiveSheet.Shapes("OUVRIR").Select
Selection.Verb Verb:=xlPrimary
Range("A9").Select
End Sub
J'aimerai pouvoir inserer autre chose qu'un son synthétique, en l'occurence un air connu....
si vous avez une idée......
Strawberryfield
 
Re : Inserer une musique

Salut,

Petit fichier joint.

Merci à l'auteur de la macro.

Ca fonctionne qu'avec des fichiers wav.

Il faut que tu choisisses un morceaux wav que tu places dans le même dossier que le classeur, et tu l'adapte dans le code.

PlaySound(ThisWorkbook.Path & "\nom de ton fichier wav", 0&, &H1 Or &H20000)

Mais si je ne me trompe pas, si ton classeur est long à l'ouverture, le morceau commencera que quand le classeur est chargé.

Bonne journ.

Hulk.
 

Pièces jointes

Dernière édition:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…