ouvrir un programme dans une macro

[Electron24]

Bonjour,

Voici mon problème, je souhaiterai mettre un bouton dans une feuille qui me lancerai un programme.
Ex: dans la feuille "Films" mettre un bouton "Lancer" qui grâce à une macro m'ouvrirait le programme: "Film.exe"
Merci d'avance pour votre aide.
Electron24

 

[Bernard_XLD]

Bonjour

un exemple dans ce fil
https://www.excel-downloads.com/threads/ouvrir-chrome.20025844/#post-20196041
une recherche "shell" sur le forum te renverra plein d'exemples

Cordialement

 

[Electron24]

Bonsoir Yeahou
Merci pour votre réponse rapide mais je ne comprends pas grand chose dans ce lien.
Y a t il pas quelque chose de plus simple car mes connaissances sont très limitées.

 

[Bernard_XLD]

la commande est
Shell "C:\cheminfichier\Film.exe" à placer dans le code de ton bouton

 

[Electron24]

Ok merci mais j'ai un message d'erreur. j'envoi le fichier joint allégé

 

[Electron24]

rien ne fonctionne, je n'arrive pas à envoyer le fichier . Pourriez vous me donner la macro complète à insérer dans mon bouton. Je suis vraiment nul. Merci

 

[Bernard_XLD]

Bonjour

c'est pourtant difficile de faire plus simple
voila la commande qui lance la calculatrice
Shell "C:\Windows\System32\calc.exe"
et voici un fichier exemple

Cordialement

 

[Electron24]

Super génial ca marche
autre question : Est il possible d'ouvrir un fichier vidéo du genre .VOB ou .MPG avec une macro ?

 

[Electron24]

Bonjour à tous
Je reviens vers vous car après plusieurs recherche sur le net j'ai trouvé une macro qui me permettrais d’exécuter une vidéo.
Mais le souci c'est que j'arrive à ouvrir VLC et ensuite j'ai un message d'erreur.
Ci joint la macro :

Sub PlayVideo()
  Dim Path_Name, File_Name, Complete_File_Name As String
  Dim Chemin_File_Name, Question As String

    File_Name = ActiveWorkbook.Name
    Path_Name = ThisWorkbook.Path
    Chemin_File_Name = Path_Name & "\" & "Films\" & [C4] & "\"
    Complete_File_Name = Chemin_File_Name & [O4]

  If [J4] = "NON" Or [I4] <> "D.D." Or [W6] = 0 Then
    MsgBox "La vidéo n'est pas disponible sur ce P.C.!!! ", vbOKOnly + vbInformation, "Information"
  Exit Sub
  Else
    Range("S6") = Chemin_File_Name
    Range("S7") = Range("O4")
    Question = MsgBox("Voulez-vous visionner la vidéo : " & [C4], vbYesNo + vbQuestion, "Voir une Vidéo.")

If Question = vbYes Then
    File_Name = [S6] & [S7]

    MsgBox File_Name    ' & Path_Name
  
    Shell """C:\Program Files (x86)\VideoLAN\VLC\vlc.exe"" ""& file_name""", vbMaximizedFocus    

Else: Exit Sub
    End If
        End If
End Sub

Pourriez vous y jeter un œil et m'aider. Merci