Comment appeler un répertoire en vba?

Version imprimable

16/10/2013, 14h44
tinmar1005

Comment appeler un répertoire en vba?

bonjour,

Je travail sur une automatisation de paramètres et j'aimerais afficher, en cliquant sur un bouton relié à une macro, le contenu d'un fichier (repertoire) et que ceci fonctionne quelque soit l'endroit ou est stocker ce fichier.

Merci de votre aide,

Cdlt
16/10/2013, 15h09
Invité

Salut,

http://warin.developpez.com/access/fichiers/
16/10/2013, 15h37
tinmar1005

dsl mais je ne trouve pas, en fait je souhaite que la racine de mon chemin puisse changer selon le pc qui est utilisé.
16/10/2013, 15h43
parmi

Bonjour,

Il faudrait que tu expliques un peu plus...
ThisWorkbook.Path est le répertoire où est située l'application.

Si les fichiers ou répertoires que tu recherches peuvent être situés un peu partout, ça ne sera pas possible d'automatiser. C'est souvent le cas en entreprise où certains utilisateurs ont des lettres différentes de mappage...

S'ils sont toujours situés dans le même répertoire que l'application, alors la ligne ci-dessus devrait pouvoir aider...
16/10/2013, 15h46
Invité

http://warin.developpez.com/access/fichiers/#LIII

Mais c'est une recherche récursive sur l'ensemble du disque alors ça risque d'être long.

Voici un bout de code qui peut t'interesser

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
27
28
29
30
31
32
33
34
35
36
37
38
'ouverture d'un fichier par boite FileDialog
'**********************************************************
    'Declaration d'une variable comme objet FileDialog
    Dim fd As FileDialog
 
    'Creation d'un objet FileDialog comme un File Picker dialog box.
    Set fd = Application.FileDialog(msoFileDialogFilePicker)
 
    'Déclaration d'une variable contenant le "path" de style variant
    Dim vrtSelectedItem As Variant 'obligatoirement de type variant
 
    With fd
 
        'donner le Path initial lors de l'affichage de la boite filedialog.
        'Cela permet d'arriver directement sur le repertoire addéquat
        .InitialFileName = "C:\Mon_rep\"
 
 
        'Utilisation de la méthode show pour afficher le File Picker de la boite de dialogue et
        '   retourne la valeur de l'action de l'utililisateur.
        If .Show = -1 Then
 
            'Step through each string in the FileDialogSelectedItems collection.
            For Each vrtSelectedItem In .SelectedItems
 
                'vrtSelectedItem est un String contenant le "path"  de chaque item selectionné.
                'affichage du "PATH et du fichier selectionné" dans une boite message
                MsgBox "Vous avez sélectionné : " & vrtSelectedItem
                File_Select = vrtSelectedItem
 
            Next vrtSelectedItem
 
        'Au cas ou l'utilisateur appuis sur Cancel...
        Else
            'Dans ce cas je sors.
            Exit Sub
        End If
    End With

Cela te permet de pouvoir naviguer facilement