Discussion :

[zergo]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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 )

[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.

[SfJ5Rpw8]

Bonjour,

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

[patricktoulon]

bonjour
je pensait que c'etait une cellule

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ?

[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.

[SfJ5Rpw8]

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 ?

[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.

[patricktoulon]

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

[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.

[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 .?

[zergo]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[SfJ5Rpw8]

essai

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[zergo]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.