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