Discussion :

[Patouillou]

Bonjour, j'ai actuellement un userform qui me permet de rechercher des valeurs dans mon tableau .
Aujourd'hui, je lui ai rajouté une fonction permettant, que lorsque qu'un double clic est effectué sur , par exemple, la ligne 2 qui correspond à l'HYD2 , il m'ouvre le fichier correspondant.
Mon problème aujourd'hui, c'est qu'il m'ouvre bien le dossier , mais en petit et lorsque que je double clic sur une photo , ou un fichier pdf , ou un fichier world, ect. Il me ferme cette fenêtre au lieu d'ouvrir le fichier voulu...
Voici le code de la partie double-clic :

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
25
26
27
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean) 'au double-clic dans la ListBox1
Dim I As Integer 'déclare la variable I (Incrément)
Dim J As Integer 'déclare la variable J (Incrément)
Dim LeParcours As String
 
For I = 0 To Me.ListBox1.ListCount - 1 'Boucle 1 : sur toutes les lignes de la ListBox1
 
    If Me.ListBox1.Selected(I) = True Then 'condition 1 : si la ligne est sélectionnée
        For J = 2 To NL 'boucle 2 : sur toutes les lignes du tabelau TC
            If TC(J, 2) = Me.ListBox1.Column(1, I) Then 'condition 2 : si les numéros de HYD sont égaux
                O.Rows(J).Select 'sélecionne la ligne J de l'onglet O
                Unload Me
                LeParcours = Me.ListBox1.Column(1, I)
ChDir "C:\Users\prive\Dropbox\HYD2014\HYD" & LeParcours & "/"
Application.GetOpenFilename
                 'vide et ferme l'Usersorm
 
 
 
 
                Exit Sub 'sort de la procédure
            End If 'fin de la condition 2
        Next J 'prochaine ligne de la boucle 2
    End If 'fin de la condition 1
Next I 'prochaine ligne de la boucle 1
 
End Sub

Merci à vous ! :p
Cordialement

[Quentin77170]

Bonsoir

As-tu essayé par ce biais :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
With Application.FileDialog(msoFileDialogFilePicker)
    .InitialFileName = "C:\Users\prive\Dropbox\HYD2014\HYD" & LeParcours & "\"
    .AllowMultiSelect = True
    .Filters.Clear
    .Filters.Add "Tous les fichiers", "*.*"
    .Title = "Choisissez vos fichiers à ouvrir"
    .Show
 
    For i = 1 To .SelectedItems.Count
        ActiveWorkbook.FollowHyperlink .SelectedItems(i)
    Next i
End With

?

[Patouillou]

Bonjour quentin,
merci pour ta réponse, mais les 3 dernières ligne ne fonctionnent pas , (

Code :

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

1
2
3
For i = 1 To .SelectedItems.Count
        ActiveWorkbook.FollowHyperlink .SelectedItems(i)
    Next i

)
Cordialement

[Quentin77170]

Bizarre !

Chez moi cela fonctionne parfaitement... L'as-tu bien laissé entre le With et End With ?
Ou peut-être que sous Office 2013 ça ne fonctionne plus (J'utilise 2010).

Si tu ne sélectionnes aucun fichier, cela ne fait rien, si tu en sélectionnes au moins un, ça va les ouvrir l'un après l'autre.

Je vais essayer d'y réfléchir.

Quand tu dis que ça ne fonctionne pas, ça te fait une erreur ? Si oui, laquelle ?

[Patouillou]

En fait, je ne veux pas ouvrir un fichier , je veux ouvrir l'explorateur Windows , comme si j'allais voir un dossier , je ne veux pas ouvrir de fichier en particulier, mais un dossier ..
J'ai essayé ce code :

Code :

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

1
2
3
4
5
LeParcours = Me.ListBox1.Column(1, I)
        Dim Chemin As String
 
     Chemin = "C:\Users\prive\Dropbox\HYD2014\HYD" & LeParcours & "/"
    Shell Chemin, vbMaximizedFocus

Mais une erreur parviens : Erreur d'exécution "5" , argument ou appel de procédure incorrecte .


Merci de ton aide :p !

C'est bon , j'ai trouvé !!

Code :

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

1
2
3
4
5
6
 LeParcours = Me.ListBox1.Column(1, I)
                Chemin = "C:\Users\prive\Dropbox\HYD2014\HYD" & LeParcours
           Application.DisplayFullScreen = False
       Dim objShell As Shell
 Set objShell = New Shell
 objShell.Explore (Chemin)

Merci de ton aide :p !

[Quentin77170]

Aah ok Pour ouvrir le dossier, si tu as déjà le lien, pourquoi ne pas faire 'simplement' :

Code :

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

1
2
Chemin = "C:\Users\emmanuel-baigne\Dropbox\HYD2014\HYD" & LeParcours & "/"
ActiveWorkbook.FollowHyperlink Chemin

Après, si tu veux choisir le(s) dossier(s) à ouvrir dans la macro, alors tu peux utiliser le même code que j'ai envoyé plus tôt avec :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
With Application.FileDialog(msoFileDialogFolderPicker)
    .InitialFileName = "C:\Users\prive\Dropbox\HYD2014\HYD" & LeParcours & "\"
    .AllowMultiSelect = True
    .Title = "Choisissez vos dossier à ouvrir"
    .Show
 
    For i = 1 To .SelectedItems.Count
        ActiveWorkbook.FollowHyperlink .SelectedItems(i)
    Next i
 
End With

Après, rien ne t'empêche d'utiliser le FileDialog pour les dossiers (ci-dessus) et juste de récupérer les chemins à l'aide du .SelectedItems(i) et les ouvrir avec des Shells Comme tu veux !