Voici une solution directe et simple à mettre en place...
Sub Ouvrir()
Workbooks.Open ("C:\Documents and Settings\Bureau\ton_fichier.xls")
End Sub
en fait il te suffit de définir le bon chemin et le fichier s'ouvre...
Le seul handicap qu'il y aurait (m'enfin çà se discute) est que le fichier s'ouvre directement sans message de présence de macro...mais bon...je pense que la source est sûre donc il n'y a pas de soucis...
PS : Macro à copier depuis le forum auquel cas tu risques d'avoir les attributs gras du post dedans...