Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
1239 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Export toute feuille xsl vers csv ...

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

Export toute feuille xsl vers csv ...

n°657399
geulderack
Posté le 27-02-2004 à 11:20:34  profilanswer
 

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

mood
Publicité
Posté le 27-02-2004 à 11:20:34  profilanswer
 

n°657404
Guillaume1​er
I need Ammo !
Posté le 27-02-2004 à 11:23:31  profilanswer
 

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

n°657407
Guillaume1​er
I need Ammo !
Posté le 27-02-2004 à 11:24:06  profilanswer
 

* farquer = fabriquer
:)

n°657414
geulderack
Posté le 27-02-2004 à 11:29:11  profilanswer
 

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 ...

n°657476
Guillaume1​er
I need Ammo !
Posté le 27-02-2004 à 11:54:53  profilanswer
 

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

n°657479
geulderack
Posté le 27-02-2004 à 11:57:57  profilanswer
 

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

n°2174540
DarkRevan7​5000
Posté le 07-02-2013 à 15:25:50  profilanswer
 

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



Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Export toute feuille xsl vers csv ...

 

Sujets relatifs
[oracle] renvoyer contenu d'une requete vers un fichier TXT[VB EXCEL] présence feuille
Conversion coordonnees isometriques vers coordonnees classiques?Extraire le contenu binaire d'un fichier vers une chaine de caracteres
Appel vers un fichier JS externe qui ne marche pas.VBA Excel : image feuille 1 A1 = image feuille 2 A47
Comment rediriger un surfer automatiquement vers un site ???[sh] export de variable
passage de php/mysql vers php/access : problemes [resolu][PHP] Page interprétée entièrement, pas d'output vers le browser
Plus de sujets relatifs à : Export toute feuille xsl vers csv ...


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR