Discussion :

[Assyris]

Bonjour à tous,

Voilà, j'aimerais créer un fichier Excel puis copier une requête dedans. Cependant pour créer un fichier j'aimerais passer par la fenêtre Windows pour que l'utilisateur crée choisisse lui même le nom du fichier. J'utilise le code suivant :

Code :

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

1
2
3
4
5
6
    Dim fd As FileDialog
 
    Set fd = Application.FileDialog(msoFileDialogSaveAs)
    fd.Show
    fd.AllowMultiSelect = False
    test = fd.SelectedItems(1)

Mais malheureusement, msoFileDialogSaveAs me met une erreur "Cet objet ne genère pas cette action"... Alors qu'en utilisant :

Code :

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

Set fd = Application.FileDialog(msoFileDialogFilePicker)

Ca marche très bien...

Que faire ? Un autre code peux être ?

Merci d'avance,

Assyris

[fgiambelluco]

Bonjour
Désolé, mai j'ai testé ton code par copier/coller sur mon poste (access 2003) cela fonctionne très bien.

Il te met une erreur de compilation ou une erreur d'exécution ?

[Assyris]

Je me suis renseigné un peu sur Internet et le problème viendrait des librairy Microsoft Office 10.0 sur Access 2002...

Ma question peut paraître bête mais, comment savoir si c'est un erreur de compilation ou d'execution ?

Merci pour ton aide !

Voilà ce que j'ai trouvé :
http://support.microsoft.com/kb/282335/fr

Ca semble effectivement être une erreur que sur Access 2002........ Damned !

Quelqu'un à une solution pour contourner le problème ?

[fgiambelluco]

Bonjour

Normalement il faudrait compiler le code avant de le tester (ce qui n'est pas une obligation). La compilation permet non pas de vérifier les syntaxes, mais la bonne utilisation des objets de leurs méthodes et propriétés.
Si c'est pas fait, lors de l'exécution il compile de toute façon avant d'exécuter.

Pour compiler : menu Débogage/Compiler

[Assyris]

Ah ben j'ai fais une compilation et il n'y pas eu d'erreur. J'en déduis donc que l'erreur vient de l'execution...