Export toute feuille xsl vers csv ... - VB/VBA/VBS - Programmation
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
Marsh Posté le 27-02-2004 à 11:29:11
| guillaume1er a écrit : le format csv c du text  | 
 
 
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 ... 
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
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é ?
Marsh Posté le 07-02-2013 à 15:25:50
| Guillaume1er a écrit : essaye ca  | 
 
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
Merci d'avance