Re : Sauvegarde en .txt
Bonsoir,
Un grand merci pour votre réponse, et vous voudrez bien m'excuser pour avoir tardé à répondre, mais j'étais en déplacement.
Je viens d'essayer le code que vous citez ci-dessus et au premier abord, il ne fonctionnait pas...
Par contre, une fois supprimé la seconde sauvegarde donnée par l'enregistreur de macro (j'avais enregistré cette macro rapidement si éventuellement vous me demandiez mon code), cela semble fonctionner à merveille ! ! !
Mon code initial :
Sub Macro1()
Workbooks.OpenText Filename:= _
"D:\documents and Settings\...\204018001.xls" _
, Origin:=xlWindows, StartRow:=1, DataType:=xlDelimited, TextQualifier _
:=xlNone, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, _
Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(1, 2), _
TrailingMinusNumbers:=True
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:= _
"D:\documents and Settings\...\204018001.txt" _
, FileFormat:=xlUnicodeText, CreateBackup:=False, local:=True
ActiveWorkbook.Save
ActiveWindow.Close
Application.DisplayAlerts = True
End Sub
Le code modifié :
Sub Macro1()
Workbooks.OpenText Filename:= _
"D:\documents and Settings\...\204018001.xls" _
, Origin:=xlWindows, StartRow:=1, DataType:=xlDelimited, TextQualifier _
:=xlNone, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, _
Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(1, 2), _
TrailingMinusNumbers:=True
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:= _
"D:\documents and Settings\...\204018001.txt" _
, FileFormat:=xlUnicodeText, CreateBackup:=False, local:=True
ActiveWindow.Close
Application.DisplayAlerts = True
End Sub
Un grand merci. J'essaye demain en vraie grandeur sur mon application.
Cordialement,
jc73