[VBA] Lancer un document depuis le code VBA
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:
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 |
