K Kaizers XLDnaute Occasionnel 31 Août 2015 #1 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
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 XLDnaute Occasionnel 31 Août 2015 #2 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 Vote positif 0 Vote négatif
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 XLDnaute Barbatruc 31 Août 2015 #3 Re : VBA pour extraction et enregistrement Bonjour Kaizers, à tester Code: 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 Dernière édition: 31 Août 2015 Vote positif 0 Vote négatif
Re : VBA pour extraction et enregistrement Bonjour Kaizers, à tester Code: 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
K Kaizers XLDnaute Occasionnel 1 Septembre 2015 #4 Re : VBA pour extraction et enregistrement tototiti2008 à dit: Bonjour Kaizers, à tester Code: 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 Cliquez pour agrandir... 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 Vote positif 0 Vote négatif
Re : VBA pour extraction et enregistrement tototiti2008 à dit: Bonjour Kaizers, à tester Code: 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 Cliquez pour agrandir... 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 XLDnaute Barbatruc 1 Septembre 2015 #5 Re : VBA pour extraction et enregistrement Bonjour à tous, peut-être Code: 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 Vote positif 0 Vote négatif
Re : VBA pour extraction et enregistrement Bonjour à tous, peut-être Code: 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