Sub LierFichier()
Dim fd As FileDialog, VPathFic As String
Dim StrSQL1 As String, StrSQL2 As String
Dim NomTbl As String
On Error GoTo Code_Err
' Créer un objet boite de dialogue d'ouverture de fichier
Set fd = Application.FileDialog(msoFileDialogOpen)
Dim vrtSelectedItem As Variant
' Ouvrir l'objet pour le choix du fichier
With fd
If .Show = -1 Then
VPathFic = .SelectedItems(1)
Else
Exit Sub
End If
End With
Set fd = Nothing
' Lier la feuille Excel à la Bdd Access
DoCmd.TransferSpreadsheet acLink, 8, "Feuil_Excel", VPathFic, True, ""
' Importer les données
NomTbl = "Table1" ' Nom de la table dans la Bdd Access
StrSQL1 = "INSERT INTO " & NomTbl & "( [Date], Type, Client )"
StrSQL2 = "SELECT * FROM Feuil_Excel;"
DoCmd.RunSQL (StrSQL1 & StrSQL2)
' Supprimer le feuille liée
DoCmd.DeleteObject acTable, "Feuil_Excel"
Code_Exit:
Exit Sub
Code_Err:
MsgBox Error$
Resume Code_Exit
End Sub