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
