[Access] - Code pour lier un fichier Excel

Question

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...

Frappe Misere · Answer

d'ou est ce que tu sors "del_table" ?

floom26 · Answer

C'est pour définir le nom de la table liée sur access non ?

Frappe Misere · Answer

ce n'est pas une fonction incluse dans access.
de ce fait, il ne peut pas la trouver.
alors soit tu la définies, soit tu cherche ce qui existe deja pour remplacer.

floom26 · Answer

Mince ok.... 
Dans ce cas quel code dois-je faire sans ce del_table ?

floom26 · Answer

OK...
Dans ce cas quelle code dois-je taper pour parvenir au but ??

[Access] - Code pour lier un fichier Excel

5 réponses

Newsletters