[EXCEL VBA] ::: Exportation d'une feuille excel au format .csv

Bonjour à tout le monde, 

J'ai une petite question, enfin deux 

1 - J'ai un bouton sur une feuille (1) et j'aimerais qu'il permette d'exporter la feuille (5) au format .csv. Comment procéder ?

2 - Quand on exporte une partie d'un fichier Excel en .csv par exemple 
Si je veux faire un bouton pour sauvegarder le fichier Excel, celui-ci s'enregistre en monfichier.csv (monfichier est différent du nom d'origine du fichier Excel, ici c'est ES-v01.0.xls); comment faire un save qui permet de toujours écraser sous le nom de fichier Excel ouvert à l'origine?

J'ai commencé à écrire du code mais je ne sais pas comment finir.

De plus le bout de code pour exporter à la fin de mon traitement, ne fonctionne pas.

[CODE]
' Export the document in cvs file format
' Macro recorded 28/10/2006 by Patrick DUBERNET
'
Public Sub ExportCsv()
           
            Dim LigneIn As String
            Dim LigneExcel As Integer
           
            ' récupération du nombre de fichier à traiter et le nombre de filtres -------
            Call countInFiles
 
            LigneExcel = 2
           
            'Inscrire le contenu d'une feuille Excel dans une autre ?????????????????????
       
            LigneIn = Sheets("Result").Cells(LigneExcel, 3)
           
            If LigneIn = "" Then
                    MsgBox " Not Data transfered, the entry list is empty ! ", vbCritical, "Caution"
                    Exit Sub
                Else
            End If
           
            For LigneExcel = 2 To frmGenerator.nbrEntries
          
            Sheets("Export.csv").Cells(LigneExcel - 1, 1) = Sheets("Result").Cells(LigneExcel, 1)
            Sheets("Export.csv").Cells(LigneExcel - 1, 2) = CStr(";")
            Sheets("Export.csv").Cells(LigneExcel - 1, 3) = Sheets("Result").Cells(LigneExcel, 3)
           
            Next LigneExcel
           
'export le fichier
'Sheets("Export.csv").Activate
'
'ActiveWorkbook.SaveAs Filename:=Sheets("Memory").Cells(2, 4) & "\referenceFile.csv", FileFormat:=xlCSV, CreateBackup:=False
'
'Sheets("Reference File GENERATOR").Activate
 
            Dim CSVFile As New OLEObject
            On Error Resume Next
            With CSVFile
            .ExportRange = Sheets("Export.csv").Cells
            .Export CSVFileName:=ThisWorkbook.Path & "\referenceFile.csv"
            If Err <> 0 Then MsgBox "Cannot export" & ThisWorkbook.Path & "\referenceFile.csv"
            End With
 
MsgBox "save document under CSV format(referenceFile.csv)", vbExclamation, "Export information message"
End Sub
 [\CODE]

Quelqu'un peut-il m'aider?
cordialement,
Patrick

Voilà j'ai modifié mon code :

            LigneExcel = 2
           
            'Inscrire le contenu d'une feuille Excel dans une autre ?????????????????????
       
            LigneIn = Sheets("Result").Cells(LigneExcel, 3)
           
            If LigneIn = "" Then
                    MsgBox " Not Data transfered, the entry list is empty ! ", vbCritical, "Caution"
                    Exit Sub
                Else
            End If
           
            For LigneExcel = 2 To frmGenerator.nbrEntries
          
            Sheets("referenceFile").Cells(LigneExcel - 1, 1) = Sheets("Result").Cells(LigneExcel, 1)
            Sheets("referenceFile").Cells(LigneExcel - 1, 2) = Sheets("Result").Cells(LigneExcel, 3)
           
            Next LigneExcel
           
'export le fichier

Sheets("referenceFile").SaveAs Filename:=Sheets("Memory").Cells(2, 4) & "\referenceFile.csv", FileFormat:=xlCSV, CreateBackup:=False

MsgBox "save document under CSV format(referenceFile.csv)", vbExclamation, "Export information message"
End Sub

Mais comment faire pour que le fichier ouvert rest le nom de fichier Excel ouvert et non pas le nom de fichier sauvegardé ici ES-01.xls devient referenceFile.csv ce qui est normal puisque que je fais un "save as" de la dernière feuille mais comment y remédier?

Cordialement,
Patrick

Salut essaye ça:

Dim nom As String
Dim splitnom() As String

nom = ThisWorkbook.Name
splitnom = Split(nom, ".")
nom = splitnom(0)

Sheets("referenceFile").SaveAs Filename:=Application.path  & "\" & nom & ".csv", FileFormat:=xlCSV, CreateBackup:=False

 Drikce 06

Si la réponse vous convient: Réponse acceptée. Si la réponse vous convient pas: