Bonsoir,
Dans une listbox j'ai une liste de fichier .doc.
Quand je clique sur l'un de ces fichier je souhaiterai qu'il s'ouvre dans word.
Voici mon code:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
Private Sub LstFichier_Click()
Dim DocWord As Word.Document
Dim chemin As String
chemin = Me.LstFichier.ItemData
Set DocWord = GetObject("chemin")
DocWord.Activate
 
End Sub
Mais ce ne fonctionne pas....