.FileDialog : existe-t-il un code ou on peut orienter le dialog ?

Version imprimable

06/11/2008, 13h59
Godzestla

.FileDialog : existe-t-il un code ou on peut orienter le dialog ?
Bonjour,

j'ai ce code
Code:

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. :aie:

Merci.
06/11/2008, 14h18
fring

Bonjour,

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

Code:

.InitialFileName = "Disque:\Repertoire\Fichier"
06/11/2008, 15h22
Godzestla

yes.

C'est exactement cela. :resolu:

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

Bonne journée à toi. ;)
06/11/2008, 15h32
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. :cry:

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. :?
06/11/2008, 15h39
decondelite

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

bien sûr.

Voici d'abord le code.

Code:

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.

06/11/2008, 16h16
decondelite

Il n'y aurait pas un antislash de trop dans ton nom de fichier? C'est ça qui fait buguer?

PS: ça sent le nom de fichier en rapport avec des allemands. 8-)
06/11/2008, 16h27
Godzestla

Citation:

Envoyé par decondelite

Il n'y aurait pas un antislash de trop dans ton nom de fichier? C'est ça qui fait buguer?

PS: ça sent le nom de fichier en rapport avec des allemands. 8-)

Bien vu. Evidement que c'est ça. C'était tellement devant mon nez que je ne voyais rien.
En plus cela fonctionnait pour un autre bouton et cela ne m'a pas mis la puce à l'oreille.

Encore merci pour l'oeil de Lynx.

Et pour le rapport Allemand, ben oui. :aie:
06/11/2008, 16h30
decondelite

Ca va ça change des jours où j'essaie d'aider pas mal de gens et où je loupe des évidences sur presque tout le monde. :mouarf: