Comment faire pour afficher et utiliser la boîte de dialogue de fichier dans Microsoft Access 2002

Traductions disponibles Traductions disponibles
Numéro d'article: 279508 - Voir les produits auxquels s'applique cet article
Ancien nº de publication de cet article : F279508
Pour vous procurer une version Microsoft Office Access 2003 de cet article, reportez-vous à l'article 824272.
Utilisateurs confirmés : exige de très bonnes compétences en programmation, en interopérabilité et dans le domaine multi-utilisateur.

Cet article s'applique à une base de données Microsoft Access (.mdb) et à un projet Microsoft Access (.adp).

Agrandir tout | Réduire tout

Résumé

Cet article vous indique comment utiliser la nouvelle méthode FileDialog dans Microsoft Access pour afficher la boîte de dialogue de fichier intégrée et déterminer quels fichiers l'utilisateur a sélectionnés.

REMARQUE : la méthode FileDialog fonctionne uniquement dans la version commerciale complète de Microsoft Access. Elle ne fonctionne pas dans le cas d'une version d'exécution de Microsoft Access.

Plus d'informations

Dans les versions antérieures de Microsoft Access, vous ne pouviez pas afficher la boîte de dialogue de fichier sans utiliser le contrôle ActiveX Microsoft Common Dialog ou en effectuant des appels de l'API Windows.

Dans Microsoft Access 2002, la méthode FileDialog vous permet d'afficher la boîte de dialogue de fichier utilisée par Microsoft Access et de déterminer quels fichiers ont été sélectionnés par l'utilisateur. La collection SelectedItems de l'objet FileDialog contient les chemins d'accès aux fichiers sélectionnés par l'utilisateur. En utilisant une boucle For...Each, vous pouvez énumérer cette collection et afficher chaque fichier. L'exemple suivant opère une boucle dans la collection ItemsSelected et affiche les fichiers dans une zone de liste.

Microsoft fournit des exemples de programmation à des fins d'illustration uniquement, sans garantie expresse ou implicite. Cela inclut notamment les garanties implicites de qualité ou d'adéquation à un usage particulier. Pour bien comprendre cet article, vous devez connaître le langage de programmation présenté et les outils utilisés pour créer et déboguer des procédures. Les techniciens du Support technique Microsoft peuvent vous expliquer les fonctionnalités d'une procédure particulière, mais ils ne modifieront pas ces exemples pour vous fournir des fonctionnalités supplémentaires ou créer des procédures répondant à vos besoins spécifiques.
  1. Ouvrez la base de données exemple Comptoir.mdb.
  2. Créez un formulaire vierge en mode Création.
  3. Ajoutez les contrôles suivants au formulaire :
    
       Bouton de commande
       --------------------------
       Nom: cmdFileDialog
       Légende: Add Files
       Sur clic: [Procédure événementielle]
    
       Zone de liste
       -------------------------
       Nom: FileList
       Source contrôle: Liste valeurs
    					
  4. Dans le menu Affichage, cliquez sur Code pour ouvrir le module du formulaire dans Visual Basic Editor.
  5. Dans le menu Outils, cliquez sur Références.
  6. Activez la case à cocher Bibliothèque d'objets Microsoft Office 10.0.
  7. Cliquez sur OK pour fermer la boîte de dialogue Références.
  8. Ajoutez le code suivant au module du formulaire :
    Option Compare Database
    Option Explicit
          
    Private Sub cmdFileDialog_Click()
    
    'Requires reference to Microsoft Office 10.0 Object Library.
    
       Dim fDialog As Office.FileDialog
       Dim varFile As Variant
    
       'Clear listbox contents.
       Me.FileList.RowSource = ""
    
       'Set up the File Dialog.
       Set fDialog = Application.FileDialog(msoFileDialogFilePicker)
       With fDialog
          'Allow user to make multiple selections in dialog box
          .AllowMultiSelect = True
                
          'Set the title of the dialog box.
          .Title = "Sélectionnez un ou plusieurs fichiers"
    
          'Clear out the current filters, and add our own.
          .Filters.Clear
          .Filters.Add "Access Databases", "*.MDB"
          .Filters.Add "Access Projects", "*.ADP"
          .Filters.Add "All Files", "*.*"
    
          'Show the dialog box. If the .Show method returns True, the
          'user picked at least one file. If the .Show method returns
          'False, the user clicked Cancel.
          If .Show = True Then
             'Loop through each file selected and add it to our list box.
             For Each varFile In .SelectedItems
                Me.FileList.AddItem varFile
             Next
          Else
             MsgBox "You clicked Cancel in the file dialog box."
          End If
       End With
    End Sub
    					
  9. Enregistrez le formulaire sous le nom Form1, puis fermez-le.
  10. Ouvrez le formulaire Form1 en mode Formulaire.
  11. Cliquez sur Ajouter des fichiers. Notez que la boîte de dialogue Sélectionnez un ou plusieurs fichiers apparaît.
  12. Sélectionnez un ou plusieurs fichiers, puis cliquez sur OK ou sur Annuler.
Si vous avez sélectionné un ou plusieurs fichiers, notez que leurs noms s'affichent dans la zone de liste. Si vous avez cliqué sur Annuler, notez qu'un message s'affiche vous indiquant que vous avez cliqué sur Annuler.

Références

Pour plus d'informations sur l'utilisation de la boîte de dialogue de fichier dans Visual Basic Editor, cliquez sur Aide sur Microsoft Visual Basic dans le menu ? (Aide), tapez objet filedialog dans le Compagnon Office ou dans l'Aide intuitive, puis cliquez sur Rechercher pour afficher la rubrique correspondante.

Propriétés

Numéro d'article: 279508 - Dernière mise à jour: jeudi 12 octobre 2006 - Version: 4.2
Les informations contenues dans cet article s'appliquent au(x) produit(s) suivant(s):
  • Microsoft Access 2002
Mots-clés : 
kbprogramming kbhowto KB279508
L'INFORMATION CONTENUE DANS CE DOCUMENT EST FOURNIE PAR MICROSOFT SANS GARANTIE D'AUCUNE SORTE, EXPLICITE OU IMPLICITE. L'UTILISATEUR ASSUME LE RISQUE DE L'UTILISATION DU CONTENU DE CE DOCUMENT. CE DOCUMENT NE PEUT ETRE REVENDU OU CEDE EN ECHANGE D'UN QUELCONQUE PROFIT.

Envoyer des commentaires

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com