ouvrir fichier dans meme repertoire

Re : ouvrir fichier dans meme repertoire

Bojour,
Je ne sait pas si cela répondra à votre question , mais je vous propose un "explorateur" qui récupéère en D10 le chemin d"'acces et en D12 le fichier...
Cordialement

Re : ouvrir fichier dans meme repertoire

Bonjour à tous,

A tester dans ton code :

Application.GetOpenFilename("TXT Files (*.txt), *.txt")

A+ à tous

Re : ouvrir fichier dans meme repertoire

Merci mais j'ai du me gauffrer quelque part, un caractère en trop ou pas assez ou un espace....
voici ma macro complète d'ouverture et de mise en forme, à quel endroit dois-je mettre ton bout de code et que dois supprimer?

ChDir "E:\affaires\nomaffaire\04-fichiers extraits"
Workbooks.OpenText Filename:= _
"E:\affaires\nomaffaire\04-fichiers extraits\cibles.txt", Origin _
:=xlWindows, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
xlSingleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, _
Comma:=True, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), _
Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1)), TrailingMinusNumbers _
:=True
Sheets("cibles").Select
Sheets("cibles").Copy After:=Workbooks( _
"nomfichier.xls").Sheets(6)
Range("A:A,F:F").Select
Range("F1").Activate
Selection.Delete Shift:=xlToLeft
Cells.Select
Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("A1").Select

Re : ouvrir fichier dans meme repertoire

merci de ta réponse rapide, ce n'est pas tout à fait ce que je souhaitais mais c'est une autre option de travail que je me réserve
A+