Discussion :

[grisan29]

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

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

mais le fichier va dans .tag qu'est ce???

merci par avance

Pascal

[casefayere]

Comme toi, je ne comprends pas car, si on ajoute MsgBox derrière cette ligne

Code :

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

leFichier = ListView1.ListItems.Item(ListView1.SelectedItem.Index).Tag

soit

Code :

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

1
2
3
4
...
leFichier = ListView1.ListItems.Item(ListView1.SelectedItem.Index).Tag
    MsgBox leFichier
...

l'extension n'est pas incluse, donc

Code :

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

1
2
If Right(leFichier, 4) = ".xls" Then
...

même si on mettait :

Code :

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

If Right(leFichier, 5) = ".xlsm"

ne peut pas retourner un résultat,

Je cherche donc comment retrouver l'extension avec ce programme

[grisan29]

Bonsoir Dom
c'est a la suite de cette discussion que je me suis dit que dans les tutos il devait bien y avoir du ressemblant avec une listview car c'est ce que j'utilise le plus
je ne saisi pas ce qu'il a écrit en feuil1 au dessus du bouton

L'exemple proposé dans ce classeur permet de choisir un répertoire à partir d'une boîte de dialogue puis d'en afficher le contenu
dans le style du volet droit de l'explorateur Windows.

ce doit etre l'affichage dans la listview à mon avis
Pascal

[casefayere]

A la différence que sur le fichier que j'ai proposé, on peut ouvrir la sélection, il suffit de (pour un double-click)

Code :

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

1
2
3
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Workbooks.Open ListBox1
End Sub

[grisan29]

re dom
oui mais de toute façon il y a une différence quand on lit la procédure au niveau du bouton1 qui n'est pas codé pareil que sur le fichier téléchargé

Pascal
edit
ne peut'on pas remplir la listview directement en prenant les données dans c:\facturation\devis dès l'appui sur le bouton d'ouverture de cet usf ????
voici le lien qui mene au fichier de sylkyroad mais auquel j'ai mis 2 boutons 1 pour fermer et un autre pour valider quand la ligne est sélectionnée dans la listview
http://cjoint.com/?CIpu0DkyUd1
Pascal

[casefayere]

Je l'avais ce fichier,

Pour l'instant, j'ai trouvé une solution (à adapter), uniquement pour ce fichier, car on peut concevoir autrement.

Pour le Double-Click

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
22
23
24
'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
    'ci-dessous, on ne prend que ".xlm" ou ".xlsm"
    If ExisteFichier(leFichier & ".xlsm") = True Then
      ThisWorkbook.FollowHyperlink leFichier & ".xlsm"
      leFichier = leFichier & ".xlsm"
    ElseIf ExisteFichier(leFichier & ".xls") = True Then
      ThisWorkbook.FollowHyperlink leFichier & ".xls"
      leFichier = leFichier & ".xlsm"
    End If
 
    ShellExecute 0, "open", leFichier, "", "", vbNormalFocus
End Sub

et on ajoute cette fonction dans un module

Code :

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

1
2
3
Function ExisteFichier(nomfic As String) As Boolean
ExisteFichier = (Dir(nomfic) <> "")
End Function

c'est tarabiscoté mais ça dépanne