A voir également:
- Importer des donnees de excel vers access
- Liste déroulante excel - Guide
- Formule excel - Guide
- Si et excel - Guide
- Windows 7 vers windows 10 - Guide
- Excel additionner des cellules - Guide
2 réponses
Private Sub Button1_Click()
Dim chemin As String
Application.FileDialog(msoFileDialogFilePicker).AllowMultiSelect = False
Application.FileDialog(msoFileDialogFilePicker).Show
chemin = Application.FileDialog(msoFileDialogFilePicker).SelectedItems(1)
DoCmd.TransferSpreadsheet acImport, 8, "LaTableVoulue", chemin, True
Me.TextCompte.Value = chemin
End Sub
Voilà, n'oublies pas de modifier "LaTableVoulue" par la table que tu veux remplir
Dim chemin As String
Application.FileDialog(msoFileDialogFilePicker).AllowMultiSelect = False
Application.FileDialog(msoFileDialogFilePicker).Show
chemin = Application.FileDialog(msoFileDialogFilePicker).SelectedItems(1)
DoCmd.TransferSpreadsheet acImport, 8, "LaTableVoulue", chemin, True
Me.TextCompte.Value = chemin
End Sub
Voilà, n'oublies pas de modifier "LaTableVoulue" par la table que tu veux remplir