Extraction données entre deux fichiers : erreur #REF

Bonjour,

Je suis entrain de créer un fichier A, qui va chercher, grâce à une rechercheV, des données d'un fichier B hébergé sur l'intranet.

J'ai donc trouvé une macro (merci à ce forum de m'avoir aidé) qui permet d'aller chercher ce fichier, l'enregistrer sous le disque P en écrasant l'ancien fichier B afin de mettre à jour les données de mon fichier A.

Voici la macro :

Sub Bouton1_Cliquer()
'ENREGISTREMENT DU FICHIER STOCK SOUS DISQUE P
Dim myURL As String
myURL = "LIEN INTRANET"

Dim WinHttpReq As Object
Set WinHttpReq = CreateObject("Microsoft.XMLHTTP")
WinHttpReq.Open "GET", myURL, False, "username", "password"
WinHttpReq.send

myURL = WinHttpReq.responseBody
If WinHttpReq.Status = 200 Then
    Set oStream = CreateObject("ADODB.Stream")
    oStream.Open
    oStream.Type = 1
    oStream.Write WinHttpReq.responseBody
    oStream.SaveToFile "P:\stocks.xls", 2 ' 1 = no overwrite, 2 = overwrite
    oStream.Close
End If

    'MISE A JOUR AUTOMATIQUE DU FICHIER STOCKS
    Workbooks.Open Filename:= _
"P:\stocks.xls" _
, UpdateLinks:=3

    'FERMETURE de STOCKS
ActiveWorkbook.Close True

    'RAFRAICHISSEMENT DES DONNEES
ActiveWorkbook.RefreshAll

    'POP UP CONFIRMANT LA MISE A JOUR
MsgBox "Mise à jour effectuée."
End Sub

La fonction présente dans mes cellules elle est la suivante :

=RECHERCHEV($C5;'[stocks.xls]07-11'!$1:$65536;2;FAUX)

Le problème est que, lorsque je souhaite faire une mise à jour du fichier le jour suivant de l'écriture de ma fonction, les données ne ressortent plus, il y a une erreur #REF!

=RECHERCHEV($C5;'[stocknews.xls]#REF'!$1:$65536;4;FAUX)

En effet, lorsque je vais une recherche V sur le fichier stocks, la fonction prend également en compte le jour de celui-ci, dès lors que je passe en J+1, les données ne remontent plus (du moins des fois ça marchent...).

Ma question est : il y a t-il un moyen efficace d'éviter cette erreur #REF! ? Car ça m'oblige de refaire la recherche V chaque jour, alors que ce fichier doit être autonome.

Merci d'avance pour votre aide.

Cordialement.

L'erreur #REF! vient du fait que l'onglet sur lequel j'effectue ma RechercheV est variable. J'ai donc ajouté dans ma macro

ActiveSheet.Name = "AA"

afin de toujours avoir le même nom d'onglet.

Malgré cela, ça ne marche toujours pas. Néanmoins, si je fait un F2+Enter, il arrive a retrouver ses données.

Je ne vois pas du tout comment je peux m'en sortir pour le coup.