Exporter onglet en csv

[choupi_nette]

Bonjour tout le monde,
j'ai la macro suivante qui bug.
Elle est censee sauver l'onglet nomme "blabla" au format csv dans le dossier H:\toto
je ne sais pas ce qui cloche
Si l'un d'entre vous peut maider ...
Merci

Sub saveas()

Sheets(blabla).Select
ChDir "H:\toto"
Application.DisplayAlerts = False
ThisWorkbook.saveas "H:\toto\RT_step" & "RT_Volumes_" & Format(Date, "dd-mm-yy") & " " & Format(Time(), "hh.nn.ss AM/PM"), FileFormat:=xlCSVMSDOS, CreateBackup:=False
Application.DisplayAlerts = True
End Sub



Choupi

 

[Pierrot93]

Re : Exporter onglet en csv

Bonjour,

essaye peut être comme ceci :

ThisWorkbook.SaveAs "H:\toto\RT_step" & "RT_Volumes_" & Format(Now, "dd-mm-yy hhnnss"), xlCSVWindows, local:=True

bon après midi
@+

 

[choupi_nette]

Re : Exporter onglet en csv

Bonjour,

essaye peut être comme ceci :

ThisWorkbook.SaveAs "H:\toto\RT_step" & "RT_Volumes_" & Format(Now, "dd-mm-yy hhnnss"), xlCSVWindows, local:=True

bon après midi
@+

Ca beugue toujours au debut a cette ligne:
Sheets(blabla).Select

 

[KenDev]

Re : Exporter onglet en csv

Bonjour Choupi, Pierrot,

Peut-être aussi ajouter un 'ChDrive "H"' avant ChDir, puisque ce dernier ne change que le répertoire mais pas le lecteur.

Sinon un code alternatif :

Option Explicit
Const vPth$ = "H:\toto"
Const vShNm$ = "blabla"

Sub SaveAsCsv()
    Call XlsToCsv(vShNm, False, vPth)
    Unload UserForm1
End Sub

Private Sub XlsToCsv(vSFN As String, b As Boolean, sPth As String)
'entrées: nom de la feuille, delete de la feuille?, chemin du dossier (avec \ final)
Dim x$, i&, j%, Cl%, Rw&
Rw = Worksheets(vSFN).UsedRange.Rows.Count
Cl = Worksheets(vSFN).UsedRange.Columns.Count
Open sPth & vSFN & ".csv" For Output As #1
For i = 1 To Rw
    x = ""
    For j = 1 To Cl
        x = x & Worksheets(vSFN).Cells(i, j).Value & ";"
    Next j
    Print #1, x
Next i
Close #1
If b = True Then
    Application.DisplayAlerts = False
    Worksheets(vSFN).Delete
    Application.DisplayAlerts = True
End If
End Sub

Cordialement

KD

Edit :

Ca beugue toujours au debut a cette ligne:
Sheets(blabla).Select

Sheets("blabla").Select ?

 

[Pierrot93]

Re : Exporter onglet en csv

Re,

Ca beugue toujours au debut a cette ligne:
Sheets(blabla).Select

mets des guillemets si nom de feuille du classeur actif :

Sheets("blabla").Select