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