[VBA/Excel] Acces a un fichier

Bonjour,

Je suis débutant sous VBA/Excel mais pas sur la programmation...

J'ai un problème pour accéder à un fichier et je ne comprend pas l'erreur. Prenons comme exemple cette fonction :

Public Function Test(ByVal i As Integer) As Integer
'declaration de variables
Dim Source As Workbook
Set Source = Application.Workbooks.Open("C:\FichierTest.xls")
Source.Activate
MsgBox Source.Name
Source.Close
Test=i+1
End Function

Alors voila j'exécute cette fonction à partir du Microsoft VIsual Basic, et ça marche, j'obtient le message correspondant au nom du fichier et tout marche à marveille.

Par contre, si j'appelle depuis la feuille excel la fonction
=Test(1)
Et bah, il n'accede pas de fichier et sort de la fonction, même l'instruction Test=i+1 n'est pas exécuté. J'ai essayer de déboguer pas à pas, le même résultat.

Pouvez vous m'aider !