Discussion :

[fafa00]

Bonjour,

Une question certainement toute simple, mais vb et moi on est pas du tout intime...

J'aimerais créer une macro (dans excel) qui tout bêtement fonctionne comme File-Open mais pointe sur un répertoire précis..

Merci de votre aide !

[Igloobel]

Tu est dans quelle version?

Igloobel

[fafa00]

Excel 2003

[Igloobel]

Tu as dans l'aide en ligne (F1) ceci :

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
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 = "X:\Bons\Remises\"    
 
        '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 programme je ne fais rien.
        End If
    End With
 
    'Pour le cas rien.
    Set fd = Nothing

Je pense que ce qui t'interesse particulièrement c'est :

Code :

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

1
2
3
4
5
...
'donner le Path initial lors de l'affichage de la boite filedialog.
        'Cela permet d'arriver directement sur le repertoire addéquat
        .InitialFileName = "X:\Bons\Remises\"    
...

Attention ce code ne fonctionne que sous Excel 2003 avant cela ne marche pas

Tu dis si cela te conviens

Et puis n'hesites pas à user voir abuser de la touche F1
(c'est à consommer sans modération)

Igloobel