renvoyer valeur cellule dans formule

matlatarte · 17 Septembre 2016

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

Staple1600 · 17 Septembre 2016

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 · 17 Septembre 2016

matlatarte à dit:
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 · 17 Septembre 2016

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)

matlatarte · 17 Septembre 2016

merci methode jacky marche impec !

jecherche · 17 Septembre 2016

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

Jacky67 · 17 Septembre 2016

Staple1600 à dit:
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😀
Et même que les deux syntaxes fonctionnent🙂
Reste plus qu'au demandeur de choisir l'une ou l'autre

renvoyer valeur cellule dans formule

matlatarte

XLDnaute Junior

Pièces jointes

Staple1600

XLDnaute Barbatruc

Jacky67

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

matlatarte

XLDnaute Junior

jecherche

XLDnaute Occasionnel

Jacky67

XLDnaute Barbatruc

Discussions similaires

renvoyer valeur cellule dans formule

matlatarte

XLDnaute Junior

Pièces jointes

Staple1600

XLDnaute Barbatruc

Jacky67

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

matlatarte

XLDnaute Junior

jecherche

XLDnaute Occasionnel

Jacky67

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency