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

VB 6 et antérieur Discussion :

ouvrir un fichier .csv via VB


Sujet :

VB 6 et antérieur

  1. #1
    Nouveau membre du Club
    Profil pro
    Inscrit en
    septembre 2008
    Messages
    35
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : septembre 2008
    Messages : 35
    Points : 29
    Points
    29
    Par défaut ouvrir un fichier .csv via VB
    bonjour,
    j'ai fait un petit tour sur les aides et les tutoriels
    mais je crois que je n'ai pas trouvé ce que je cherche

    je voudrais ouvrir un fichier .csv et le transformer en .xls

    exemple:

    fichier .csv :

    15/11/08 04:41:25,0,1

    donc avoir une colonne pour chaque info separé par une virgule c'est à dire ici 3 colonnes

    Ps: si possible 4colonnes (séparer la date de l'heure)


    je recherche don soit un exemple ou lien

    merci à tous

  2. #2
    Membre expert Avatar de OhMonBato
    Homme Profil pro
    Inscrit en
    mars 2007
    Messages
    2 660
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Morbihan (Bretagne)

    Informations professionnelles :
    Secteur : Industrie

    Informations forums :
    Inscription : mars 2007
    Messages : 2 660
    Points : 3 685
    Points
    3 685
    Par défaut
    Voir la FAQ, "Créer un classeur Excel en VB6"
    Pour VB6 : N'oubliez pas d'aller voir la FAQ et les Tutoriels
    Vous trouvez une reponse particulierement utile ? Votez pour !

  3. #3
    Membre éclairé
    Inscrit en
    décembre 2007
    Messages
    512
    Détails du profil
    Informations forums :
    Inscription : décembre 2007
    Messages : 512
    Points : 671
    Points
    671
    Par défaut
    Et ,comme Ohmonbato, je dirai en plus voir dans l'aide de VB6 l'instruction
    RENAME

  4. #4
    Expert éminent sénior


    Profil pro
    Inscrit en
    juin 2003
    Messages
    14 008
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : juin 2003
    Messages : 14 008
    Points : 20 006
    Points
    20 006
    Par défaut
    Citation Envoyé par iclic Voir le message
    Et ,comme Ohmonbato, je dirai en plus voir dans l'aide de VB6 l'instruction
    RENAME
    eu .. la c'est un raccourci un peu facile .. renommer un fichier ne change pas son format

    modjo tu nous as pas dit si excel été installé sur ta machine ?

  5. #5
    Nouveau membre du Club
    Profil pro
    Inscrit en
    septembre 2008
    Messages
    35
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : septembre 2008
    Messages : 35
    Points : 29
    Points
    29
    Par défaut
    ok j'ai bien excel sur mon ordi

    sinon renomer l'extension ne me servira pas a grand chose puisque je veux separer le texte en plusieur colonne

    bon je vais regarder le fac et on verra

  6. #6
    Membre éclairé
    Inscrit en
    décembre 2007
    Messages
    512
    Détails du profil
    Informations forums :
    Inscription : décembre 2007
    Messages : 512
    Points : 671
    Points
    671
    Par défaut la c'est un raccourci un peu facile .. renommer un fichier ne change pas son format
    Je suis d'accord avec Bbill,le renommer ne fait que changer son nom.
    Pour changer de format on peut le lire en binaire puis le réécrire en binaire, mais il faut alors très bien savoir ce que l'on fait ,c'est déjà beaucoup plus complexe,car il faut connaître parfaitement les structures des deux fichiers.

  7. #7
    Nouveau membre du Club
    Profil pro
    Inscrit en
    septembre 2008
    Messages
    35
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : septembre 2008
    Messages : 35
    Points : 29
    Points
    29
    Par défaut
    bon j'ai toujours pas trouver mon bonheur

    ce que je vourai en clair c'est une commande qui me permettrait de convertir un fichier .csv en .xls

    merci

    le binaire m'a l'air assez compliqué pour moi

  8. #8
    Membre expert Avatar de OhMonBato
    Homme Profil pro
    Inscrit en
    mars 2007
    Messages
    2 660
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Morbihan (Bretagne)

    Informations professionnelles :
    Secteur : Industrie

    Informations forums :
    Inscription : mars 2007
    Messages : 2 660
    Points : 3 685
    Points
    3 685
    Par défaut
    Le plus simple est de piloter Excel depuis VB pour lire ton fichier csv et le sauvegarder en xls. Dans la FAQ tu trouveras plusieurs explications pour piloter des applications Office. Si ensuite tu butes sur un problème particulier reviens nous voir ici avec ton code.
    La commande toute faite pour convertir du csv en xls reste du domaine du rêve. Quant à écire en binaire un fichier xls "à la volée", je ne connais personne qui fasse ça (ça veut pas dire que c'est impossible mais pas courant quand même).
    Pour VB6 : N'oubliez pas d'aller voir la FAQ et les Tutoriels
    Vous trouvez une reponse particulierement utile ? Votez pour !

  9. #9
    Membre à l'essai
    Profil pro
    Inscrit en
    avril 2008
    Messages
    17
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : avril 2008
    Messages : 17
    Points : 15
    Points
    15
    Par défaut
    Au plus simple ce que je fais dans mes programmes ou j'utilise du .csv pour client et qu'il en a besoin en .xls, si celui-ci est deja bien structuré et bien cadré, tu a juste à faire une suppression de format et de lui changé par .xls

    Exemple
    Nb = len(monfichier.csv)
    il va te retourner ici 14 caractères
    le csv en fera quoi qu'il arrive toujours 3 avec son "." 4
    Monfichier = monfichier.csv
    Final = Mid(Monfichier,len(monfichier.csv)-4,4)
    Final = Final & ".xls"

  10. #10
    Expert éminent sénior


    Profil pro
    Inscrit en
    juin 2003
    Messages
    14 008
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : juin 2003
    Messages : 14 008
    Points : 20 006
    Points
    20 006
    Par défaut
    Citation Envoyé par synip Voir le message
    Au plus simple ce que je fais dans mes programmes ou j'utilise du .csv pour client et qu'il en a besoin en .xls, si celui-ci est deja bien structuré et bien cadré, tu a juste à faire une suppression de format et de lui changé par .xls

    Exemple

    il va te retourner ici 14 caractères
    le csv en fera quoi qu'il arrive toujours 3 avec son "." 4
    même réponse ... :
    Citation Envoyé par bbil Voir le message
    eu .. la c'est un raccourci un peu facile .. renommer un fichier ne change pas son format
    pour ouvrir un fichier csv avec excel tu n'as pas besoin de le renommer , tu peu l'ouvrir directement..



    voici un code adapté de la

    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
    Private Sub Command1_Click()
     Dim oExcel As New Excel.Application
     Dim oWk As Workbook
     Dim MonFichier
     MonFichier = oExcel.GetOpenFilename _
      ("Fichiers texte (*.Csv;*.cdd),*.Csv ")
     Set oWk = oExcel.Workbooks.Open(FileName:=MonFichier, Format:=4, Delimiter:=";", Local:=True)
      oExcel.Visible = True
      oWk.SaveAs FileFormat:=xlNormal
      oWk.Close False
    End If
     oExcel.Quit
     Set oWk = Nothing
     Set oExcel = Nothing
    End Sub

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. [AC-2003] Ouvrir fichier csv via Excel
    Par charliejo dans le forum VBA Access
    Réponses: 2
    Dernier message: 27/04/2010, 13h17
  2. Ouvrir un fichier csv dans excel via access
    Par NELAIN dans le forum VBA Access
    Réponses: 3
    Dernier message: 17/02/2009, 16h15
  3. [VBA-E]Ouvrir un fichier.csv ou un fichier.txt séparateur ";"
    Par ouskel'n'or dans le forum Macros et VBA Excel
    Réponses: 1
    Dernier message: 30/05/2007, 13h09
  4. Réponses: 7
    Dernier message: 29/05/2007, 16h11
  5. Ouvrir un fichier word via formulaire
    Par liop49 dans le forum Access
    Réponses: 10
    Dernier message: 07/09/2006, 13h13

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