Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Confirmation de lecture de fichier audio

Confirmation de lecture de fichier audio

5 réponses
Avatar
Serge Hipontoise
Bonjour à tous
Vous allez bien ?
J'ai une colonne contenant des noms de fichiers audios (wav, mp3, aif, peu
importe). Une macro me permet de lier cette cellule au fichier audio
correspondant sur le disque dur et de jouer le fichier audio en cliquant sur
la cellule (lien)
Or, à chaque fois que je clique sur un lien, j'ai un message me demandant si
je suis bien sûr de vouloir ouvrir ce fichier ("Ouverture du fichier...
Certains fichiers peuvent contenir des virus, etc.)
Serait-il possible de désactiver cette demande de confirmation ?
Et tant que j'y suis, une autre question lièe à celà :
Y aurait-il moyen de lire le fichier audio directement "dans" Excel, sans
lancer WMP ou Winamp, mais genre via un activex quelconque ?
Un grand merci à tous
et de joyeuses fêtes à tous les membres du forum !
Serge
Signaler un problème avec ce contenu

5 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Sitting Hoax \(BM\)
Bonjour, nous allons bien merci;-)
pour la première partie de la question,
Cancel=True peut être ?
avec la fonction Playsound, tu peux lire un fichier Wav directement sans
ouvrir d'autre logiciel. Pour Mp3, je ne me rappelle plus la fonction.

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

Sub joue()
x = ActiveCell.Value 'nom du fichier
chemin = ThisWorkbook.Path & "" 'chemin du fichier wav
PlaySound chemin & x & ".Wav", 0, 0 'lecture du son
End Sub

Mets le fichier Wav dans le même répertoire que le fichier Excel
ThisWorkBook et ça devrait marcher
Amicalement
Sitting Hoax
"Serge Hipontoise" a écrit dans le message de
news:41d3ebb4$0$953$
Bonjour à tous
Vous allez bien ?
J'ai une colonne contenant des noms de fichiers audios (wav, mp3, aif, peu
importe). Une macro me permet de lier cette cellule au fichier audio
correspondant sur le disque dur et de jouer le fichier audio en cliquant
sur

la cellule (lien)
Or, à chaque fois que je clique sur un lien, j'ai un message me demandant
si

je suis bien sûr de vouloir ouvrir ce fichier ("Ouverture du fichier...
Certains fichiers peuvent contenir des virus, etc.)
Serait-il possible de désactiver cette demande de confirmation ?
Et tant que j'y suis, une autre question lièe à celà :
Y aurait-il moyen de lire le fichier audio directement "dans" Excel, sans
lancer WMP ou Winamp, mais genre via un activex quelconque ?
Un grand merci à tous
et de joyeuses fêtes à tous les membres du forum !
Serge




Avatar
Serge Hipontoise
C'est cool, merci Sitting (tu permets que je t'appelle Sitting ? ;o)

Mais du coup il faut lancer une macro pour la lecture, je perds donc en
souplesse par rapport au simple clic sur la cellule pour lancer le fichier
A moins qu'il n'y ait moyen de lancer la macro en cliquant sur chaque
cellule ?
Tx
Serge




"Sitting Hoax (BM)" a écrit dans le
message de news: %
Bonjour, nous allons bien merci;-)
pour la première partie de la question,
Cancel=True peut être ?
avec la fonction Playsound, tu peux lire un fichier Wav directement sans
ouvrir d'autre logiciel. Pour Mp3, je ne me rappelle plus la fonction.

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

Sub joue()
x = ActiveCell.Value 'nom du fichier
chemin = ThisWorkbook.Path & "" 'chemin du fichier wav
PlaySound chemin & x & ".Wav", 0, 0 'lecture du son
End Sub

Mets le fichier Wav dans le même répertoire que le fichier Excel
ThisWorkBook et ça devrait marcher
Amicalement
Sitting Hoax
"Serge Hipontoise" a écrit dans le message de
news:41d3ebb4$0$953$
Bonjour à tous
Vous allez bien ?
J'ai une colonne contenant des noms de fichiers audios (wav, mp3, aif,
peu
importe). Une macro me permet de lier cette cellule au fichier audio
correspondant sur le disque dur et de jouer le fichier audio en cliquant
sur

la cellule (lien)
Or, à chaque fois que je clique sur un lien, j'ai un message me demandant
si

je suis bien sûr de vouloir ouvrir ce fichier ("Ouverture du fichier...
Certains fichiers peuvent contenir des virus, etc.)
Serait-il possible de désactiver cette demande de confirmation ?
Et tant que j'y suis, une autre question lièe à celà :
Y aurait-il moyen de lire le fichier audio directement "dans" Excel, sans
lancer WMP ou Winamp, mais genre via un activex quelconque ?
Un grand merci à tous
et de joyeuses fêtes à tous les membres du forum !
Serge








Avatar
Daniel.j
Bonjour,
En complement de la reponse de Sitting Hoax :
Voila une macro qui lit le chemin du fichier son MP3 et le joue
par double clique!
A mettre dans le code de la feuille ou se trouve le Path complet du fichier son
(ex: C:ajeterson.mp3)

Un double click sur le chemin complet lancera la lecture du MP3
(Testé avec XL 2003)
============== 'Adaptation d'un code de Aurélien NORIE Microsoft France. Daniel.j
Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" _
(ByVal lpstrCommand As String, ByVal lpstrReturnString As String, _
ByValuReturnLength As Long, ByVal hwndCallback As Long) As Long _

Private Declare Function GetShortPathName Lib "kernel32" Alias _
"GetShortPathNameA" (ByVal lpszLongPath As String, ByVal lpszShortPath As _
String, ByVal cchBuffer As Long) As Long

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, _
Cancel As Boolean)
joueMP3 (Target.Text)
End Sub


Public Sub joueMP3(ByVal Mp3 As String)
Dim Tmp As Long, Tmp2 As String

Tmp2 = NomCourt(Mp3)
Tmp = mciSendString("close MP3_Device", vbNullString, 0&, 0&)
Tmp = mciSendString("open " & Tmp2 & " type MPEGVideo alias MP3_Device", _
vbNullString, 0&, 0&)
If Tmp = 0 Then
Tmp = mciSendString("play Mp3_Device", vbNullString, 0&, 0&)

If Tmp <> 0 Then
Screen.MousePointer = 0
MsgBox "Incapable de jouer ce Mp3"
End If
Else
MsgBox "Incapable de jouer ce Mp3"
End If

End Sub

Public Sub StopMP3()
Dim Tmp As Long
Tmp = mciSendString("close MP3_Device", vbNullString, 0&, 0&)
End Sub

Private Function NomCourt(ByVal Fichier As String) As String
Dim Tmp As String * 255, Tmp2 As Byte
Tmp2 = GetShortPathName(Fichier, Tmp, Len(Tmp))
If Tmp2 > 0 Then
NomCourt = Left(Tmp, Tmp2)
End If
End Function
============== Pour recupere les PATH des Mp3 sur C:
Sub LoadList() 'Chip Pearson
Dim Ndx As Long
With Application.FileSearch
.Filename = "*.mp3"
.LookIn = "C:"
.SearchSubFolders = True
For Ndx = 1 To .Execute(msoSortByFileName)
Worksheets("Liste des fichiers avec PAth").Cells(Ndx, 1).Value = .FoundFiles(Ndx)
Next Ndx
End With
End Sub



"Serge Hipontoise" a écrit dans le message de news: 41d40cee$0$938$
| C'est cool, merci Sitting (tu permets que je t'appelle Sitting ? ;o)
|
| Mais du coup il faut lancer une macro pour la lecture, je perds donc en
| souplesse par rapport au simple clic sur la cellule pour lancer le fichier
| A moins qu'il n'y ait moyen de lancer la macro en cliquant sur chaque
| cellule ?
| Tx
| Serge
|
|
|
|
| "Sitting Hoax (BM)" a écrit dans le
| message de news: %
| > Bonjour, nous allons bien merci;-)
| > pour la première partie de la question,
| > Cancel=True peut être ?
| > avec la fonction Playsound, tu peux lire un fichier Wav directement sans
| > ouvrir d'autre logiciel. Pour Mp3, je ne me rappelle plus la fonction.
| >
| > Private Declare Function PlaySound Lib "winmm.dll" _
| > Alias "PlaySoundA" (ByVal lpszName As String, _
| > ByVal hModule As Long, ByVal dwFlags As Long) As Long
| >
| > Sub joue()
| > x = ActiveCell.Value 'nom du fichier
| > chemin = ThisWorkbook.Path & "" 'chemin du fichier wav
| > PlaySound chemin & x & ".Wav", 0, 0 'lecture du son
| > End Sub
| >
| > Mets le fichier Wav dans le même répertoire que le fichier Excel
| > ThisWorkBook et ça devrait marcher
| > Amicalement
| > Sitting Hoax
| > "Serge Hipontoise" a écrit dans le message de
| > news:41d3ebb4$0$953$
| >> Bonjour à tous
| >> Vous allez bien ?
| >> J'ai une colonne contenant des noms de fichiers audios (wav, mp3, aif,
| >> peu
| >> importe). Une macro me permet de lier cette cellule au fichier audio
| >> correspondant sur le disque dur et de jouer le fichier audio en cliquant
| > sur
| >> la cellule (lien)
| >> Or, à chaque fois que je clique sur un lien, j'ai un message me demandant
| > si
| >> je suis bien sûr de vouloir ouvrir ce fichier ("Ouverture du fichier...
| >> Certains fichiers peuvent contenir des virus, etc.)
| >> Serait-il possible de désactiver cette demande de confirmation ?
| >> Et tant que j'y suis, une autre question lièe à celà :
| >> Y aurait-il moyen de lire le fichier audio directement "dans" Excel, sans
| >> lancer WMP ou Winamp, mais genre via un activex quelconque ?
| >> Un grand merci à tous
| >> et de joyeuses fêtes à tous les membres du forum !
| >> Serge
| >>
| >>
| >
| >
|
|
Avatar
Sitting Hoax \(BM\)
Tu peux m'appeler Sitting bien sûr puisque c'est mon prénom ;-))

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If ActiveCell.Value <> "" Then
On Error Resume Next 'au cas ou il n'y
'aurait pas le son dans le répertoire
joue
End If
End Sub

Merci Daniel aussi
à chaque changement de cellule, ça jouera le son
Amicalement
Sitting Hoax
"Serge Hipontoise" a écrit dans le message de
news:41d40cee$0$938$
C'est cool, merci Sitting (tu permets que je t'appelle Sitting ? ;o)

Mais du coup il faut lancer une macro pour la lecture, je perds donc en
souplesse par rapport au simple clic sur la cellule pour lancer le fichier
A moins qu'il n'y ait moyen de lancer la macro en cliquant sur chaque
cellule ?
Tx
Serge




"Sitting Hoax (BM)" a écrit dans le
message de news: %
Bonjour, nous allons bien merci;-)
pour la première partie de la question,
Cancel=True peut être ?
avec la fonction Playsound, tu peux lire un fichier Wav directement sans
ouvrir d'autre logiciel. Pour Mp3, je ne me rappelle plus la fonction.

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

Sub joue()
x = ActiveCell.Value 'nom du fichier
chemin = ThisWorkbook.Path & "" 'chemin du fichier wav
PlaySound chemin & x & ".Wav", 0, 0 'lecture du son
End Sub

Mets le fichier Wav dans le même répertoire que le fichier Excel
ThisWorkBook et ça devrait marcher
Amicalement
Sitting Hoax
"Serge Hipontoise" a écrit dans le message
de


news:41d3ebb4$0$953$
Bonjour à tous
Vous allez bien ?
J'ai une colonne contenant des noms de fichiers audios (wav, mp3, aif,
peu
importe). Une macro me permet de lier cette cellule au fichier audio
correspondant sur le disque dur et de jouer le fichier audio en
cliquant



sur
la cellule (lien)
Or, à chaque fois que je clique sur un lien, j'ai un message me
demandant



si
je suis bien sûr de vouloir ouvrir ce fichier ("Ouverture du fichier...
Certains fichiers peuvent contenir des virus, etc.)
Serait-il possible de désactiver cette demande de confirmation ?
Et tant que j'y suis, une autre question lièe à celà :
Y aurait-il moyen de lire le fichier audio directement "dans" Excel,
sans



lancer WMP ou Winamp, mais genre via un activex quelconque ?
Un grand merci à tous
et de joyeuses fêtes à tous les membres du forum !
Serge












Avatar
Serge Hipontoise
ok
merci à tous et Boooone annnnééééée !
Serge

"Sitting Hoax (BM)" a écrit dans le
message de news:
Tu peux m'appeler Sitting bien sûr puisque c'est mon prénom ;-))

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If ActiveCell.Value <> "" Then
On Error Resume Next 'au cas ou il n'y
'aurait pas le son dans le répertoire
joue
End If
End Sub

Merci Daniel aussi
à chaque changement de cellule, ça jouera le son
Amicalement
Sitting Hoax
"Serge Hipontoise" a écrit dans le message de
news:41d40cee$0$938$
C'est cool, merci Sitting (tu permets que je t'appelle Sitting ? ;o)

Mais du coup il faut lancer une macro pour la lecture, je perds donc en
souplesse par rapport au simple clic sur la cellule pour lancer le
fichier
A moins qu'il n'y ait moyen de lancer la macro en cliquant sur chaque
cellule ?
Tx
Serge




"Sitting Hoax (BM)" a écrit dans le
message de news: %
Bonjour, nous allons bien merci;-)
pour la première partie de la question,
Cancel=True peut être ?
avec la fonction Playsound, tu peux lire un fichier Wav directement
sans
ouvrir d'autre logiciel. Pour Mp3, je ne me rappelle plus la fonction.

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

Sub joue()
x = ActiveCell.Value 'nom du fichier
chemin = ThisWorkbook.Path & "" 'chemin du fichier wav
PlaySound chemin & x & ".Wav", 0, 0 'lecture du son
End Sub

Mets le fichier Wav dans le même répertoire que le fichier Excel
ThisWorkBook et ça devrait marcher
Amicalement
Sitting Hoax
"Serge Hipontoise" a écrit dans le message
de


news:41d3ebb4$0$953$
Bonjour à tous
Vous allez bien ?
J'ai une colonne contenant des noms de fichiers audios (wav, mp3, aif,
peu
importe). Une macro me permet de lier cette cellule au fichier audio
correspondant sur le disque dur et de jouer le fichier audio en
cliquant



sur
la cellule (lien)
Or, à chaque fois que je clique sur un lien, j'ai un message me
demandant



si
je suis bien sûr de vouloir ouvrir ce fichier ("Ouverture du
fichier...
Certains fichiers peuvent contenir des virus, etc.)
Serait-il possible de désactiver cette demande de confirmation ?
Et tant que j'y suis, une autre question lièe à celà :
Y aurait-il moyen de lire le fichier audio directement "dans" Excel,
sans



lancer WMP ou Winamp, mais genre via un activex quelconque ?
Un grand merci à tous
et de joyeuses fêtes à tous les membres du forum !
Serge