Je génère un fichier csv en utilisant activeworkbook.save as ...
fileformat:=xlCSV qui normalement sépare les valeurs avec un point
virgule(;)
La macro fonctionne correctement en pas à pas mais si je la lance à partir
du planificateur de tâches, le séparateur est remplacé par une virgule (,)
!!
Oui, déjà rencontré. Contourné en concaténant dans une colonne toutes les autre colonnes et en enregistrant en CSV.
Sub Toto() l = Range("a1").CurrentRegion.Rows.Count c = Range("a1").CurrentRegion.Columns.Count Cells(1, c + 1).Select For cpt = 1 To c a = a & "RC[" & -c + cpt - 1 & "],"";""" & "," Next a = Left(a, Len(a) - 4) ActiveCell.FormulaR1C1 = "=concatenate(" & a & ")" ActiveCell.AutoFill Range(ActiveCell, ActiveCell.Offset (l - 1)) Range(ActiveCell, ActiveCell.Offset(l - 1)).Copy Range(ActiveCell, ActiveCell.Offset(l - 1)).PasteSpecial xlPasteValues Range(Range("a1"), Range("a1").Offset(0, c - 1)).EntireColumn.Delete ActiveWorkbook.SaveAs FileName:="toto.csv", _ FileFormat:=xlCSV, CreateBackup:úlse End Sub
Camille
-----Message d'origine----- Bonjour,
Je génère un fichier csv en utilisant activeworkbook.save as ...
fileformat:=xlCSV qui normalement sépare les valeurs avec un point
virgule(;)
La macro fonctionne correctement en pas à pas mais si je la lance à partir
du planificateur de tâches, le séparateur est remplacé par une virgule (,)
!!
Quelqu'un a-t'il déjà rencontré ce problème ?
Nicky.
.
Bonjour,
Oui, déjà rencontré. Contourné en concaténant dans une
colonne toutes les autre colonnes et en enregistrant en
CSV.
Sub Toto()
l = Range("a1").CurrentRegion.Rows.Count
c = Range("a1").CurrentRegion.Columns.Count
Cells(1, c + 1).Select
For cpt = 1 To c
a = a & "RC[" & -c + cpt - 1 & "],"";""" & ","
Next
a = Left(a, Len(a) - 4)
ActiveCell.FormulaR1C1 = "=concatenate(" & a & ")"
ActiveCell.AutoFill Range(ActiveCell, ActiveCell.Offset
(l - 1))
Range(ActiveCell, ActiveCell.Offset(l - 1)).Copy
Range(ActiveCell, ActiveCell.Offset(l -
1)).PasteSpecial xlPasteValues
Range(Range("a1"), Range("a1").Offset(0, c -
1)).EntireColumn.Delete
ActiveWorkbook.SaveAs FileName:="toto.csv", _
FileFormat:=xlCSV, CreateBackup:=False
End Sub
Camille
-----Message d'origine-----
Bonjour,
Je génère un fichier csv en utilisant activeworkbook.save
as ...
fileformat:=xlCSV qui normalement sépare les valeurs avec
un point
virgule(;)
La macro fonctionne correctement en pas à pas mais si je
la lance à partir
du planificateur de tâches, le séparateur est remplacé
par une virgule (,)
Oui, déjà rencontré. Contourné en concaténant dans une colonne toutes les autre colonnes et en enregistrant en CSV.
Sub Toto() l = Range("a1").CurrentRegion.Rows.Count c = Range("a1").CurrentRegion.Columns.Count Cells(1, c + 1).Select For cpt = 1 To c a = a & "RC[" & -c + cpt - 1 & "],"";""" & "," Next a = Left(a, Len(a) - 4) ActiveCell.FormulaR1C1 = "=concatenate(" & a & ")" ActiveCell.AutoFill Range(ActiveCell, ActiveCell.Offset (l - 1)) Range(ActiveCell, ActiveCell.Offset(l - 1)).Copy Range(ActiveCell, ActiveCell.Offset(l - 1)).PasteSpecial xlPasteValues Range(Range("a1"), Range("a1").Offset(0, c - 1)).EntireColumn.Delete ActiveWorkbook.SaveAs FileName:="toto.csv", _ FileFormat:=xlCSV, CreateBackup:úlse End Sub
Camille
-----Message d'origine----- Bonjour,
Je génère un fichier csv en utilisant activeworkbook.save as ...
fileformat:=xlCSV qui normalement sépare les valeurs avec un point
virgule(;)
La macro fonctionne correctement en pas à pas mais si je la lance à partir
du planificateur de tâches, le séparateur est remplacé par une virgule (,)
