VBA - Macro virgule au lieu point virgule
d
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
d
j'ai auto trouvé, désolé pour le spam
pour ceux que çà interresse il fallait finir par :
ActiveWorkbook.Close savechanges:=False