1 2 3 4 5 6 7 8 9 10
| Application.DisplayAlerts = False
Workbooks.OpenText Filename:= _
"http://carma.org/api/1.0/searchLocations?name=Virginia", Origin:=xlMSDOS, _
StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, Comma:=False _
, Space:=False, Other:=False, FieldInfo:=Array(1, 1), _
TrailingMinusNumbers:=True
ActiveWorkbook.SaveAs Filename:="C:\Users\Xxxx\Documents\monClasseur.EXTENSION TXT OU AUTRE"
Application.DisplayAlerts = True |
Partager