Discussion :

[Godzestla]

Bonjour,

j'ai ce code

Code :

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

1
2
3
4
5
 
With Application.FileDialog(msoFileDialogFilePicker)
        .AllowMultiSelect = False
        .Title = "Sélectionnez le Fichier"
        .Show

ete je voudrais affichier par défaut l'ancien choix qui est stocké dans une cellule.

Est-ce possible. je ne trouve rien.

Merci.

[fring]

Bonjour,

Ayant Excel 2000 ici je ne peux pas tester, FileDialog ne fonctionnant qu'à partir d'Office 2002, as-tu essayé ceci

Code :

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

.InitialFileName = "Disque:\Repertoire\Fichier"

[Godzestla]

yes.

C'est exactement cela.

Merci beaucoup et désolé d'avoir omis de préciser ma version d'excel.

Bonne journée à toi.

[Godzestla]

petit bémol à ma satisfaction rapide.

Le fichier initial est bien proposé, mais le chemin n'est pas pris en compte.
Il faut donc quitter "My documents" pour aller dans le répertoire voulu via la fenêtre de dialogue.

J'ai tenté CHDIR avant, mais sans succès.

Edit------

Et en plus cet InititalFilename sert de filtre à l'affichage. pour voir autrechose, il faut vider la zone filename de la fenêtre de dialogue.

On aurait pu faire un peu mieux chez MS.

[decondelite]

Peux-tu nous montrer un screen, stp?
Je ne suis pas sûr de comprendre ce qui s'affiche...

[Godzestla]

bien sûr.

Voici d'abord le 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
 
Private Sub Select_Personal_File_Click()
Dim fichier As String
 
 
 
Bonus_Personal_file_Cell = "G22"
fichier = Sheets("Tools").Range(Bonus_Personal_file_Cell)
 
 
 
With Application.FileDialog(msoFileDialogFilePicker)
        .AllowMultiSelect = False
        .Title = "Sélectionnez le Fichier"
        .InitialFileName = fichier
        .Show
If .SelectedItems.Count > 0 Then
    Sheets("Tools").Range(Bonus_Personal_file_Cell) = .SelectedItems(1)
 
End If
 
End With
End Sub

Ensuite via ce code fichier = P:\Bonus\\2008Q3\2008 3Q Bonuszahlung.xls

Et attaché une vignette avec la boite de dialogue à l'ouverture.
Après sélection, l'emplacement est rendu bon si on relance la routine.