Bonjour,

j'ai une base dans laquelle je stock des lien Hypertext qui pointe soit vers des documents interne (sur mon DD) soit vers des sites internet.

Les document internes sont de divers types (Video, Photo, .doc, .xls etc...) il y a t'il un moyen de lancer ces documents depuis le code VBA ??

J'ai essayé avec Shell, mais cela ne marche pas car il faut lui preciser l'application a lancer.

merci.

P.S. : je donne mon code, mais cela n'a pas grande utilitée.

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
17
18
19
20
21
Private Sub TreeView_DblClick()
'On Error Resume Next
    Dim chemin As String
    Dim NodX As Node
    Dim cle As Integer
 
    Set Rs = CurrentDb.OpenRecordset("DOCS")
    Set NodX = TreeView.SelectedItem
    LaPosition = InStr(1, NodX.Key, "D")
    If LaPosition = 0 Then Exit Sub
    cle = Right(NodX.Key, (Len(NodX.Key) - 1))
    Rs.MoveFirst
    Do
    chemin = IIf(Rs.Fields("IDOCS").Value = LaPosition, CStr(Rs.Fields("DOC").Value), "")
    Rs.MoveNext
    Loop Until Rs.EOF = True
    chemin = Right(chemin, (Len(chemin) - 1))
    chemin = Left(chemin, (Len(chemin) - 1))
    Shell chemin
 
End Sub