Problème de fonction via GetOpenFileName

Bonjour à tous,

Je viens vous voir afin de résoudre mon problème..

Voilà, j'aimerais que lorsqu'on double clique sur une cellule (à verouiller par la suite), le programme applique une recherchev dans le fichier ouvert via GetOpenFileName et qu'il inscrit le résultat de la recherche dans le cellule active (là où on a cliqué).

Le problème ici est que dans mon code, j'ai introduit une variable permettant d'identifier le nom du fichier mais celui me demande d'ouvrir en permanence le fichier. Il faut que je clique sur Annuler pour voir le fichier apparaitre.. Des idées ?

Le code :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)


' Sélection du classeur source à partir d'une fenêtre
cheminfichier = Application.GetOpenFilename("Fichiers Excels (*.xl*), *.xl*")

' Si on clique sur Annuler dans la fenêtre, on sort de la boucle
If cheminfichier = False Then
Exit Sub

End If
'Ouverture du classeur source
Workbooks.Open cheminfichier
nom = ActiveWorkbook.Name

'Sélection du nombre de jours passés par le consultant sur la mission
'ActiveCell.Select
Workbooks("Facturation.xlsm").Activate
ActiveCell.FormulaR1C1 = _
"=VLOOKUP(R16C3,[nom]Timesheet!R5C2:R47C3,2,FALSE)"
ActiveCell.Select

Workbooks(nom).Close False

End Sub

Merci à vous !