extraire une feuille d'un classeur sur le bureau avec un format csv

Roland_M

XLDnaute Barbatruc

• 16 Janvier 2014

• #2

Re : extraire une feuille d'un classeur sur le bureau avec un format csv

Bonjour,

pas de pièce jointe !?

 

Vote positif 0 Vote négatif

M

max 35

XLDnaute Nouveau

• 16 Janvier 2014

• #3

Re : extraire une feuille d'un classeur sur le bureau avec un format csv

effectivement...

désolé!
je ne gère pas encore très bien la messagerie...

 

Pièces jointes

• test export csv.xlsm

  111.2 KB · Affichages: 37

Vote positif 0 Vote négatif

Roland_M

XLDnaute Barbatruc

• 16 Janvier 2014

• #4

Re : extraire une feuille d'un classeur sur le bureau avec un format csv

re

Il suffit de faire Enregistrer sous...
en choisissant, dans le Type de fichier CSV(séparateur: point-virgule)(*.csv)
et là tu auras un message qui précisera que seule la feuille active sera sauvegardée, et non pas le classeur tout entier

 

Vote positif 0 Vote négatif

M

max 35

XLDnaute Nouveau

• 16 Janvier 2014

• #5

Re : extraire une feuille d'un classeur sur le bureau avec un format csv

re,

oui c'est ce que je fais pour le moment.
le but est de le faire par macro,de choisir toujours le même emplacement et de récupérer le nom du fichier original à l'extraction.

Max

 

Vote positif 0 Vote négatif

Roland_M

XLDnaute Barbatruc

• 16 Janvier 2014

• #6

Re : extraire une feuille d'un classeur sur le bureau avec un format csv

re
très simple avec l'enregistreur de macro on obtient exemple:
ActiveWorkbook.SaveAs Filename:="E:\Documents\format-csv-test-export-csv.csv", FileFormat:=xlCSV, CreateBackup:=False

 

Vote positif 0 Vote négatif

M

max 35

XLDnaute Nouveau

• 16 Janvier 2014

• #7

Re : extraire une feuille d'un classeur sur le bureau avec un format csv

parfait!!!

merci

 

Vote positif 0 Vote négatif

M

max 35

XLDnaute Nouveau

• 16 Janvier 2014

• #8

Re : extraire une feuille d'un classeur sur le bureau avec un format csv

re bonjours,

je rencontre encore un petit problème
la sauvegarde fonctionne mais je n'arrive pas à garder le même nom de fichier...(remplacer test test dans le code par le nom de l'original)
et au passage un message s'ouvre pour me dire que les macros ne seront pas prisent en conte.
si il est possible de l'éviter tant mieux.

code:

Sub cam_export1()
'
' cam_export1 Macro
'

'
Sheets("2020 CAM").Select
ActiveWorkbook.Save
ChDir "Z:\BUREAU ETUDE\#2020 CAM"
ActiveWorkbook.SaveAs Filename:="Z:\BUREAU ETUDE\#2020 CAM\test test.csv", _
FileFormat:=xlCSV, CreateBackup:=False
Application.Goto Reference:="cam_export1"
End Sub

 

Vote positif 0 Vote négatif