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
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
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
- Fichier host - Guide
- Comment ouvrir un fichier epub ? - Guide
- Fichier iso - Guide
2 réponses
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
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
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
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
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