Bonjour à tous,

Je dois rendre compatible une appli développée sous access 2003 vers Access2000. Cette dernière utilise un filedialog.
Comment modifier le code suivant pour le rendre compatible (ou au moins quel objet utiliser)?

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
 
 
    Dim fd As FileDialog
    ...
    Set fd = Application.FileDialog(msoFileDialogFilePicker)
    fd.AllowMultiSelect = False
    fd.Filters.Clear
    fd.Filters.Add "fichiers excel", "*.xls"
    If fd.Show = -1 Then
         fichiersource = fd.SelectedItems(1)
         ...
    end if
merci