Ouvrir un fichier par VBA

[m.diouf91]

Bonjour tout le monde
Je voudrais ouvrir un fichier par vba en le selectionnant dans un dossier. Quand je clique sur le bouton que j'ai créé, ça m'ouvre une fenêtre parcourir où je dois selectionner mon fichier, mais je ne sais pas comment faire pour ouvrir le fichier selectionné. Voici mon code:

Sub Bouton_charger_fichier()



With Application.FileDialog(msoFileDialogOpen)
.AllowMultiSelect = False
.Show
UserForm1.TextBox1.Text = .SelectedItems(1)
Workbooks.Open Filename = &UserForm1.TextBox1.Text&
End With

End Sub

J'arrive à récuperer le nom du fichier selectionné dans une textbox, mais après je ne sais pas comment l'integrer dans la fonction Workbooks.openfile sachant qu'il est variable.

Merci par avance

 

[VDAVID]

Re : Ouvrir un fichier par VBA

Bonjour m.diouf91,

Peut-être en remplaçant ton code par:

Application.Dialogs(xlDialogOpen).Show

Bonne journée

 

[MJ13]

Re : Ouvrir un fichier par VBA

Bonjour à tous

Tu peux tester ce fichier.

 

[m.diouf91]

Re : Ouvrir un fichier par VBA

Bonjour m.diouf91,

Peut-être en remplaçant ton code par:

Application.Dialogs(xlDialogOpen).Show

Bonne journée

Merci beaucoup ça marche à merveille