Utilisation de Docmd.OpenFunction

Bonjour,

J'ai crée une fonction pour importer des données dans une nouvelle table
avec une procédure enregistrée.

Je lance cette fonction à l'aide d'une macro avec l'action = ExecuterCode
et
avec Arguments = Arguments ImportDFI ("Importation-Liste des articles GIF")

Function ImportDFI(DFI)
DoCmd.DeleteObject acTable, "2006XXXX-DFI_Articles"
DoCmd.SetWarnings False
DoCmd.RunSavedImportExport (DFI)
DoCmd.SetWarnings True
Exit Function
End Function

CELA FONCTIONNE

Maintenant pour éviter d'utiliser une macro je me suis dit je vais mettre ça
en VBA

J'ai crée une procédure qui appelle ma fonction

Private Sub cmdGIF_Click()
DoCmd.OpenFunction ImportDFI("Importation-Liste des articles GIF")
End Sub

ET LA J'AI UNE ERREUR BINE QUE MA TABLE AIT ETE CREEE !!!

J'ai un message d'erreur lorsqu' arrive sur Exit Function, j'ai un message
avec l'erreur d'exécution 2495 et le libellé :
L'action ou la méthode requiert un argumenet Nom de table

Là je sèche.
D'avance merci