Menu déroulant pour rechercher un fichier

P

PMO2

XLDnaute Accro

• 8 Février 2015

• #2

Re : Menu déroulant pour rechercher un fichier

Bonjour,

Une piste en utilisant FileDialog (msoFileDialogFolderPicker).

 

Pièces jointes

• FileDialog (msoFileDialogFolderPicker).xlsm

  14 KB · Affichages: 39

Vote positif 0 Vote négatif

controlo

XLDnaute Occasionnel

• 9 Février 2015

• #3

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.

 

Vote positif 0 Vote négatif

P

PMO2

XLDnaute Accro

• 9 Février 2015

• #4

Re : Menu déroulant pour rechercher un fichier

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

Cliquez pour agrandir...

Je n'avais pas pensé à cela.

 

Pièces jointes

• FileDialog (msoFileDialogFolderPicker).xls

  41.5 KB · Affichages: 33

Vote positif 0 Vote négatif

controlo

XLDnaute Occasionnel

• 9 Février 2015

• #5

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)

 

Vote positif 0 Vote négatif

P

PMO2

XLDnaute Accro

• 9 Février 2015

• #6

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)

Cliquez pour agrandir...

Code:

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

 

Vote positif 0 Vote négatif

controlo

XLDnaute Occasionnel

• 10 Février 2015

• #7

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

 

Dernière édition: 10 Février 2015

Vote positif 0 Vote négatif