Comment intégrer la sauvegarde d'un fichier .csv dans le code VB Résolu

Question

Bonjour, 

j'ai crée une macro qui me permet de créer un fichier .csv à partir d'un fichier .xlsm :

Sub CSVT()

FichAdwya = "Adwya.xlsm"
Application.ScreenUpdating = False
Rep = "C:\Users	oshiba\Desktop\Principal\"

Workbooks.Open Rep & FichAdwya
    ActiveWorkbook.SaveAs Filename:= _
        "C:\Users	oshiba\Desktop\Principal\Adwya.csv", FileFormat:=xlCSV, _
        CreateBackup:=False
    ActiveWorkbook.Save
    ActiveWindow.Close
End Sub


sauf que quand j'applique ce code j'ai toujours la fenêtre d'enregistrement qui me demande : souhaitez vous enregistrer les modifications apportées au fichier Adwya.csv

et c'est ennuyeux de cliquer ok pour 50 fichiers de ce type 

comment j'intègre cette phase de sauvegarde dans le code 

merci

Maurice · Answer

bonjour
Voila la macro que je vient de faire
a mettre en forme 
Sub ExportCsv()
    Sheets("Sortie").Select
    Sheets("Sortie").Copy
Application.DisplayAlerts = False
' Mise en forme de la copy
    ActiveWindow.FreezePanes = False
' ------------------------
    ChDir "D:\Mes documents\Elise"
' enlever les message syteme DisplayAlerts 
Application.DisplayAlerts = False
    
   ActiveWorkbook.SaveAs _
      Filename:="D:\Mes documents\Elise\fiche_personne.csv", _
      FileFormat:=xlCSV, _
      CreateBackup:=False, _
      local:=True
   ActiveWorkbook.Close
   
With Application
    .DisplayAlerts = True
    .ScreenUpdating = True
End With
End Sub

TraderAS · Answer

wow ca marche, Merci Maurice 
voila le nouveau code :
Sub CSVT()

FichAdwya = "Adwya.xlsm"
Application.ScreenUpdating = False
Rep = "C:\Users	oshiba\Desktop\Principal\"
ActiveWindow.FreezePanes = False

Workbooks.Open Rep & FichAdwya
    
    Application.DisplayAlerts = False
    ActiveWorkbook.SaveAs Filename:= _
        "C:\Users	oshiba\Desktop\Principal\Adwya.csv", FileFormat:=xlCSV, _
        CreateBackup:=False
    ActiveWorkbook.Save
    ActiveWindow.Close
    
    With Application

    .DisplayAlerts = False

    .ScreenUpdating = False

   End With
End Sub

Comment intégrer la sauvegarde d'un fichier .csv dans le code VB

2 réponses

Discussions similaires

Newsletters