[Excel vba]enregistrement au format csv

local:= true et paramètre= ; dans le panneau de config. ne suffisent pas.
par contre on notera que
1-on lance la macro à partir du fichier monfichier.xls
2-Le fichier est désormais ouvert sous monfichier.csv (mais toujours avec du format xls (couleurs, onglets, ...)
3-on demande la fermeture du fichier
..et là il faut répondre à 3 questions mini pour s'en sortir.
4-après plusieurs essais on note que si on confirme correctement toutes les demandes relatives à l'enregistrement on finit par avoir un csv avec 'point-virgule' (que Excel sait reconnaitre à l'ouverture) (ce qui n'est pas le cas si on part du principe que le saveas a bien finit son boulot et que l'on répond aux questions en ce sens)

Solution de contournement après le saveas --> 3 lignes en exclusivité mondiale sur ce forum :

Application.DisplayAlerts = False
ActiveWorkbook.Close
Application.DisplayAlerts = True

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

dans les options régionales du panneau de config, puis dans l'ongelet sélectionn, personnalisé, il y a le choix du caractère

ET... également avoir lu le message nobody (20/04/2011). Si l'on ne désactive pas le displayalerts et que l'on répond mal aux questions d'enregistrement Excel va réenregistrer sur le fichier avec le séparateur , au lieu de ;.

Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:=DeskPath & "\export.csv", FileFormat:=xlCSV, CreateBackup:=False, local:=True
ActiveWorkbook.Close
Application.DisplayAlerts = True

Merci pour ta réponse mais le pb est que j' ai absolument besoin de ";" comme séparateur pour un upload ultérieur. QQ1 connait-il le moyen de choisir le séparateur à l'enregistrement par macro au format csv ???

Merci

bonne réponse dans saveas
- il faut le local:=true en parametre
- et avoir bien paramétré dans les paramètres régionaux le séparateur de liste en ";"

merci

bonjour

dans vba lorsque tu mets une formule par exemple :

ActiveCell.FormulaR1C1 = SI(C7="";"";RANG(C7;C$3:C$27;0))

elle ne fonctionne pas.

mais celle ci fonctionne :

ActiveCell.FormulaR1C1 = SI(C7="","",RANG(C7,C$3:C$27,0))

car vba ne connait pas ; et exige ,

de toute façon si ton fichier CSV est avec virgule,
cela ne l'empêche pas de fonctionner.