Ouvrir après sélection dans une listview

Version imprimable

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:

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

15/09/2013, 20h01
casefayere
Comme toi, je ne comprends pas car, si on ajoute MsgBox derrière cette ligne

Code:

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

soit
Code:

1 2 3 4 ... leFichier = ListView1.ListItems.Item(ListView1.SelectedItem.Index).Tag MsgBox leFichier ...
l'extension n'est pas incluse, donc
Code:

1 2 If Right(leFichier, 4) = ".xls" Then ...
même si on mettait :

Code:

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

ne peut pas retourner un résultat,

Je cherche donc comment retrouver l'extension avec ce programme
15/09/2013, 20h14
grisan29

Bonsoir Dom:ccool:
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

Citation:

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
15/09/2013, 20h22
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:

1 2 3 Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean) Workbooks.Open ListBox1 End Sub
15/09/2013, 20h30
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

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:

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:

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

c'est tarabiscoté mais ça dépanne

15/09/2013, 21h46
grisan29

re Dom :ccool:
c'est peut être tarabiscoté mais en effet cela fonctionne :ccool:
il faudra transmettre a sylkyroad le défaut ;)

ce que j'ai demandé dans la réponse précédente est réalisable où pas

Pascal
15/09/2013, 22h00
casefayere

Citation:

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 ????

Oui c'est réalisable, si tu préfères cette présentation mais il faut tout remanier, pour moi ça ne sera pas pour ce soir.
15/09/2013, 22h18
grisan29

re Dom

je te l'ai demandé pour savoir si c'était réalisable, mais si ça l'est ce n'est surement pas pour ce soir que je le voulais
ce soir tu doit etre comme moi :zzz:;)

Pascal

bonjour casefayere

j'ai fouillé mes archices vba et je suis tombé par hasard sur une siolution qui marche et dont je t'en fait part pour contrôle en fait je t'envoi tout le code de l'usf

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
Option Explicit
 
Dim Chemin As String
Private Sub CommandButton1_Click()
    Chemin = "C:\facturation\facture\"
    Workbooks.Open Chemin & "\" & Me.ListView1.SelectedItem.Text
    Unload Me
End Sub
Private Sub CommandButton2_Click()
    Unload Me
End Sub
Private Sub UserForm_Initialize()
    Dim Fichier As Object, FSO As Object, C As Range, Ctr As Long, F As Object
    Chemin = "C:\facturation\facture\"
    Set FSO = CreateObject("Scripting.FileSystemObject")
    'Définit les entêtes de colonnes
    With ListView1
        With .ColumnHeaders
            .Clear 'Supprime les anciens entêtes
            'Ajout des colonnes
            .Add , , "Nom fichier", 200
            .Add , , "Taille (ko)", 50, lvwColumnRight
            .Add , , "Créé le", 60, lvwColumnCenter
            .Add , , "Modifié le", 60, lvwColumnCenter
            .Add , , "Commentaires", 190, lvwColumnLeft
        End With
 
    .View = lvwReport 'affichage en mode Rapport
    .Gridlines = True 'affichage d'un quadrillage
    .FullRowSelect = True 'Sélection des lignes comlètes
    End With
 
    '----- Remplissage ListView------------------------
 
    With ListView1
        For Each Fichier In FSO.getfolder(Chemin).Files
            Ctr = Ctr + 1
            .ListItems.Add , , Fichier.Name
            .ListItems(Ctr).ListSubItems.Add , , Fichier.Name
            .ListItems(Ctr).ListSubItems.Add , , Fichier.Size / 1024
            .ListItems(Ctr).ListSubItems.Add , , Fichier.datecreated
            .ListItems(Ctr).ListSubItems.Add , , Fichier.datelastmodified
        Next Fichier
    End With
End Sub

j'attends ta réponse pour clore le post

Pascal