Discussion :

[Benez]

Bonjour à tous,

J'ai développé une base Access permettant d'accéder à la liste des films présents sur mon disque dur et de donner des informations sur ceux-ci. J'aimerais pouvoir lancer le film en cliquant sur l'image du film qui est généré à côté du titre.

Malheureusement, je ne m'y connais pas beaucoup en VBA, et malgré mes recherches dans les différents tutoriels, je ne suis pas parvenu à ouvrir mon fichier.

J'arrive à accéder au dossier (je suppose), mais pas à l'ouvrir, grâce à ce bout de code pompé sur un tuto :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub Image207_Click()
 
Dim oFSO As Scripting.FileSystemObject
Dim oFld As Folder
 
'Instanciation du FSO
Set oFSO = New Scripting.FileSystemObject
'Accède au dossier
Set oFld = oFSO.GetFolder("D:\Films\)
 
End Sub

Mais ce que je voudrais, c'est entrer dans le dossier, et sélectionner le bon film, et l'ouvrir. En gros quelque chose comme ça:

Code :

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

 DoCmd.OpenFile "D:\Films\" & [Titre_film] & ".avi"

Mais je ne sais pas vraiment quoi définir autour pour que ça fonctionne.

Si vous savez comment faire pour résoudre mon problème, je vous suis tout ouïe.

Cordialement,
Benez

[Domi2]

Bonjour,

Le plus simple est certainement d'utiliser l'API ShellExecute. Voir la FAQ.

Domi2

[Benez]

Merci pour ta réponse, Domi2.

Je n'ai pas encore eu le temps de m'occuper de ça, je te tiendrai au courant de si ça fonctionne lorsque j'aurai essayé.

[Benez]

J'ai testé avec l'API ShellExecute, ça fonctionne parfaitement.

Merci beaucoup Domi2 !

Cordialement,
Benez