J'utilise le code suivant :
Dim chemin
chemin = ThisWorkbook.Path & ""
ActiveWorkbook.SaveAs Filename:= _
chemin & "nomfichier.csv", FileFormat:=xlCSV, CreateBackup:=False
Mais excel me génere un fichier csv avec "," comme séparateur au lieu de
";". Quand je fais la même opération manuellement, le séparateur est bien ";"
!!??
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Tomtom
Bonjour,
pb résolu : Sub SaveAsCSV(période) Dim Range As Object, Line As Object, Cell As Object Dim StrTemp, chemin As String
Dim Separateur As String chemin = ThisWorkbook.Path & "" Separateur = ";" Set Range = ActiveSheet.UsedRange
Open chemin & "JDEreport" & période & ".csv" For Output As #1 For Each Line In Range.Rows StrTemp = "" For Each Cell In Line.Cells StrTemp = StrTemp & CStr _ (Cell.Text) & Separateur Next Print #1, StrTemp '= " " Next Close End Sub
Merci qd même,
Tom
"Tomtom" wrote:
Bonjour,
J'utilise le code suivant : Dim chemin chemin = ThisWorkbook.Path & "" ActiveWorkbook.SaveAs Filename:= _ chemin & "nomfichier.csv", FileFormat:=xlCSV, CreateBackup:úlse Mais excel me génere un fichier csv avec "," comme séparateur au lieu de ";". Quand je fais la même opération manuellement, le séparateur est bien ";" !!??
Quelqu'un à une idée ?
Merci de votre aide,
Tom
Bonjour,
pb résolu :
Sub SaveAsCSV(période)
Dim Range As Object, Line As Object, Cell As Object
Dim StrTemp, chemin As String
Dim Separateur As String
chemin = ThisWorkbook.Path & ""
Separateur = ";"
Set Range = ActiveSheet.UsedRange
Open chemin & "JDEreport" & période & ".csv" For Output As #1
For Each Line In Range.Rows
StrTemp = ""
For Each Cell In Line.Cells
StrTemp = StrTemp & CStr _
(Cell.Text) & Separateur
Next
Print #1, StrTemp '= " "
Next
Close
End Sub
Merci qd même,
Tom
"Tomtom" wrote:
Bonjour,
J'utilise le code suivant :
Dim chemin
chemin = ThisWorkbook.Path & ""
ActiveWorkbook.SaveAs Filename:= _
chemin & "nomfichier.csv", FileFormat:=xlCSV, CreateBackup:úlse
Mais excel me génere un fichier csv avec "," comme séparateur au lieu de
";". Quand je fais la même opération manuellement, le séparateur est bien ";"
!!??
pb résolu : Sub SaveAsCSV(période) Dim Range As Object, Line As Object, Cell As Object Dim StrTemp, chemin As String
Dim Separateur As String chemin = ThisWorkbook.Path & "" Separateur = ";" Set Range = ActiveSheet.UsedRange
Open chemin & "JDEreport" & période & ".csv" For Output As #1 For Each Line In Range.Rows StrTemp = "" For Each Cell In Line.Cells StrTemp = StrTemp & CStr _ (Cell.Text) & Separateur Next Print #1, StrTemp '= " " Next Close End Sub
Merci qd même,
Tom
"Tomtom" wrote:
Bonjour,
J'utilise le code suivant : Dim chemin chemin = ThisWorkbook.Path & "" ActiveWorkbook.SaveAs Filename:= _ chemin & "nomfichier.csv", FileFormat:=xlCSV, CreateBackup:úlse Mais excel me génere un fichier csv avec "," comme séparateur au lieu de ";". Quand je fais la même opération manuellement, le séparateur est bien ";" !!??
