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