Ouverture fichier .XLS à partir de combobox

Question

Bonjour, 

J'ai créé un dashboard pour mon travail dans le but d'automatiser et de planifier notre activité.

Je bloque sur un code qui permettrait à l'utilisateur de sélectionner un fichier dans la combobox et de l'ouvrir à l'aide d'un bouton de commande
Peut-être y'a-t-il plus simple...

Pouvez-vous m'aider please?

Pour le moment voici le code : 

Option Explicit

Private Sub CommandButton1_Click()
C'est ici qu'il me manque le code qui permettra d'ouvrir le fichier sélectionné
End Sub


Private Sub CommandButton2_Click() 


Unload Me 'ferme l'UF


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

bigfish_le vrai · Answer

Salut,

interesse toi à la methode "Open" de la collection "Workbooks".

sullivan95 · Answer

ok merci, j'essayerai au bureau demain!

Ouverture fichier .XLS à partir de combobox

2 réponses

Votre réponse

Discussions similaires