Discussion :

[sambinapas]

bonjour à tous,
j'aimerai changer le repertoire par défaut de la fonction getopenfilename,
c'est à dire que j'aimerai lorsque j'appelle getopenfilename la boite de dialogue se place dans un repertoire bien précis. j'ai essayé de la manière suivante mais ça ne marche pas:

Code :

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

1
2
chdir "j:\cheminDuRepertoireQueJeVoulais"
Application.GetOpenFilename()

il fait comme ci je n'avais rien spécifié dans chdir.
Merci d'avance pour votre aide
j'avoue que ne sais plus quoi faire

[jfontaine]

Chez moi, ca fonctionne très bien. (Excel 2003)
"J" est un disque reseau ou un DD?

[kiki29]

Soir Bon, peut être

Code :

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

1
2
3
4
5
...
ChDrive "J"
ChDir "j:\cheminDuRepertoireQueJeVoulais"
...

[sambinapas]

bonsoir j est un disque reseau. Est-ce que ça change quelque chose?

[jfontaine]

C'était une idée le mieux c'est que tu fasses le test en choisissant un répertoire sur un disque physique de ta machine.

[AlainTech]

A mon avis, il est plus judicieux d'utiliser la propriété

Code :

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

Application.FileDialog(msoFileDialogOpen)

qui renvoie un objet pouvant être paramétré de manière beaucoup plus souple.

[sambinapas]

j'ai utilisé ce code et ça marche :

Code :

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

1
2
3
4
5
6
7
8
 
'Place l'utilisateur dans le bon répertoire
ChDrive "j"
ChDir "j:\repertoireVoulu"
 
'ouvre la boite de dialogue de choix du fichier
 
FichierChoisi = Application.GetOpenFilename()

merci pour tout vous êtes super .

[mickmix69]

De plus si les personnes utilisant le code n'ont pas la même lettre du lecteur réseau (fréquent), il faut tout simplement récupérer la lettre du chemin réseau

Code :

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

1
2
3
4
TrameFolder = ActiveWorkbook.Path & Application.PathSeparator & "Trames" 
' ou encore TrameFolder = "\\NomDuServeur\DisqueReseau\Trames"
 
lettreLecteur = Left(TrameFolder, 1) 'on récupère la lettre du lecteur reseau

[arno31]

FileDialog marche très bien. Voilà mon code :

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
39
40
41
42
43
44
45
46
47
Function selectFile(ext As String, extLabel As String, Optional titre As String) As String
 
    'Declare a variable as a FileDialog object.
    Dim fd As FileDialog
 
    'Create a FileDialog object as a File Picker dialog box.
    Set fd = Application.FileDialog(msoFileDialogFilePicker)
 
    'Declare a variable to contain the path
    'of each selected item. Even though the path is aString,
    'the variable must be a Variant because For Each...Next
    'routines only work with Variants and Objects.
    Dim vrtSelectedItem As Variant
 
    'Use a With...End With block to reference the FileDialog object.
    With fd
        'Add a filter that includes Excel files and make it the second item in the list.
        .Filters.Add extLabel, ext, 1
        'Sets the initial file filter to number 2.
        .FilterIndex = 2
 
        'Set the initial path to the current file path.
        .InitialFileName = ActiveWorkbook.Path
        .AllowMultiSelect = False
        .Title = titre
 
        'Use the Show method to display the File Picker dialog box and return the user's action.
        'The user pressed the button.
        If .Show = -1 Then
 
            'Step through each string in the FileDialogSelectedItems collection.
            For Each vrtSelectedItem In .SelectedItems
 
                'vrtSelectedItem is aString that contains the path of each selected item.
                'You can use any file I/O functions that you want to work with this path.
                'This example displays the path in a message box.
                'MsgBox "The path is: " & vrtSelectedItem
                selectFile = vrtSelectedItem
            Next vrtSelectedItem
        'The user pressed Cancel.
        Else
        End If
    End With
 
    'Set the object variable to Nothing.
    Set fd = Nothing
End Function

Merci.

PS: une autre discussion sur le même sujet : http://www.developpez.net/forums/d67...toire-courant/