[Access] - Code pour lier un fichier Excel
floom26
Messages postés
67
Statut
Membre
-
floom26 Messages postés 67 Statut Membre -
floom26 Messages postés 67 Statut Membre -
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...
A voir également:
- [Access] - Code pour lier un fichier Excel
- Fichier bin - Guide
- Comment ouvrir un fichier epub ? - Guide
- Code ascii - Guide
- Comment réduire la taille d'un fichier - Guide
- Fichier rar - Guide
5 réponses
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.
de ce fait, il ne peut pas la trouver.
alors soit tu la définies, soit tu cherche ce qui existe deja pour remplacer.
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question