Bonjour,
j'ai mon macro qui sauvegarde une de mes feuille excel en csv. Il marche bien mais dès que je fais mon sauvegarde, je perds mes derniers modification sur mon fichier excel.
J'aimerai faire de sorte que le csv soit sauvegardé et que le fichier excel reste intacte et ne ferme pas.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
Sub SaveCSV()
    Dim rep As String
    Dim Chemin As String, Fichier1 As String
    Chemin = dossier_cible & "\"
    Fichier1 = Range("A5").Value & "_" & Range("J1").Value & " " & Format(Date, "yyyy")
 
    Application.DisplayAlerts = False
    With ActiveWorkbook
    With ActiveSheet
      .Rows("1:3").Delete
     .SaveAs Filename:=Chemin & Fichier1 & ".csv", FileFormat:=xlCSV, CreateBackup:=False
    End With
    MsgBox "Fichier sortie enregistré sous : " & dossier_cible & "\" & Fichier1
    End With
     Application.DisplayAlerts = True
End Sub
Merci d'avance.