Mais imaginons que tu ai le nom du dosssier en A1 et le nom du fichier en B1 et que tu doubles clique en B1 et imaginons (ou rêvons ) que tu ai Media Player classic.
Tu peux tester:
Code:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
NF = ActiveCell.Offset(0, -1) & "\" & ActiveCell
Shell ("D:\Michel\A garder\mplayerc.exe " & Chr$(34) & NF & Chr$(34))
End Sub
Après avoir téléchargé le fichier que je viens de joindre...
Je constate avec stupeur que sa marche...
Peut être étais-je en mode création..
...
En tout cas merci !