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

 

[vgendron]

Re : Ouvrir un fichier par VBA

Bonjour
avec ceci

MsgBox "Sélectionnez le fichier"
FileToOpen = Application.GetOpenFilename("Fichiers excel (*.xls), *.xls")
'If FileToOpen <> False Then
'    MsgBox "Ouvrir " & FileToOpen 
'End If
Workbooks.Open FileToOpen 
FileNom = ActiveWorkbook.Name