bonjour a tous,
@thierry, qu'entends tu par ouvrir par excel ?
je pense que c'est ce que je fais car je l'importe par excel .
ci joint le code :
Workbooks.OpenText FileName:="h:\statfam\STATFAM.TXT", 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), Array(5, 1), Array(6, 1), Array(7, 1), Array(8, 1))
Range("A2:A46,B2:B46,C2
46").Select
Range("C2").Activate
ActiveWindow.ScrollRow = 1
Range("A2:A46,B2:B46,C2
46,F2:F46").Select
Range("F2").Activate
Selection.Copy
Windows("statfammodl.xls").Activate
ActiveWindow.ScrollRow = 1
Range("B7").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Windows("STATFAM.TXT").Activate
ActiveWindow.Close SaveChanges:=False
MsgBox "Vous devez changer de mois puis cliquer sur le bouton Sauvegarde", 64
Range("a1").Select
dj.run