Lien hypertexte vers fichiers MP3

[Océane]

Bonsoir
Pour une compétition de gymnastique rythmique, j'ai besoin de lancer beaucoup de fichiers MP3, ( 1 par gym - et environ 150 filles) j'ai donc à cet effet crée un répertoire dans lequel je range mes fichiers MP3, + un ficher Excel, sous forme de tableau ou se trouve le nom de chaque gymnaste.
Un lien hypertexte entre le nom et le fichier MP3 correspondant et le tour est joué, la musique aussi...
Sauf qu'a chaque fois Excel, me pose la question suivante : (voir pièce jointe).
Il a t-il un moyen de supprimer cette interrogation car je suis sur de mes fichiers et ne veux pas cliquer 150 fois pour rien.
merci d'avance

 

[Staple1600]

Re : Lien hypertexte vers fichiers MP3

Bonsoir

Essaies de voir de ce coté
https://www.excel-downloads.com/threads/ouvrir-et-lire-un-fichier-mp3-ou-wma.61933/

 

[Océane]

Re : Lien hypertexte vers fichiers MP3

Bonsoir

Essaies de voir de ce coté
https://www.excel-downloads.com/threads/ouvrir-et-lire-un-fichier-mp3-ou-wma.61933/

Merci Staple 1600, mais çà ne donee rien, Deudecos s'est posé la même question que moi , je interroge pour savoir si il a trouvé la solution.
A+

 

[kjin]

Re : Lien hypertexte vers fichiers MP3

Bonsoir,
Plutôt ICI non ?
A+
kjin

 

[Staple1600]

Re : Lien hypertexte vers fichiers MP3

Bonsoir kjin

Par là, oui, pour ce qui est des hyperlinks

Moi je préfère utiliser une autre voie
d'où mon précédent message

C'est ce fichier dont je parlais Oceane
Lien supprimé

 

[Staple1600]

Re : Lien hypertexte vers fichiers MP3

Re


Océane
Pour être plus explicite
je trouve plus simple d'utiliser la méthode ci-dessous pour jouer un mp3
(qui de surcroit résout ton problème de message d'avertissement 😉 )

Private Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long

Function nf83(sChem$)
Dim fso, fsoF
Set fso = CreateObject("Scripting.FileSystemObject")
Set fsoF = fso.GetFile(sChem)
nf83 = fsoF.ShortPath
End Function

Sub Jouer_MP3()
Dim mp3$: mp3 = ActiveCell.Text
Call mciExecute("Play " & nf83(mp3))
End Sub

PS : il faut que dans l'ActiveCell se trouve le chemin du fichier
exemple: C:\Temp\ABC.mp3

code vba testé sur Excel 2010: ok
A priori doit fonctionner sur Excel 2003

 

[Océane]

Re : Lien hypertexte vers fichiers MP3

Bonjour, Staple, Kjin
Merci pour vos réponses
Les clés de registres je n'ose pas trop m'aventurer de ce coté là, je ne suis pas suffisamment expert.
Staple, je suis bien allé sur le lien que tu m'as indiqué, je tombe sur deux fichiers, mais je ne vois pas comment les exploiter.
Par contre si ta macro fonctionne, c'est ce qu'il me faut, mais en macro je n'y connais pas grand chose; peux tu la monter dans l'exemple ci-joint.
Bonne semaine