Enristrement format cvs par macro

  • Initiateur de la discussion Tomtom
  • Date de début
T

Tomtom

Guest
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
 
T

Tomtom

Guest
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

XLDnaute Barbatruc
Repose en paix
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
 

Discussions similaires

Réponses
2
Affichages
819

Membres actuellement en ligne

Statistiques des forums

Discussions
314 450
Messages
2 109 726
Membres
110 552
dernier inscrit
jasson