[RESOLU] Probleme Application FileDialog

Marsh Posté le 30-04-2009 à 16:43:15

Bonjour,

J'ai une macro qui utilise une interface graphique. Sur cette interface, j'utilise 2 boutons qui me permettent de selectionner des fichiers specifiques.

Le probleme, c'est qu'une fois que j'ai utilise le premier, il garde en memoire le type de fichier et me repropose a chaque fois le meme type de fichier alors que ca devrait changer.... Z'avez rien compris? Alors voici un exemple!

Je lance l'application et je clique sur le bouton 2 qui me sert a selectionner un fichier de type "*.spe". Je selectionne mon fichier sans probleme.
Je clique sur le bouton 4 qui me sert a selectionner des fichiers de type "*.lcs" et la il me propose les fichiers de type "*.spe". Il faut que je change a chaque fois le type de fichier et ca commence a me gonfler serieux (surtout que derriere, ca peut entrainer pas mal d'erreurs!

Si je lance une deuxieme fosi l'application, il a garde en memeoire le dernier type de fichier selectionne et me le repropose....

Voici le code!

Code :

Private Sub CommandButton4_Click()
MsgBox ("Attention : l'adresse ne doit pas comporter d'espace" )
Dim fdChoix As FileDialog
Dim strNomfichier As String
Set fdChoix = Application.FileDialog(msoFileDialogFilePicker) 'choix de fichier
fdChoix.ButtonName = "Choisir" 'nom du bouton
fdChoix.Title = "Choisir un fichier .lcs" ' titre de la boite
fdChoix.Filters.Add "Fichiers .lcs", "*.lcs" 'filtre des fichiers
fdChoix.InitialFileName = "H:" 'dossier initial
fdChoix.AllowMultiSelect = False 'pas de multi sélection
If fdChoix.Show = False Then
MsgBox "Choix annulé"
Exit Sub
Else
strNomfichier = fdChoix.SelectedItems(1) 'on stocke le nom du fichier sélectionné
Me.TextBox2.Value = strNomfichier
MsgBox (strNomfichier & " sélectionné" ) 'traitement
End If
End Sub
Private Sub CommandButton2_Click()
MsgBox ("Attention : l'adresse ne doit pas comporter d'espace" )
Dim fdChoixSpe As FileDialog
Dim strNomfichSpe As String
Set fdChoixSpe = Application.FileDialog(msoFileDialogFilePicker) 'choix de fichier
fdChoixSpe.Title = "Choisir le fichier spe" ' titre de la boite
fdChoixSpe.Filters.Add "Fichiers spe", "*.spe" 'filtre des fichiers
fdChoixSpe.InitialFileName = "H:" 'dossier initial
fdChoixSpe.AllowMultiSelect = False 'pas de multi sélection
If fdChoixSpe.Show = False Then
MsgBox "Choix annulé"
Exit Sub
Else
strNomfichSpe = fdChoixSpe.SelectedItems(1) 'on stocke le nom du fichier sélectionné
Me.TextBox1.Value = strNomfichSpe
MsgBox (strNomfichSpe & " sélectionné" ) 'traitement
End If
End Sub

Merci de m'eviter de devenir fou!

Message édité par malaka le 30-04-2009 à 18:23:40

Reply

Marsh Posté le 30-04-2009 à 16:43:15

Reply

Marsh Posté le 30-04-2009 à 17:01:38

D'après la documentation, il existe un paramètre optionnnel supplémentaire pour Filters.Add qui est un numéro d'instance. Donc, peut-être qu'il faudrait essayer :

fdChoix.Filters.Add "Fichiers .lcs", "*.lcs", 10
...
fdChoixSpe.Filters.Add "Fichiers spe", "*.spe", 11

Reply

Marsh Posté le 30-04-2009 à 17:28:16

Le parametre en question est une adresse?!?! Ca me genere le message suivant "Erreur 9 L'indice n'appartient pas a la selection"....

Message édité par malaka le 30-04-2009 à 17:32:31

Reply

Marsh Posté le 30-04-2009 à 17:52:31

Salut, placer

fdChoix.Filters.Clear

et

fdChoixSpe.Filters.Clear

aux endroits idoines

Message édité par kiki29 le 30-04-2009 à 17:52:49

Reply

Marsh Posté le 30-04-2009 à 18:23:11

Nickel ca marche parfaitement! :jap:

En l'occurence, je les ai palces juste avant mes filtres!

Reply

[RESOLU] Probleme Application FileDialog

Sujets relatifs:

Leave a Replay