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

Résolu/Fermé

TraderAS Messages postés 110 Date d'inscription lundi 3 décembre 2012 Statut Membre Dernière intervention 26 avril 2018 - 26 mars 2013 à 17:12
TraderAS Messages postés 110 Date d'inscription lundi 3 décembre 2012 Statut Membre Dernière intervention 26 avril 2018 - 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

A voir également:

Comment intégrer la sauvegarde d'un fichier .csv dans le code VB
Fichier rar - Guide
Comment réduire la taille d'un fichier - Guide
Comment ouvrir un fichier epub ? - Guide
Fichier host - Guide
Fichier iso - Guide

2 réponses

Réponse 1 / 2

Maurice
26 mars 2013 à 17:26

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 lundi 3 décembre 2012 Statut Membre Dernière intervention 26 avril 2018 1
26 mars 2013 à 17:33

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

Discussions similaires

comment donner les droits sur fichier partage

Chemin Logo du site de la Cité de l'espace

Discussions similaires

Newsletters