Enrégistrer des feuilles excel d'un classeur à un autre en CSV

Bonjour f894009,

Merci pour ton aide. J'ai pu faire ce que je voulais mais j'ai juste un pb au nivo de la sauvegarde, il ne sauvegarde pas quand je choisis le dossier dans lequel il devrait s'enregistrer.

Encore merci pour ton aide et dsl du retard

voici où j'en suis:
Sub Enregistrer_Click()

Dim xlApp As Excel.Application
Dim xlbook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Dim xlbook1 As Excel.Workbook
Dim xlSheet1 As Excel.Worksheet
Dim xlbook2 As Excel.Workbook
Dim xlSheet2 As Excel.Worksheet
Dim xlbook3 As Excel.Workbook
Dim xlSheet3 As Excel.Worksheet
Dim Chx As Integer


Set xlApp = CreateObject("Excel.Application")
Set xlbook = xlApp.Workbooks.Add
Set xlbook1 = xlApp.Workbooks.Add
Set xlbook2 = xlApp.Workbooks.Add
Set xlbook3 = xlApp.Workbooks.Add
xlApp.Visible = True
Set xlSheet = xlbook.Worksheets(1)
Set xlSheet1 = xlbook1.Worksheets(1)
Set xlSheet2 = xlbook2.Worksheets(1)
Set xlSheet3 = xlbook3.Worksheets(1)
xlSheet.Name = "CSV_2014"
xlSheet1.Name = "CSV_2015"
xlSheet2.Name = "CSV_2016"
xlSheet3.Name = "CSV_2017"

xlbook.Worksheets(1).Range("A1:B62").Value = Sheets("CSV_2014").Range("A1:B62").Value
xlbook1.Worksheets(1).Range("A1:B62").Value = Sheets("CSV_2015").Range("A1:B62").Value
xlbook2.Worksheets(1).Range("A1:B62").Value = Sheets("CSV_2016").Range("A1:B62").Value
xlbook3.Worksheets(1).Range("A1:B62").Value = Sheets("CSV_2017").Range("A1:B62").Value


Chx = MsgBox("où voulez-vous sauvegarder?", vbYesNo + vbQuestion, "mDF XLpages.com")

If Chx = vbYes Then
Dim chemin As String
Dim Cls As String
Dim objShell As Object, objFolder As Object, oFolderItem As Object

Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.BrowseForFolder(&H0&, "Choisir un répertoire pour l'enregistrement du fichier", &H1&)
On Error GoTo Gesterr

Set oFolderItem = objFolder.Items.Item
chemin = oFolderItem.Path
nom = InputBox("Indiquer le nom du fichier :")

xlbook.SaveAs ("CopieCSV_2014") & chemin & ".csv" & Chx
xlbook1.SaveAs ("CopieCSV_2015") & chemin & ".csv" & Chx
xlbook2.SaveAs ("CopieCSV_2016") & chemin & ".csv" & Chx
xlbook3.SaveAs ("CopieCSV_2017") & chemin & ".csv" & Chx

MsgBox chemin & nom & ".csv"



Gesterr::

Else
CreateObject("Wscript.shell").Popup "Le fichier n'a pas été sauvegardé... Bonne journée", vbExclamation



End If

ActiveWorkbook.SaveAs Filename:=("\")


End Sub

Après avoir créer mes 4 classeur, il me laisse le choix de la sauvegarde. Je choisis le dossier mais apres il ne sauvegarde rien.

Bonjour,

nom = InputBox("Indiquer le nom du fichier :") 

et apres il faut mettre ce nom au bout du chemin, mais attention un seul nom pour quatre fichiers!!!!!

ne pas oublier le backslash

chemin = oFolderItem.Path & "\"

ca ne vous fera jamais un fichier CSV

xlbook.SaveAs ("CopieCSV_2014") & chemin & ".csv" & Chx 

ca oui:

exemple de code pour sauvegarder la feuil1 en csv:

Worksheets("feuil1").SaveAs Filename:="C:\Utilisateurs\Mon Nom\Mes documents\" & Format2014_ & ".csv", FileFormat:=xlCSV, CreateBackup:=False

Vous n'avez pas repondu a la question: pourquoi

Dim xlApp As Excel.Application 

Bonjour,

Dsl je n'ai pas fais attention, vu que je suis débutant sur excel, l'application excel m'a semblé plus simple, j'ai pu comprendre facilement. Mais tu as raison, pourquoi créer une application excel alors que je suis sur excel.
Mais justement il y a un autre pb, lorsque je mets xlbook.SaveAs(" ") & chemin a ".csv" & chx
après xlbook3.Worksheets(1).Range("A1:B62").Value = Sheets("CSV_2017").Range("A1:B62").Value
il sauvegarde mes 4 classeurs en Format csv mais automatiquement dans mes document et cela malgrés le msgbox

Encore merci à toi

Encore un truc, vu que je veux sauvegarder mes classeurs ou feuilles créés, je ne pourrais faire ceci:
xlbook.Worksheets(1).SaveAs Filename:="C:\...\" & nom & ".csv", FileFormat:=xlCSV, CreateBackup:=False