Voilà j'ai un soucis, j'ai une macro qui fonctionne bien, cependant elle me sauvegarde ma feuille en .csv automatiquement, et après ouverture de mon .csv dont j'ai changé l'extension en .rte (format de fichier lisible par oziexplorer), il me met des guillemets quand il y a présence d'une chaine de caractère avec séparateur, bref c'est la loose, parce-que j'aimerai pouvoir exporter ma feuille directement en .rte et sans guillemets.
Je suis un peu pommé, ci-joint ma macro.
Pourriez-vous m'aiguiller, j'ai vu par les différents moteur de recherche des solutions, mais il s'agit souvent d'une ou deux lignes et je me dis que dans ma macro il me faudra changer bien plus d'une ou deux lignes pour arriver au même résultat.
Cordialement.
Je suis un peu pommé, ci-joint ma macro.
Pourriez-vous m'aiguiller, j'ai vu par les différents moteur de recherche des solutions, mais il s'agit souvent d'une ou deux lignes et je me dis que dans ma macro il me faudra changer bien plus d'une ou deux lignes pour arriver au même résultat.
Cordialement.
Sub FICELLERTE()
Dim Destination As Range
Dim MaPlage As Range
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Sheets("Work_Sheet_2").Select
Cells.ClearContents
Sheets("RTE_FLITESTAR.rte").Select
Cells.ClearContents
Sheets("Compilation").Select
Set Destination = Sheets("Work_Sheet_2").Range("A1")
Set MaPlage = Sheets("Compilation").Range("A1:M" & Sheets("Compilation").Range("A65536").End(xlUp).Row)
Set tbl = ActiveCell.CurrentRegion
tbl.Offset(1, 0).Resize(tbl.Rows.Count - 1, tbl.Columns.Count).Select
MaPlage.Copy Destination
Sheets("Work_Sheet_2").Select
Range("N2").FormulaR1C1 = "1"
Cells.Find("*", after:=[A1], LookIn:=xlFormulas, lookat:=xlPart, searchorder:=xlByRows, searchdirection:=xlPrevious, _
MatchCase:=False, searchformat:=False).Select
n = Selection.Row
For i = 2 To n
Cells(i, 14).FormulaR1C1 = _
"=R[-1]C+1"
Cells(i, 15).FormulaR1C1 = _
"=RC[-9]+((500*RC[-8]+3*RC[-7])/30000)"
Cells(i, 17).FormulaR1C1 = _
"=RC[-7]+((500*RC[-6]+3*RC[-5])/30000)"
Cells(i, 16).FormulaR1C1 = _
"=IF(RC[-11]=""s"",-RC[-1],RC[-1])"
Cells(i, 18).FormulaR1C1 = _
"=IF(RC[-9]=""W"",-RC[-1],RC[-1])"
Cells(i, 20).FormulaR1C1 = _
"=CONCATENATE(""W, 0, "",C[-6],"", "",C[-6],"","",C[-16],"" , "",C[-4],"", "",C[-2],"",39154.4176025, 111, 4, 5, 255, 13158342,0, 0, 0"")"
Next i
Range("T2:T65000").Copy
Sheets("RTE_FLITESTAR.rte").Columns("A:A").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Sheets("RTE_FLITESTAR.rte").Select
For j = 1 To 5
Rows("1:1").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Next j
Range("A1").FormulaR1C1 = "OziExplorer Route File Version 1.0"
Range("A2").FormulaR1C1 = "WGS 84"
Range("A3").FormulaR1C1 = "Reserved 1"
Range("A4").FormulaR1C1 = "Reserved 2"
Range("A5").FormulaR1C1 = "R, 0,R0 ,,255"
Sheets("RTE_FLITESTAR.rte").Select
Cells.Select
ChDir "G:\tst flitestar\Route"
ActiveWorkbook.SaveAs Filename:= _
"G:\tst flitestar\Route\RTE_FLITESTAR.rte.csv", FileFormat:=xlCSV, _
CreateBackup:=False
Sheets("Main_Sheet").Select
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub