VBA ACCESS ouverture d'un fichier excel

Bonjour,

Je souhaite à l'aide du code présenté dans la réponse précédente et qui fonctionne, intégrer à la place d'un chemin fichier xls à ouvrir, une variable.


Private Sub FS_Click()
Dim FS As String
FS = Me.Lien_FS.Value
FS2 = Replace(FS, "#", "")
Dim xls As Excel.Application
On Error GoTo errHnd
Set xls = CreateObject("Excel.Application")
xls.Workbooks.Open Filename:="FS2"
xls.Visible = True
Exit Sub
errHnd:
End Sub

Dans l'attente de votre réponse.
merci beaucoup