Discussion :

[kirua2150]

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

[javelot69]

Bonjour,

Dans une application développée avec Access 2000 j'ai utilisé

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set fd = Application.FileDialog(msoFileDialogOpen)

et cela fonctionnait.

Bonne journée

[Tofalu]

Bonjour,

Tu as un exemple dans la FAQ, mot clé : getopenfilename

[kirua2150]

>Javelot
Moi lorsque je compile le code sous access 2000, il me dit qu'il connait pas l'objet FileDialog...

>Tofalu
Pour utiliser la fonction getopenfilename, je dois récupérer tout le code présenté dans la FAQ? (Private Type OPENFILENAME...)
Ca me parait lourd de devoir définir un nouveau type juste pour utiliser une boite de dialogue.

[Tofalu]

Oui, il te faut tout pour manipuler cette API

[javelot69]

Bonjour,

Bizarre. J'ai des applicatifs développés avec Access 2000 dans lesquels j'ai ce code qui fonctionne très bien.

J'ai développé ce code dans un module sous forme d'une Public Sub puis j'appelle la Sub dans le formulaire. Certains de ces applicatifs fonctionnent depuis sur des postes qui ont migré vers Access 2003 et Access 2007 et le code fonctionne toujours sans problème.

Tu as peut-être un problème de syntaxe.

Bonne journée.

[kirua2150]

Merci Tofalu, j'ai résolu mon pb grace à ton aide.

Javelot, le code que j'ai écrit marche sur 2003 et non sur 2000 donc je ne crois pas à une erreur de syntaxe mais peut-être à une libraire ou un controle non installé ou que sais-je...
Enfin on s'en fou mon pb st résolu