Bouton Parcourir

Salut a tous/toutes

Je cherche a mettre en place un bouton parcourir permettant a l'utilisateur de ma fonction de sélectionner un fichier (dans un userform). J'y arrive mais cependant, je voudrais changer une chose: Je voudrais que lorsque l'utilsateur choisi son fichier, je n'affiche que les fichiers .txt et aucun autre.

J'ai ca pour l'instant:
Private Sub CommandButton1_Click()
    CommonDialog1.ShowOpen
    If CommonDialog1.FileName = "" Then
        Exit Sub
    End If
    TextBox1.Text = CommonDialog1.FileName
End Sub

Si qqn peut voler a mon secours

Salut,

Private Sub CommandButton1_Click()
    With CommonDialog1
      .ShowOpen
      .Filter = ".txt"                'rajoute ça, à adapter !
    If CommonDialog1.FileName = "" Then
        Exit Sub
    End If
    TextBox1.Text = CommonDialog1.FileName
End Sub

@++

  --Mortalino--
Le Mystérieux Chevalier "Provençal, le Gaulois"
N'oubliez pas de lire le règlement !

Private Sub CommandButton1_Click()
    With CommonDialog1
      .ShowOpen
      .Filter = ".txt"                'rajoute ça, à adapter !
    End With                          'j'avais oublié ça
    If CommonDialog1.FileName = "" Then
        Exit Sub
    End If
    TextBox1.Text = CommonDialog1.FileName
End Sub

@++

  --Mortalino--
Le Mystérieux Chevalier "Provençal, le Gaulois"
N'oubliez pas de lire le règlement !

ca ne marche pas

Merci!

Dans la meme lignée, je souhaite créer un fichier .txt et écrire dedans toujours par l'intermédiaire d'un bouton parcourir. J'aimerais que si l'utilisateur choisit un fichier déja existant, un message comme quoi les données de ce fichier seront perdues apparaisse. Comment faire?