[Access] - Code pour lier un fichier Excel
floom26
Messages postés
59
Date d'inscription
Statut
Membre
Dernière intervention
-
floom26 Messages postés 59 Date d'inscription Statut Membre Dernière intervention -
floom26 Messages postés 59 Date d'inscription Statut Membre Dernière intervention -
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...
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...
Configuration: Windows Vista Internet Explorer 7.0
5 réponses
-
-
C'est pour définir le nom de la table liée sur access non ?
-
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. -
Mince ok....
Dans ce cas quel code dois-je faire sans ce del_table ? -
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question -
OK...
Dans ce cas quelle code dois-je taper pour parvenir au but ??
