Utilisation de FileDialog

Version imprimable

20/07/2009, 15h05
Assyris

Utilisation de FileDialog
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:

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:

Set fd = Application.FileDialog(msoFileDialogFilePicker)

Ca marche très bien...

Que faire ? Un autre code peux être ?

Merci d'avance,

Assyris
20/07/2009, 15h13
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 ?
20/07/2009, 15h32
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 ?
20/07/2009, 15h54
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
20/07/2009, 16h10
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...

Bonjour
Si

Code:

Set fd = Application.FileDialog(msoFileDialogFilePicker)

fonctionne, je te propose un solution d'appoint qui semble fonctionner

Code:

1
2
3
4
5
6
7
8
9
    Dim fd As FileDialog, test
 
    Set fd = Application.FileDialog(msoFileDialogFilePicker)
    fd.Title = "Enregistrer sous" ' change le titre de la boite
    fd.AllowMultiSelect = False
    If fd.Show <> 0 Then 'affiche la boite et vérifie si bouton annuler
        test = fd.SelectedItems(1)
        MonExcel.ActiveWorkook.saveAs test ' à compléter avec l'aide d'Excel
    End If

Salut !

Enfait je viens de trouver une altérnative vraiment facile à FileDialog et c'est pile poil ce dont j'ai besoin, voici le code :
Code:

1 2 3 4 5 6 7 8 9 10 Dim qd As QueryDef Dim SQL As String SQL = "SELECT MonChamp FROM MaTable WHERE MaCondition" Set qd = CurrentDb.CreateQueryDef("requete_tempo", SQL) 'Crée la requete temporaire DoCmd.OutputTo acOutputQuery, "requete_tempo", acSpreadsheetTypeExcel9, , True 'L'ouvre sous excel DoCmd.DeleteObject acQuery, "requete_tempo" 'La supprime
Le fait de ne pas mettre de nom de fichier dans OutputTo (, ,) ouvre automatiquement une boîte de dialogue et permet de sauver un fichier où l'on veut !

Mais merci beaucoup pour ton aide fgiambelluco ce fût très utile pour moi !

A+