Re : export CSV avec VIRGULE
Bon j'ai trouvé une solution assez simple avec les OPEN et CLOSE, mais je trouve un peu débile qu'excel soit capable d'enregistrer correctement un fichier CSV avec séparateur ; si on le fait manuellement (avec enregistrer sous, puis le choix CSV séparateur
et que ce paramètre ne soit pas un des arguments de la fonction SaveAs...
Au cas ou elle intéresserait, voici ma solution :
NOTE : pour qu'elle fonctionne sans modification, il faut placer le début du nom du fichier CSV dans la cellule (C,1)
Sub Enregistre_CSV()
Dim Boite
Dim DossierFichierExcel As String
Dim NomFichierCSV As String
Dim DateSystème As String * 10
Dim DateSSAAMMJJ As String * 8
Dim Ligne As Object
Dim Cellule As Object
Dim ChaineTemp As String
Dim Separateur As String
'-- Construction du nom du fichier CSV
'--------------------------------------
DossierFichierExcel = ActiveWorkbook.Path
DateSystème = Date
DateSSAAMMJJ = Mid(DateSystème, 7, 4) & Mid(DateSystème, 4, 2) & Mid(DateSystème, 1, 2)
NomFichierCSV = Range("C1").Value
NomFichierCSV = NomFichierCSV & "_" & DateSSAAMMJJ & ".CSV"
'-- Création du fichier CSV
'---------------------------
Separateur = ";"
Open DossierFichierExcel & "\" & NomFichierCSV For Output As #1
For Each Ligne In ActiveSheet.UsedRange.Rows
ChaineTemp = ""
For Each Cellule In Ligne.Cells
ChaineTemp = ChaineTemp & CStr(Cellule.Text) & Separateur
Next
Print #1, ChaineTemp '= " "
Next
Close
Boite = MsgBox("Le fichier " _
& Chr(13) & Chr(10) & " " & NomFichierCSV _
& Chr(13) & Chr(10) & " a bien été sauvegardé.", vbInformation)
End Sub