Ouvrir fichier excel en fonction d'une cellul

Bonjour,

Une petite question??? est il possible d'ouvrir un fichier excel en fonction du contenu d'une cellule.

Exemple: J'ai une liste déroulante en A1, je selectionne un nom de ma liste déroulante puis je clique sur un bouton qui me permet de lancer une macro qui ouvre mon fichier du genre:

sub ouvrir_le fichier()

Dim Dossier As String, Fichier As String, Chemin As String
Dossier = "C:\Documents and Settings\"
Chemin = Dossier & Fichier
fichier = Range("A1")

Workbooks.Open Filename:= Chemin.xls

end sub

Si quelqu'un a une idée????

Merci d'avance