Parcourir dans Userform

Bonjour Arnaud,

Private Sub CommandButton1_Click()
NomFic = Application.GetOpenFilename("Fichiers Excel, *.xls")
If NomFic <> "Faux" Then Workbooks.Open NomFic
End Sub

devrait te convenir

Bonne journée

Rai

Bonjour à tous !!

J'aimerai , dans un userform, inclure un bouton PArcourir pour sélectionner
un fichier excel de son choix et l'ouvrir ensuite...
Que dois-je faire ??

Merci d'avance ...
Arnaud

Salut,

Tu peux aussi utiliser l'objet Common dialog :
Menu Outils/Contrôles supplémentaires/ Cocher Microsoft Common Dialog
Controls
Avec la barre d'outils des contrôles, sélectionner le nouveau contrôle, le
glisser sur le userForm et le nommer cdg :

Private Sub UserForm_Click()
On Error GoTo ErrHandler
With cdg
.Filter = "Fichier Excel (*.xls)|*.xls"
.CancelError = True
.DialogTitle = "Sélectionner le classeur à ouvrir"
.ShowOpen
sname = .Filename
End With
Application.Workbooks.Open sname
ErrHandler:
End Sub

Bon OK, c'est plus long, c'est compliqué. Mais ce contrôle offre plus de
possibilités. Enfin, faut savoir que ça existe (Bien que si on le sait pas
ça change pas grand chose).

Bruno

"Rai" <raimondpointschmidt@berlin.de> a écrit dans le message de news:
41F61DD2.3050109@berlin.de...

Bonjour Arnaud,

Private Sub CommandButton1_Click()
NomFic = Application.GetOpenFilename("Fichiers Excel, *.xls")
If NomFic <> "Faux" Then Workbooks.Open NomFic
End Sub

devrait te convenir

Bonne journée

Rai