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 :

Code VBS - convertir xlsx vers csv


Sujet :

VBScript

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Nouveau candidat au Club
    Homme Profil pro
    Urbaniste
    Inscrit en
    Avril 2020
    Messages
    1
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 38
    Localisation : France

    Informations professionnelles :
    Activité : Urbaniste

    Informations forums :
    Inscription : Avril 2020
    Messages : 1
    Par défaut Code VBS - convertir xlsx vers csv
    Bonjour,

    Tout nouveau en VBS, je cherche un script pour convertir un fichier excel "fichier.xlsx" en "fichier.csv", en sachant que les 2 fichiers seront dans le même dossier que le *.vbs.
    La conversion doit se faire automatiquement au lancement du script sans actions à effectuer ou texte affiché.
    J'ai bien cherché de partout mais je n'ai rien trouvé.

    Merci d'avance.

    Bonne journée.

  2. #2
    Modérateur
    Avatar de l_autodidacte
    Homme Profil pro
    Retraité : Directeur de lycée/Professeur de sciences physiques
    Inscrit en
    Juillet 2009
    Messages
    2 420
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 69
    Localisation : Tunisie

    Informations professionnelles :
    Activité : Retraité : Directeur de lycée/Professeur de sciences physiques
    Secteur : Enseignement

    Informations forums :
    Inscription : Juillet 2009
    Messages : 2 420
    Par défaut
    Bonjour et BIENVENU sur DVP

    Les chemins des fichiers sont à adapter selon le besoin dans l'appel de la Sub WriteToCsvFile
    Code : 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
    Option Explicit
     
    Dim  XL, WB, X, ColsCount, iRow, tmpText, Delim, RowsCount, CSV
     
    WriteToCsvFile "C:\Temp\Test.xlsx", "C:\Temp\Result.csv"
    '===========================
    Sub WriteToCsvFile(xlsxFile, csvFile)
        Delim = ";"
        Set XL = CreateObject("Excel.Application")
        XL.Visible = False
        XL.DisplayAlerts = False
        Set WB = XL.Workbooks.Open(xlsxFile)
        RowsCount = WB.Activesheet.UsedRange.Rows.count
        ColsCount = WB.Activesheet.UsedRange.Columns.count
        iRow = 1
        Set CSV = XL.Workbooks.Add()
        Do Until iRow > RowsCount
            tmpText = ""
            For X = 1 To  ColsCount - 1
                tmpText = tmpText & WB.Sheets(1).Cells(iRow, X).Value & Delim
            Next
            tmpText = tmpText & WB.Sheets(1).Cells(iRow, ColsCount).Value
            CSV.Sheets(1).Cells(iRow,1).Value = tmpText
            iRow = iRow + 1
        Loop
        CSV.SaveAs csvFile
        XL.Quit
        Set XL = Nothing
    End Sub
    Ne pas oublier le tag si satisfait.
    Voter pour toute réponse satisfaisante avec pour encourager les intervenants.
    Balises CODE indispensables. Regardez ICI
    Toujours utiliser la clause Option Explicit(VBx, VBS ou VBA) et Ne jamais typer variables et/ou fonctions en VBS.
    Vous pouvez consulter mes contributions
    Ne pas oublier de consulter les différentes FAQs et les Cours/Tutoriels VB6/VBScript
    Ne pas oublier L'Aide VBScript et MSDN VB6 Fr

  3. #3
    Membre Expert
    Avatar de cavo789
    Homme Profil pro
    Développeur Web
    Inscrit en
    Mai 2004
    Messages
    1 797
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Belgique

    Informations professionnelles :
    Activité : Développeur Web

    Informations forums :
    Inscription : Mai 2004
    Messages : 1 797
    Par défaut
    Bonsoir

    J'ai un code tout fait si cela te tente : https://github.com/cavo789/vbs_xls2scv

    Bonne soirée

Discussions similaires

  1. [XL-2016] Convertir .xlsm vers .csv en vba
    Par schapl dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 13/02/2019, 09h11
  2. Réponses: 8
    Dernier message: 26/06/2015, 14h35
  3. [XL-2010] XLSX vers CSV
    Par psychee dans le forum Excel
    Réponses: 7
    Dernier message: 24/05/2012, 16h19
  4. retranscription de code vbs vers vba
    Par kev0631 dans le forum Général VBA
    Réponses: 1
    Dernier message: 24/04/2007, 18h46
  5. Aide :convertir caractére vers code ascii
    Par MAXIMIX dans le forum C++
    Réponses: 2
    Dernier message: 19/08/2006, 10h46

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