Créer un contrôle treeview access 2000

**Mario Rousson** · 03/04/2008, 03h22

bonjour

J'aimerais créer un formulaire dans access qui ressemblerait à un explorateur de dossiers et de fichiers et qui me permetterait de déplacer ceux ci. Je fouille et tout ce que je trouve jusqu'à maintenant est fait sous VB6.

Premièrement:
Je commence par créer un formulaire avec deux cadre d'objet indépendant?

merci
Mario

**Mario Rousson** · 03/04/2008, 04h01

ok j'ai installé un controle treeview ....mais je sais pas quoi faire avec, je continu de fouiller a +

**Mario Rousson** · 04/04/2008, 14h22

Bonjour

Je me demande si j'ai besoin d'une référence quelquonque car lorque je tape

TreeView1.Nodes(1).Selected = True

au moment de mettre le . je n'ai pas nodes dans ma liste de choix

le nom de mon contrôle treeview s'est nommé ctlActivex1 est-ce normal?

je l'ai renommé TreeView1 ai-je bien fait

merci

Invité · 04/04/2008, 14h26

Bonjour

Avant d'aller plus loin, au lieu de réinventer la roue, je t'invite à aller voir cette contribution : http://www.developpez.net/forums/sho...light=treeview

Starec

**Mario Rousson** · 04/04/2008, 15h06

Merci Starec

j'essai le petit exploreur mais j'ai jusgte des messages d'erreurs

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Private Sub parcourir_Click()
'On Error GoTo Err_parcourir_Click
    Dim result As Integer
    Dim fs
    Set fs = CreateObject("Scripting.FileSystemObject")

    With Application.FileDialog(msoFileDialogFolderPicker)
        .Title = "Sélectionner un dossier"
        .InitialView = msoFileDialogViewThumbnail 'mode d'affichage des fichier dans la boîte
        .AllowMultiSelect = False
        .InitialFileName = "c:\" 'dossier par défaut
        result = .Show
        If (result <> 0) Then Me.dossier = Trim(.SelectedItems.Item(1))
                            
    End With

Exit_parcourir_Click:
    Exit Sub

erreur de compilation (erreur 461)
Tout de suite après With Application.

Invité · 04/04/2008, 15h10

Bonjour

As-tu déclaré la référence Microsoft Office xx.0 Object Library (avec xx selon ta version) ?

Starec

**Mario Rousson** · 04/04/2008, 15h15

Microsoft Office 9.0 Object Library

Invité · 04/04/2008, 15h17

Envoyé par Mario Rousson

Microsoft Office 9.0 Object Library

C'est vrai, tu es en 2000, hors de mémoire l'objet FileDialog n'est apparu qu'à partir de la version 2002.

Ouvre l'explorateur d'objet (F2) dans l'éditeur VB. (il faut que la référence ci-dessus soit cochée), fais une recherche sur FileDialog. Si tu ne trouves rien c'est ce que je pensais est vrai.

Starec

**Domi2** · 04/04/2008, 15h19

Bonjour,

Et Microsoft Scripting Runtime ?

Domi2

**Mario Rousson** · 04/04/2008, 15h26

voici ce que j'ai de coché

Visual Basic for application
Microsoft access 9.0 object library
microsoft DAO3.6 object library
Microsogt activeX Data Object 2.1 library
OLE Automation
Microsoft office 9.0 object library
Microsoft Scripting runtime
ctv ole controle module
microsoft ADO Ext.6.0 for DLL And security

c'est ce que contion mes référence

merci

Invité · 04/04/2008, 15h33

Re

Le problème c'est l'objet FileDialog de la bibliothèque Office, apparue avec normalement avec la version 2002.

As-tu tester avec l'explorateur d'objet comme je te l'ai dis pour contrôler mes dire ?

Il existe un équivalent avec des API, voir les codes dans la

Access en cherchant à ouvrir : http://access.developpez.com/faq/ind...hercher=ouvrir

Starec