[Access] - Code pour lier un fichier Excel

Bonjour, voici le code que j'ai tapé pour lier un fichier excel à ma base Access... mais il ne marche pas!

Private Sub Commande123_Click()
On Error GoTo Err_Commande123_Click
Dim ficex As String


del_table ("TOTEM Visites")

ficex = OuvrirUnFichier(Me.Hwnd, "Parcourir", 1, "Fichier Excel", "xls")
DoCmd.TransferSpreadsheet acLink, acSpreadsheetTypeExcel9, "TOTEM Visites", ficex, True
MsgBox ("Lien effectué avec le fichier " & ficex)
Me.Refresh

Exit_Commande123_Click:
Exit Sub

Err_Commande123_Click:
MsgBox Err.Description
Resume Exit_Commande123_Click
End Sub


Le message d'erreur est : "Erreur de compilation: Sub ou Function non définie"

Merci par avance...