[AC-2007] Utilise le contrôle Common Dialog pour récupérer le chemin d'un fichier [Résolu]

[terence-hill]

Bonjour,

J'ai trouvé sur la faq ce code, ouvrant une boite de dialogue récupérant le nom d'un fichier :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
 
Private Sub Btn_Chercher_Click()
    With dlg
        .DialogTitle = "selectionner un fichier" 'titre de la boite
        .FileName="*.txt" 'on recherche un fichier d'extension txt
        .initDir="c:\" 'repertoire par defaut
        .CancelError = false 'pour ne pas partir en erreur si on click sur annuler
        .ShowOpen
    End With
    'txtPath est la zone de texte recevant le chemin du fichier
    txtPath = dlg.FileName 
End Sub

Avec comme commentaire ceci :

Ouvrir un module (page de code) :
- menu Tools (Outils)
- item References (Références)
- Cochez la référence Microfoft Common Dialog Control

Dans la barre d'outils, click sur le dernier bouton More controls / Autres Contrôles. Dans la liste qui s'ouvre choisissez le control Microsoft Common Dialog Control et placez le sur le formulaire. Nous le nommons Dlg.

lien : http://access.developpez.com/faq/?pa...ecupChemFicDlg


Mon problème est que dans mon ACCESS 2007, je ne trouve pas microsoft common dialog control. Normalement je devrais le trouver mais après 3 relectures de toutes les références, je n'en trouve pas une qui s'en approcherait.

J'aimerais savoir si cette référence à changé de nom depuis l'écriture de la faq et si non, une idée du pourquoi je ne la retrouve pas?

Merci d'avance

Terence hill

[loufab]

Bonjour,

Tu peux également utiliser FileDialog de Microsoft Office 12 Object Library à défaut du common dialog.

Cordialement,

[terence-hill]

Merci bien je vais regarder si le code marche avec cette référence.

Terence-hill

[terence-hill]

C'est bon, merci Loufab, avec la FAQ, toi et l'aide d'ACCESS j'y suis arrivé.

Voici mon code dépendant de la référence "FileDialog de Microsoft Office 12 Object Library", il me permet d'importer 2 colonnes de plusieurs fichiers Excel dans une seule table ACCESS, à condition que les titres des colonnes dans les fichiers Excel soient toujours les mêmes. J'essayerais peut être de voir comment on peut faire si elles n'ont pas le même nom.

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Public Function import() 'Importation de fichier excel dans une table ACCESS
 
    'Declaration des variables.
    Dim dlg As FileDialog
    Dim chemin As Variant
    Set dlg = Application.FileDialog(msoFileDialogFilePicker)
 
    With dlg
        .InitialFileName = "C:\" 'repertoire par defaut
        .Title = "Selectionnez tout les fichiers dont vous avez besoin" 'titre de la boite
        .InitialFileName = "*.xls" 'on recherche un fichier d'extension xls
        If .Show = -1 Then
            'pour chaque fichier selectionné j'ajoute les deux premières colonnes à ma table auteur_essai
            For Each chemin In .SelectedItems
                DoCmd.TransferSpreadsheet acImport, 8, "auteur_essai", chemin, True, "A:B"
                'Pour cette étape il est obligatoire que dans chaque fichier Excel les en-têtes de colonnes aient le même nom
            Next chemin
        'utilisateur annule
        Else
        End If
    End With
 
    'reinitialise la variable comme nulle
    Set dlg = Nothing
 
End Function

Encore merci Loufab

Terence-hill