Enristrement format cvs par macro

[Tomtom]

Bonjour,

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 ';' !!??

Quelqu'un à une idée ?

Merci de votre aide,

Tom

 

[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

 

[_Thierry]

Bonjour Tom, le Forum

Je vois que tu as su chercher dans les archives du Forum et adapter à cette démo :

=> Lien supprimé

Même en y respectant les noms de variables 😉

Mais c'est très bien de revenir poster la solution afin que d'autres puissent en profiter.

Bonne Journée
@+Thierry