bonjour a vous tous
dans le fichier que Sylkyroad a mis dans ce tutoriel
comment peut'on par le double clic ouvrir la feuille sélectionnée dans excel
il le fait par ce code
mais le fichier va dans .tag qu'est ce???
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 'Ouvre le fichier par un double clic sur la ligne Private Sub ListView1_DblClick() Dim leFichier As String Dim oList As Object On Error Resume Next Set oList = ListView1.SelectedItem If oList Is Nothing Then Exit Sub On Error GoTo 0 'Le chemin complet est stocké dans le Tag leFichier = ListView1.ListItems.Item(ListView1.SelectedItem.Index).Tag Unload Me If Right(leFichier, 4) = ".xls" Then ThisWorkbook.FollowHyperlink leFichier Else ShellExecute 0, "open", leFichier, "", "", vbNormalFocus End If End Sub
merci par avance
Pascal
Partager