Discussion :

[willou-78]

Bonjour,

J'ai une BDD avec extension .mde comportant des bandes annonces de films que je pouvais jouer dans un formulaire. Ayant perdu la source et voulant modifier les formulaire, je suis reparti de zéro
J'ai installé VLC version 2.1.3 (32 bits)
Dans mon formulaire, j'ai placé un contrôle Active X (VLC....)
Avec ce code, je suis parvenu à jouer la vidéo qui est prise par la variable strURL

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Private Sub Form_Current()
    Dim player As VLCPlugin2
    Set player = Me.Lecteur.object
 
    Dim strURL As String
    strURL = "File:///D:\Bases\Bandes annonce\Jason Bourne 1 - La mémoire dans la peau.mp4"
    Lecteur.playlist.Add strURL
    Lecteur.playlist.play
End Sub

Comment remplacer le petit bout de code ci-dessous par un champs qui contient le chemin du fichier ?

Code :

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

1
2
 
"File:///D:\Bases\Bandes annonce\Jason Bourne 1 - La mémoire dans la peau.mp4"

Merci

[willou-78]

Je viens de me rendre compte que ce code ne donne pas le même résultat d'un PC à l'autre
Pourtant, il s'agit des 2 même PC (Lenovo W520), même version de windows, pack office et VLC

le code fonctionne bien sur le PC N°1 mais pas le N°2.
Hier, c'était l'inverse, le code fonctionnait sur le PC N°2 et pas sur le N°1

Néanmoins, ma BDD avec extension .mde fonctionne correctement sur les 2 PC...

Je dois donc trouver un code "générique"

L'idée est de trouver un code avec le fonctionnement suivant :

Dans un formulaire
un lecteur VLC
un champs contenant le chemin du fichier (généré automatiquement par la requête lié au formulaire)
lancement de la vidéo automatiquement à l'ouverture du formulaire

Avez-vous une idée ?
Merci

[willou-78]

Bonjour,

Problème résolu concernant la différence entre mes 2 PC. Maintenant le code fonctionne exactement de la même manière sur les 2 PC

Le problème est que je ne sais toujours pas comment je peux remplacer ce code par une variable

Code :

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

1
2
 
"File:///D:\Bases\Bandes annonce\Jason Bourne 1 - La mémoire dans la peau.mp4"

[tee_grandbois]

bonjour,

Le problème est que je ne sais toujours pas comment je peux remplacer ce code par une variable

tu donnes pourtant la solution:

un champs contenant le chemin du fichier (généré automatiquement par la requête lié au formulaire)

Code :

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

strURL = Me.LeNomduChampduFormulaire

[willou-78]

Je ne pensais pas que File:/// pouvait être mis dans la variable. Effectivement ça fonctionne.
Merci


Voici mon code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Form_Load()
  Dim player As VLCPlugin2
 
    Set player = Me.Lecteur.Object '
 
    Dim strURL As String
    strURL = Me.TexteChemin.Value
 
    Lecteur.playlist.Add strURL
    Lecteur.playlist.play
 
End Sub

et la source mise dans le champs TexteChemin

Code :

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

="File:///D:\Bases\Bandes Annonces\" & [Titre] & (VraiFaux([Ajout]<>"0";" ";"")) & [Ajout] & ".mp4"