XL 2016 Accéder à un chemin d'un répertoire via un comboBox

[aba2s]

Bonjour la communauté,

Je souhaiterai importer mes données via un userform. La macro d'importation marche nickel. Ce que je souhaite c'est qu'en défilant le filtre (CommandButton1) pouvoir accéder à mon répertoire et choisir mon fichier à importer.

Merci d'avance pour votre aide !

Merci

 

[Santulud]

Bonjour aba2s,

j'ai eu le même problème que toi il y a quelque temps, et je me suis servi du code suivant :

Private Sub CommandButton1_Click()
Dim wbSource, wbFichierUsager As Workbook

Dim strFileName As String, chemin As String

Dim intChoice As Integer   'Déclarer les variables de base
Dim nl As Integer

Set wbFichierUsager = ThisWorkbook

' On va appeler une application de MS Office afin de chercher et d’ouvrir le bon fichier

' Avec la commande qui suit, on indique que nous ne voulons qu’un seul fichier

Application.FileDialog(msoFileDialogOpen).AllowMultiSelect = False

'  On affiche l’écran de dialogue de MS Office

Application.FileDialog(msoFileDialogOpen).InitialFileName = "C:\chemin du fihier\"
intChoice = Application.FileDialog(msoFileDialogOpen).Show

'  On s’assure que l’usager a fait un choix

If intChoice <> 0 Then

'   On récupère le nom complet du fichier

strFileName = Application.FileDialog(msoFileDialogOpen).SelectedItems(1)

Workbooks.Open strFileName


'   Sinon, on arrête tout en notifiant l’usager

Else

' S’il n’y a pas de fichier, on quitte sans rien faire

MsgBox "La procédure est annulée car aucun fichier n’a été entré."

Exit Sub

End If

Le code fonctionne très bien pour moi, pense a mettre a entrée le chemin de ton repertoir sans oublier de mettre un "\" a la fin (sinon ca ne marchera pas correctement).

 

[aba2s]

Bonjour @Santulud ,

Merci pour ton aide.

En fait ce que je voudrais c'est de le faire à partir d'un userFrom.
J'ai déjà une macro qui importe les données comme celle que tu viens de me partager

Merci