VBA pour extraction et enregistrement

[Kaizers]

Bonjour,

Dans un fichier j'effectue un retraitement via VBA, seulement c'est plus loin que je bloque.

J'aimerai un code VBA me permettant d'exporter la Feuille "XXX" sur un nouveau fichier, et m'enregistrer le fichier en .CSV sur le bureau de mon ordi.

Si quelqu'un peut m'aider, ça serait vraiment super, merci !!!!

Kaizers

 

[don_pets]

Re : VBA pour extraction et enregistrement

'llo,

T'aider ça oui tu es au bon endroit, mais pourrais tu joindre à ta demande, un fichier d'exemple afin de t'aider au mieux!

Méchui

 

[tototiti2008]

Re : VBA pour extraction et enregistrement

Bonjour Kaizers,

à tester

Dim Chemin As String
    Sheets("XXX").Copy
    Chemin = CreateObject("WScript.Shell").SpecialFolders("Desktop")
    ActiveWorkbook.SaveAs Filename:=Chemin & "\Test.csv", FileFormat:=xlCSVMSDOS, CreateBackup:=False
    ActiveWorkbook.Close False

Edit : Bonjour don pets

 

[Kaizers]

Re : VBA pour extraction et enregistrement

Bonjour Kaizers,

à tester

Dim Chemin As String
    Sheets("XXX").Copy
    Chemin = CreateObject("WScript.Shell").SpecialFolders("Desktop")
    ActiveWorkbook.SaveAs Filename:=Chemin & "\Test.csv", FileFormat:=xlCSVMSDOS, CreateBackup:=False
    ActiveWorkbook.Close False

Edit : Bonjour don pets

Bonjour, c'est PARFAITEMENT ça merci
Par contre j'aimerai que ça enregistre en .CSV (Séparateur de virgule)

Tu peux me faire la modif ? je sais pas quoi mettre à la place de xlCSVMSDOS

 

[tototiti2008]

Re : VBA pour extraction et enregistrement

Bonjour à tous,

peut-être

Dim Chemin As String    
Sheets("XXX").Copy
    Chemin = CreateObject("WScript.Shell").SpecialFolders("Desktop")
    ActiveWorkbook.SaveAs Filename:=Chemin & "\Test.csv", FileFormat:=xlCSVMSDOS, CreateBackup:=False, Local:=False
    ActiveWorkbook.Close False

Si pas ça poste un fichier comme préconisé par don pets