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

Résolu

TraderAS Messages postés 110 Date d'inscription Statut Membre Dernière intervention -
TraderAS Messages postés 110 Date d'inscription Statut Membre Dernière intervention - 26 mars 2013 à 17:33

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\toshiba\Desktop\Principal\"

Workbooks.Open Rep & FichAdwya
ActiveWorkbook.SaveAs Filename:= _
"C:\Users\toshiba\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

Afficher la suite

A voir également:

Comment intégrer la sauvegarde d'un fichier .csv dans le code VB
Comment réduire la taille d'un fichier - Guide
Comment ouvrir un fichier epub ? - Guide
Fichier bin - Guide
Code ascii - Guide
Comment déverrouiller un téléphone quand on a oublié le code - Guide

2 réponses

Réponse 1 / 2

Maurice

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

Réponse 2 / 2

TraderAS Messages postés 110 Date d'inscription Statut Membre Dernière intervention 1

wow ca marche, Merci Maurice
voila le nouveau code :
Sub CSVT()

FichAdwya = "Adwya.xlsm"
Application.ScreenUpdating = False
Rep = "C:\Users\toshiba\Desktop\Principal\"
ActiveWindow.FreezePanes = False

Workbooks.Open Rep & FichAdwya

Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:= _
"C:\Users\toshiba\Desktop\Principal\Adwya.csv", FileFormat:=xlCSV, _
CreateBackup:=False
ActiveWorkbook.Save
ActiveWindow.Close

With Application

.DisplayAlerts = False

.ScreenUpdating = False

End With
End Sub

Votre réponse