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

Bonjour,

J'ai eu le même souci de mon côté avec des macros Excel 200 qui ne fonctionne plus sous 2003.

Tout simplement car dans l'instruction SAVEAS, il y a une nouveau paramètre nommé 'local'

Il faut le mettre à TRUE pour qu'il prenne en considération les options langue d'excel.

Sinon, ilprends les options langues de Visual Basic.

Et souvent Excel est en français, donc avec un séparateur ;
Alors que VBA est en anglais avec séparateur ,.

Pour moi cela a fonctionné

voici la ligne VBA pour Excel2003 :
ActiveWorkbook.SaveAs Filename:=fname2, FileFormat:=xlCSV, CreateBackup:=False, local:=True

voici la ligne pour Excel2000:
ActiveWorkbook.SaveAs Filename:=fname2, FileFormat:=xlCSV, CreateBackup:=False