ouvrir un fichier à choisir [Résolu]

[fmris]

bonjour
dans ma macro, je souhaiterais faire affichier l'onglet provenant de fichier ouvrir - de choisir le fichier en question, et d'appliquer la fonction suivante de telle maniere a ce que l'opérateur n'est qu'a choisir le fichier.

j'ai fait en enregistrant la macro voir cidessous. <la seule différence est que je veux choisir manuellement mon fichier qui est un fichier .txt.

Code :

1
2
3
4
5
Workbooks.OpenText Filename:="E:\CVM\041011\1106062ADAMEL1Petit Levier", _
        Origin:=xlWindows, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
        xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=True, _
        Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(1, 1), _
        TrailingMinusNumbers:=True

[Daniel.C]

Bonjour,

Code :

1
2
3
4
5
6
7
8
9
'Réf. 111008.xlsm
Dim Fichier As String
Fichier = Application.GetOpenFilename("Fichiers texte (*.txt), *.txt")
Workbooks.OpenText Fichier, _
        Origin:=xlWindows, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
        xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=True, _
        Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(1, 1), _
        TrailingMinusNumbers:=True
MsgBox ActiveWorkbook.ActiveSheet.Name

(je ne sais pas où tu veux afficher le nom de l'onglet).

[fmris]

ca marchepour un fichier txt. super merci
mainteant j'aimerais faire la même chose pour un fichier qui n'a pas d'extension à l'origine.
Ce qui equivaut, en me servant des boutons excel, fichier ouvrir tous les fichiers

[bbil]

sur GetOpenFileName !

[Daniel.C]

Apparemment, ce ne serait pas possible. si tu entres :

Code :

Fichier = Application.GetOpenFilename("Fichiers sans extension (*.), '*.")

tu récupères tous les fichiers. Il faut entrer manuellement : "*." dans la boîte de dialogue "Ouvrir".

[fmris]

merci mais je n'arrive pas a trouver les fonctions associes comme indiqué dns le code pour l'ouverture du fichier

[Daniel.C]

?
Apparemment, il n'y a pas moyen de filtrer les fichiers sans extension. J'ai essayé avec SendKeys d'entrer "*." (sans les guillemets) mais ça ne marche pas, sans doute parce que la boîte de dialogue est ouverte.