renvoyer valeur cellule dans formule

matlatarte

XLDnaute Junior
bonjour,

j'ai la valeur en A1 qui varie et jaimerai l'appeler pour completer une formule soundplay

ex : si j'ai "\500.wav" en a1 et j'aimerai

Application.ExecuteExcel4Macro "SOUND.PLAY(,""" & ActiveWorkbook.Path & "\500.wav"")" au final (formule qui marche)

j'ai essayé Application.ExecuteExcel4Macro "SOUND.PLAY(,""" & ActiveWorkbook.Path & "range("A1")"")"

mais cela ne marche pas.... pouvez vous m'aider ?

dans le fichier d'exemple la formule à rectifier est dans la macro du bouton 18 (jai mis des fichiers son pour le test)


merci
 

Pièces jointes

  • bouton.zip
    538.7 KB · Affichages: 42

Staple1600

XLDnaute Barbatruc
Bonjour à tous

Test Ok avec cette syntaxe (testé avec Excel 2013)
VB:
Sub Jouer_Fichier_WAV()
Dim strPath As String
strPath = ActiveWorkbook.Path
Application.ExecuteExcel4Macro "SOUND.PLAY(,""" & strPath & Feuil1.[A1].Text & """)"
End Sub
Le fichier wav étant dans le dossier du classeur actif.
 

Jacky67

XLDnaute Barbatruc
bonjour,

j'ai la valeur en A1 qui varie et jaimerai l'appeler pour completer une formule soundplay

ex : si j'ai "\500.wav" en a1 et j'aimerai

Application.ExecuteExcel4Macro "SOUND.PLAY(,""" & ActiveWorkbook.Path & "\500.wav"")" au final (formule qui marche)

j'ai essayé Application.ExecuteExcel4Macro "SOUND.PLAY(,""" & ActiveWorkbook.Path & "range("A1")"")"

mais cela ne marche pas.... pouvez vous m'aider ?

dans le fichier d'exemple la formule à rectifier est dans la macro du bouton 18 (jai mis des fichiers son pour le test)


merci
Bonjour,
Avec le nom en A1
Dans ton exemple cela serait:==> 60dB500HP1.wav
Essaye
VB:
Application.ExecuteExcel4Macro "SOUND.PLAY(,""" & ActiveWorkbook.Path & "\" & Range("A1") & """)"
 

jecherche

XLDnaute Occasionnel
Bonjour,

Une autre version basée sur le post #7 de Hulk de ce lien : https://www.excel-downloads.com/threads/jouer-un-son-vba.140675/
Code:
Declare Function sndPlaySound32 Lib "C:\WINDOWS\SYSTEM32\winmm.dll" _
    Alias "sndPlaySoundA" (ByVal lpszSoundName As String, _
    ByVal uFlags As Long) As Long

Sub Bouton18_Cliquer()
Dim NomFich As String

   NomFich = ActiveWorkbook.Path & Sheets("Test").Range("A1").Value
   Call sndPlaySound32(NomFich, 0)
End Sub


Jecherche
 

Discussions similaires

Statistiques des forums

Discussions
311 720
Messages
2 081 917
Membres
101 839
dernier inscrit
laurentEstrées