Menu déroulant pour rechercher un fichier

[controlo]

Bonsoir ,

Je voudrais mettre dans une USERFORM un genre de combobox pour rechercher un fichier en parcourant les dossiers et les fichiers.Je ne sais pas si il y a déjà un outil tout fait ? Et si c'est le cas comment on l'ajoute à la liste des outils et comment il s'utilise ? Si vous pouvez m'aider avec un petit exemple ce serait sympa.

Bien cordialement à vous .

 

[PMO2]

Re : Menu déroulant pour rechercher un fichier

Bonjour,

Une piste en utilisant FileDialog (msoFileDialogFolderPicker).

 

[controlo]

Re : Menu déroulant pour rechercher un fichier

bonjour PM02,

Merci pour le fichier, mas je suis en 2003.
Peux-tu me le convertir.

Merci pour ton aide.

 

[PMO2]

Re : Menu déroulant pour rechercher un fichier

Merci pour le fichier, mas je suis en 2003.
Peux-tu me le convertir.

Je n'avais pas pensé à cela.

 

[controlo]

Re : Menu déroulant pour rechercher un fichier

OK ,merci PM02, mais comment je fais si je veux ouvrir le fichier que j'ai sélectionner (par exemple si c'est un fichier excel)

 

[PMO2]

Re : Menu déroulant pour rechercher un fichier

comment je fais si je veux ouvrir le fichier que j'ai sélectionner (par exemple si c'est un fichier excel)

Private Sub CommandButton1_Click()
Dim FD As FileDialog
Dim i&
'---
Set FD = Application.FileDialog(msoFileDialogFilePicker)
FD.Show
'---
If FD.SelectedItems.Count > 0 Then
  If LCase(Right(FD.SelectedItems(1), 4)) = ".xls" Then
    Application.Workbooks.Open FD.SelectedItems(1)
  Else
    MsgBox "Le fichier sélectionné n'est pas un classeur Excel"
  End If
End If
Unload Me
End Sub

 

[controlo]

Re : Menu déroulant pour rechercher un fichier

salut PM02 ,

Merci pour ton aide salutaire,mais je souhaiterai ouvrir consécutivement deux fichiers excel (de nom différents) et stocker leur nom respectifs dans une variable différente afin d'utiliser leurs noms pour sélectionner soit l'un soit l'autre.Peux-tu m'aider ?

A+ sur le forum