Bonjour à tous,
J'ai un souci pour importer les données Excel dans une base access, j'ai récupéré le code suivant :
Mais j'ai une msgbox avec une erreur de compilation " Type défini par l'utilisateur non défini " sur cette ligne
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33 Private Sub Commande157_Click() ' --- ' SELECTION DE FICHIER AVEC FILTRE ' --- Dim fd As Office.FileDialog ' Créer un objet FileDialog Set fd = Application.FileDialog(msoFileDialogOpen) ' Titre de la boîte de dialogue fd.Title = "Sélectionnez un fichier..." ' Ne pas autoriser la sélection multiple ' (donc 1 seul fichier est sélectionnable à la fois) fd.AllowMultiSelect = False ' Définir les types de fichiers autorisés fd.Filters.Clear fd.Filters.Add "Tous les fichiers", "*.*" fd.Filters.Add "Excel", "*.xls" fd.Filters.Add "Bases de données", "*.mdb; *.mde; *.mda; *.accdb; *.accde" ' Présélectionner le 2ème type de fichier (images) fd.FilterIndex = 1 ' Afficher la boîte de dialogue If fd.Show() Then MsgBox fd.SelectedItems(1), vbInformation End If Set fd = Nothing End Sub
Pouvez vous m'aider ?
Code : Sélectionner tout - Visualiser dans une fenêtre à part Dim fd As Office.FileDialog
Merci
Partager