IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

VBScript Discussion :

Eclater un fichier excel en csv


Sujet :

VBScript

Mode arborescent

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Invité
    Invité(e)
    Par défaut Eclater un fichier excel en csv
    Bonjour,

    Chaque semaine je reçois un fichier excel avec +/- 10 onglets :

    Ce fichier est à éclater en autant de fichier que d'onglets. (si 10 feuilles alors 10 fichiers à générer).

    A noter on dispose au départ d'un fichier XLS ou XLSX .

    L'éclatement doit générer autant de fichiers CSV que de feuilles dans le fichier de départ.

    Autre contrainte .

    Le code VB doit être indépendant du fichier excel. C'est à dire un script en dehors du fichiers excel. En somme le code VB est à taper sur un bloc note et devra porter l'extension ".vb".

    J'ai mis la main sur un code que j'avais , mais celui ci ne fait pas exactement ce que je veux :

    Code vb : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    Private Sub CommandButton1_Click()
     
    Dim nom_feuille_classeur As String
    Dim nom_document As String
    Dim trigramme_apv As String
    Dim nouveau_fichier As String
    Dim repertoire_de_sauvegarde As String
    Dim lien_nouveau_fichier As String
     
     
     Dim Ws As Worksheet
     Dim Wb As Workbook
     
    Set Ws = ActiveSheet
    'nom_feuille_classeur = ActiveSheet.Name ' recuperation nom de la feuille dans le classeur de départ
    Set Wb = Workbooks.Add
    trigramme_apv = Range("D6").Value ' recuperation nom de AVP
     
    Ws.Copy before:=Wb.Sheets(1)
     
    repertoire_de_sauvegarde = "M:\" ' nom repertoire ou mettre le nouveau fichier
     
    nouveau_fichier = Format(Date, "yyyymmdd") & " " & Ws.Range("D6") & " APV " & Ws.Name & " adherents .xlsm " ' nom du nouveau document
     
    lien_nouveau_fichier = repertoire_de_sauvegarde & nouveau_fichier ' nouveau document
     
    Wb.SaveAs Filename:=lien_nouveau_fichier ' lien nouveau fichier >> problème avec le ActiveSheet.SaveAs et le Filename:= , c est l erreur 1004
    Wb.Close False
    End Sub

    Merci de m'aiguiller
    Dernière modification par ProgElecT ; 03/12/2014 à 22h58.

Discussions similaires

  1. Comment exporter un fichier Excel vers CSV
    Par machipot dans le forum VBA Access
    Réponses: 0
    Dernier message: 09/06/2008, 22h09
  2. Réponses: 1
    Dernier message: 30/12/2007, 14h51
  3. Convertion fichier excel en CSV
    Par ceaser dans le forum Excel
    Réponses: 1
    Dernier message: 23/05/2007, 14h56
  4. Exporter fichier Excel en .csv
    Par pierre.coudert dans le forum Windows
    Réponses: 7
    Dernier message: 27/02/2007, 13h45
  5. conversion de fichier Excel en csv ,
    Par bounette dans le forum Excel
    Réponses: 2
    Dernier message: 26/01/2005, 08h42

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo