renvoyer valeur cellule dans formule

matlatarte

XLDnaute Nouveau
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
 

Fichiers joints

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 Accro
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") & """)"
 

Staple1600

XLDnaute Barbatruc
Bonjour Jacky67

En somme la même syntaxe que celle publiée dans le message#2 ;)
(en tout cas pour ce qui est du nombre de guillemets)
 

jecherche

XLDnaute Occasionnel
Bonjour,

Une autre version basée sur le post #7 de Hulk de ce lien : http://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
 

Jacky67

XLDnaute Accro
Bonjour Jacky67

En somme la même syntaxe que celle publiée dans le message#2 ;)
(en tout cas pour ce qui est du nombre de guillemets)
Bonjour Staple1600
Oui, nos réponses se sont croisées le temps d'une note de musique:D
Et même que les deux syntaxes fonctionnent:)
Reste plus qu'au demandeur de choisir l'une ou l'autre
 

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas