Bonjour,

je suis sous office 2000, et je cherche à faire apparaitre une boite de dialogue pour sélectionner un fichier type .txt.
Actuellement j'utilise ceci :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
 
Const FolderParamS = "T:\Programme\"
Const DataParamS = "test.txt"
Workbooks.OpenText Filename:= _
        FolderParamS & DataParamS, Origin:= _
        xlWindows, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
        xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, _
        Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), _
        Array(2, 1), Array(3, 1), Array(4, 1))
mais ceci impose que FolderParamS & DataParamS soient des constantes, or je voudrais que ce soit variable, et je voudrais que lorsque mon fichier ainsi sélectionné s'ouvre, qu'il s'ouvre dans les conditions précédentes à savoir
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
Origin:= _
        xlWindows, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
        xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, _
        Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), _
        Array(2, 1), Array(3, 1), Array(4, 1))
j'essaie la fonction Application.Dialogs.Item(xlDialogOpen).Show mais j'ai toutes les extensions possibles et ensuite à l'ouverture du fichier, cela me demande sous quel format je veux que le fichier soit ouvert.

Avez-vous une autre solution ?
j'ai essayé également la boite de dialogue de ouskel'n'or, mais c'est trop lourd pour ce que je veux.

Je vous remercie par avance pour votre aide

Patricia