VBA - Macro virgule au lieu point virgule

Bonjour

J'ai fait une macro, qui copie colle des données dans un nouveau fichier.

Puis qui le transforme en csv, avec une extension prédéfini .coe.

J'envoi ce fichier sur un lecteur qui se trouve dans un environnement distant via un bureau à distance.

Tout fonctionne humm "presque" bien, sauf 2 choses :

1) il me demande toujours "Voulez-vous enregistrer les modifications que vous avez apportées à xxxxx"

2) le csv ne passe pas en ";" mais en ","

j'ai essayé de changer la fonction local=true en false, de l'enlever complètement, mais rien n'y fait.

Si vous avez une idée? je suis preneur.

merci !

(code ci-dessous)

Sub COE()
'

'
  Dim SourceS As Workbook  ' Classeur source
  Dim DestiD As Workbook  ' Classeur de destination
  Dim Folder As String, FullName As String

 If Range("D11") = "" Or Range("D13") = "" Or Range("D37") = "" Then
    MsgBox "merci de remplir les données manquantes"
  Else

  'Feuille MACRO ˆ creer au prealable cf *1
    Worksheets("Macro").AutoFilterMode = False
    Sheets("MACRO").Select
    Set SourceS = ActiveWorkbook

        ActiveSheet.Range("$A$2:$F$1560").AutoFilter Field:=4, Criteria1:=">0", _
        Operator:=xlAnd

    Range("A1").Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlToRight)).Select

    Selection.Copy
    Workbooks.Add
    Set DestiD = ActiveWorkbook
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

    'suppr entête
    Rows("2:2").Select
    Selection.Delete Shift:=xlUp

    'format date
    Range("E1").Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlToRight)).Select
    Selection.NumberFormat = "dd/mm/yyyy"

    Folder = "I:\Vente\APP_Vente" & "\"
    FullName = Folder & SourceS.Sheets("Intro").Range("D13").Value & "_" & Format(Now, "ddmmyyyy_hhmm_ss") & ".Coe"

   ActiveWorkbook.SaveAs Filename:=FullName, FileFormat:=xlCSV, Local:=True, CreateBackup:=False
   ActiveWorkbook.Close savechanges:=FalseTest

 SourceS.Sheets("Intro").Activate
 Range("a1").Select
 End If
End Sub

j'ai auto trouvé, désolé pour le spam

pour ceux que çà interresse il fallait finir par :

    ActiveWorkbook.Close savechanges:=False
Rechercher des sujets similaires à "vba macro virgule lieu point"