Bonjour à tous,

J'ai un souci pour importer les données Excel dans une base access, j'ai récupéré le code suivant :

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
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
Dim fd As Office.FileDialog
Pouvez vous m'aider ?
Merci