Discussion :

[sullivan95]

Bonjour,

Je rencontre un petit problème au niveau d'une combobox activé dans un userform.
En effet, celle-ci liste les fichiers d'un répertoire, jusque là pas de soucis.
Ce que je souhaite, c'est lorsque l'utilisateur sélectionne un fichier dans la combobox et qu'il appuie sur un bouton de commande ("ouvrir"), alors ce fichier s'ouvre.

Quelqu'un saurait-il comment faire?

Pour le moment voici le code complet de mon UF :

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
Option Explicit
 
Private Sub CommandButton1_Click()
'C'est ici qu'il me manque le code qui permettra d'ouvrir le fichier sélectionné dans la combobox
 
End Sub
 
Private Sub CommandButton2_Click()
 
Unload Me
 
End Sub
 
Private Sub UserForm_Activate()
Dim I As Integer, Chemin As String, Fichier As String
Chemin = "S:\257S\Fiches sociétés\*.xls"
Fichier = Dir(Chemin)
Do While (Len(Fichier) > 0)
Me.ComboBox1.AddItem Fichier
Fichier = Dir()
Loop
End Sub

[aalex_38]

Un exemple pour afficher le nom selectionné dans ta combobox :

Code :

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

1
2
3
4
Private Sub ComboBox1_Change()
Choix_CO1 = ComboBox1.List(ComboBox1.ListIndex)
MsgBox Choix_CO1
End Sub

[sullivan95]

Ce code ne permet pas d'ouvrir le fichier malheureusement.
Tous les fichiers de mon répertoire apparaissent bien dans la combobox, ce que je souhaite c'est que cliquant sur le bouton, le fichier sélectionné dans la combobox s'ouvre.

[aalex_38]

A pardon répondu trop vite, pour récupérer le nom de fichier il faut mettre ce code dans le code du bouton.

Si tu ne sais pas ouvrir un fichier avec son nom, tu dis ou tu utilises l'enregistreur de macro

[sullivan95]

Je n'y arrive pas avec l'enregistreur de macro.
Peut-être ne suis-je pas assez clair dans mon processus?

[aalex_38]

Un exemple de code dans le bouton :

Code :

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

1
2
3
4
5
6
7
Private Sub CommandButton1_Click()
If ComboBox1.ListIndex <> -1 Then
    Choix_CO1 = ComboBox1.List(ComboBox1.ListIndex)
    MsgBox Choix_CO1 ' A la place gérer l'ouverture du fichier
    Unload Me
End If
End Sub

En reprenant ton exemple j'ai dans le code de l'userform :

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
 Const MonChemin As String = "v:\Visual Basic\VBA Excel\test\"
 
Private Sub CommandButton1_Click()
If ComboBox1.ListIndex <> -1 Then
    Choix_CO1 = ComboBox1.List(ComboBox1.ListIndex)
    MsgBox Choix_CO1 ' A la place gérer l'ouverture du fichier
    Workbooks.Open Filename:=MonChemin & Choix_CO1
    Unload Me
End If
End Sub
 
Private Sub UserForm_Activate()
Dim I As Integer, Chemin As String, Fichier As String
Chemin = MonChemin & "*.xls"
Fichier = Dir(Chemin)
Do While (Len(Fichier) > 0)
Me.ComboBox1.AddItem Fichier
Fichier = Dir()
Loop
End Sub