1 2 3 4 5 6 7 8 9 10
| 'test d'enregistrement dans tous les formats
ChDir "C:\Users\UXXXXXX\Desktop"
ActiveWorkbook.SaveAs Filename:="C:\Users\U179508\Desktop\texte unicode.txt", _
FileFormat:=xlUnicodeText, CreateBackup:=False
ActiveWorkbook.SaveAs Filename:="C:\Users\U179508\Desktop\texte macintosh.txt", _
FileFormat:=xlTextMac, CreateBackup:=False
ActiveWorkbook.SaveAs Filename:="C:\Users\U179508\Desktop\texte dos.txt", _
FileFormat:=xlTextMSDOS, CreateBackup:=False
ActiveWorkbook.SaveAs Filename:="C:\Users\U179508\Desktop\texte séparateur tab.txt", _
FileFormat:=xlText, CreateBackup:=False |
Partager