Export toute feuille xsl vers csv ...

Export toute feuille xsl vers csv ... - VB/VBA/VBS - Programmation

Marsh Posté le 27-02-2004 à 11:20:34    

Bonjour j'ai une classeur excel avec 8 feuilles xsl (onglet) et je voudrais grace a une bouton exporter ces 8 feuilles en format csv d'un coup.
 
Je ne sais pas si j'ai bien expliquer, de plus je rajoute que je n'y connait rien aux macro  :whistle:  
 
Merci d'avance

Reply

Marsh Posté le 27-02-2004 à 11:20:34   

Reply

Marsh Posté le 27-02-2004 à 11:23:31    

le format csv c du text
donc si tu veux sauvegarder en csv tu ne sauveras kune feuille
il est maintnant possible de farquer une sub ki tu sauvera toutes tes feuilles dans un seul fichier csv mais a la la suite
en append

Reply

Marsh Posté le 27-02-2004 à 11:24:06    

* farquer = fabriquer
:)

Reply

Marsh Posté le 27-02-2004 à 11:29:11    

guillaume1er a écrit :

le format csv c du text
donc si tu veux sauvegarder en csv tu ne sauveras kune feuille
il est maintnant possible de farquer une sub ki tu sauvera toutes tes feuilles dans un seul fichier csv mais a la la suite
en append


 
Oui ca je le savais et c'est justement le probleme je voudrais mais je me suis mal expliquer en fait de mon fichier avec ses 8 tab je voudrais en cliquant sur un bouton generer 8 fichier csv .
 
Mais je ne sais pas du tout comment m'y prendre ...

Reply

Marsh Posté le 27-02-2004 à 11:54:53    

essaye ca
 
 
Public Sub sauv()
    Dim feuille As Worksheet
    For I = 1 To ThisWorkbook.Worksheets.Count
        Set feuille = Worksheets(I)
        Open "c:\sauvcsv_" & I & ".csv" For Output As #1
        J = 1
        While feuille.Range("A" & J).Value <> Empty
           K = 1
           MaxK = K
           While feuille.Cells(J, K).Value <> Empty Or K < MaxK
            Ligne = Ligne & feuille.Cells(J, K).Value & ";"
            MaxK = IIf(MaxK < K, K, MaxK)
            K = K + 1
           Wend
           Print #1, Ligne
           J = J + 1
        Wend
        Close #1
    Next I
End Sub

Reply

Marsh Posté le 27-02-2004 à 11:57:57    

Je suis vraiment novice la dedans  je dois mettre le code ou et comment cree le bouton associé ?

Reply

Marsh Posté le 07-02-2013 à 15:25:50    

Guillaume1er a écrit :

essaye ca
 
 
Public Sub sauv()
    Dim feuille As Worksheet
    For I = 1 To ThisWorkbook.Worksheets.Count
        Set feuille = Worksheets(I)
        Open "c:\sauvcsv_" & I & ".csv" For Output As #1
        J = 1
        While feuille.Range("A" & J).Value <> Empty
           K = 1
           MaxK = K
 
           []Ligne = ""[/]
 
           While feuille.Cells(J, K).Value <> Empty Or K < MaxK
            Ligne = Ligne & feuille.Cells(J, K).Value & ";"
            MaxK = IIf(MaxK < K, K, MaxK)
            K = K + 1
           Wend
           Print #1, Ligne
           J = J + 1
        Wend
        Close #1
    Next I
End Sub


Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed