lancer un film en commande vba

Version imprimable

28/10/2012, 09h00
zergo

lancer un film en commande vba
Bonjour le forum

Cette commande fonctionne avec le film predefini.

Je voudrais lancer un film avec cette commande qui recupere le nom de la cellule

Merci
Code:

1 2 3 4 5 6 7 Private Sub CommandButton1_Click() Application.WindowState = xlMinimized Dim ID As Variant ID = Shell("""C:\Program Files\VideoLAN\VLC\VLC.exe"" ""Z:\13.avi""") UserForm1.Show 0 End End Sub
29/10/2012, 12h12
Jean-Philippe André

Salut,

je suppose que le nom du point avi est stocké dans la cellule Z13 ?

Tu lances le fichier via VLC, pourquoi derriere mettre un Userform.Show ?

Il te faut tester finalement la ligne de commande que tu souhaites lancer (cas des apostrophes, guillemets et autre accent seront des sources potentiels de bugs :))
03/11/2012, 09h15
zergo

Bonjour

Pour le Z c'est le map reseau sur un autre pc.

Je fait appel a un usf pour afficher la jaquette et un bouton qui lance le film sur le usf.
03/11/2012, 11h34
SfJ5Rpw8

Bonjour,

et il est ou ton nom de fichier AVI ? l'affiche tu sur ton userform (si oui comment) ..

heu

bonjour
je pensait que c'etait une cellule
Code:

1 2 3 4 5 6 7 8 Private Sub CommandButton1_Click() Application.WindowState = xlMinimized Dim ID As Variant ID = Shell("""C:\Program Files\VideoLAN\VLC\VLC.exe" & Chr(34) & [Z13].Text & ".avi" & Chr(34)) UserForm1.Show 0 End End Sub
mais visiblement ca n'etait pas le cas
apres tu dis visualiser le film sur ton userform
utilise tu le composant media player ?

03/11/2012, 16h12
zergo

bonjour a tous

dans la colonne B le nom des films.

en cliquant sur une cellule de la colonne B j'ouvre un usf et affiche la jaquette , dans ce meme usf il y a un bouton "lancer le film" normalement il devrait reprendre le nom de la cellule et lancer le film avec VLC.
03/11/2012, 16h17
SfJ5Rpw8

Citation:

Envoyé par bbil

Bonjour,

et il est ou ton nom de fichier AVI ? l'affiche tu sur ton userform (si oui comment) ..

Quel est le code derrière ton bouton ?
03/11/2012, 16h26
zergo

Bonjour

les fichiers AVI sont sur un MAP en Z dans un repertoire films sur un autre pc.

J'ai un petit pc sous la télé en wifi avec mon pc de bureau qui a les films.

je lance le fichier excel en Raccourci du pc banché sur la télé et il ouvre VLC en plein écran.

Cordialement.
03/11/2012, 16h27
patricktoulon

re

re
ton idée m'interresse beaucoup
si tu est en train de te faire une sorte de media center sache que je suis sur le meme projet

comment le click sur la jacquette ou le bouton reprend l'adresse de la cellule en question

c'est ca que l'on voudrais savoir

un petit fichier en exemple serait le bien venu

au plaisir
03/11/2012, 16h38
zergo

J’ai un répertoire "jaquettes" qui contiens toutes les jaquettes de type DVD aussi le fichier excel 'titres des films'.
Dans un autre répertoire "films" il y a tous les fichiers AVI.

J'ai crée un lecteur réseau "Z" sur mon UC sous la télé que j'utilise pour regarder les films. Une souris sans fil pour pour tous gérer.
03/11/2012, 16h41
SfJ5Rpw8

Montre nous le code que tu utilise derrière ton bouton entre balises [ code] ..

Dis-nous ou ce trouve le nom de ton fichier AVI .?

Je reprends tous depuis le début.
J’ai deux pc un pc qui est connecté à la télé et en réseau wifi avec et connecté en lecteur réseau « Z\ » sur mon pc de bureau.
Sur mon pc de bureau j’ai un répertoire « films » partagé, dans ce répertoire il y a un répertoire « jaquettes » contenant le fichier « films.xls » ainsi que toutes les jaquettes vidéos de types « Jpg ».
Dans le fichier films il y a dans la colonne ‘B’ le titres des films exemple ‘300’ quand je clique sur le titre ‘300’ un usf s’ouvre avec l’affichage de la jaquette et dessous un bouton ‘lancer le film’.
Pour le code de l’affichage
Code:

1 2 3 4 5 6 7 8 9 Private Sub UserForm_Initialize() Dim Affiche As Variant Label1.Caption = ActiveCell.Value Image1.Picture = LoadPicture() Affiche = ThisWorkbook.Path & "\" & Label1.Caption & ".jpg" If Dir(Affiche) <> "" Then Image1.Picture = LoadPicture(Affiche) End If End Sub
Mais pour lancer le film je n’ai que ce code

P
Code:

1 2 3 4 5 rivate Sub CommandButton1_Click() Dim Film As Variant Dim ID As Variant ID = Shell("""C:\Program Files\VideoLAN\VLC\vlc.exe"" ""Z:\300.avi""") End Sub
'Z' est le lecteur réseau sur mon pc bureau.
'300' Est le film.
Je pence que l’explication est correct

Cordialement

03/11/2012, 18h02
SfJ5Rpw8

essai ;)

Code:

ID = Shell("""C:\Program Files\VideoLAN\VLC\vlc.exe"" ""Z:\" & Label1.Caption & ".avi""")

Bonsoir

La ligne de commande fonctionne. Ca marche

Merci

Pour les personnes que cela interesse voici les codes.

Lignes a mettre dans la feuille.

Code:

1
2
3
4
5
6
7
8
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
    If Not Application.Intersect(Target, [B3:B5000]) Is Nothing Then
        Unload UserForm1
        UserForm1.Show 0
    End If
 
End Sub

lignes a mettre dans le usf

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub CommandButton1_Click()
Dim Film As Variant
Dim ID As Variant
ID = Shell("""C:\Program Files\VideoLAN\VLC\vlc.exe"" ""Z:\" & Label1.Caption & ".avi""")
End Sub
 
Private Sub UserForm_Initialize()
    Dim Affiche As Variant
    Label1.Caption = ActiveCell.Value
    Image1.Picture = LoadPicture()
    Affiche = ThisWorkbook.Path & "\" & Label1.Caption & ".jpg"
    If Dir(Affiche) <> "" Then
        Image1.Picture = LoadPicture(Affiche)
     End If
 
End Sub

et encore merci de votre aide.