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

VBA Discussion :

Importer un fichier csv en codage UTF-8 via VBA


Sujet :

VBA

  1. #1
    Membre du Club
    Homme Profil pro
    Étudiant
    Inscrit en
    Juillet 2016
    Messages
    109
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : Étudiant

    Informations forums :
    Inscription : Juillet 2016
    Messages : 109
    Points : 49
    Points
    49
    Par défaut Importer un fichier csv en codage UTF-8 via VBA
    Bonjour à tous,

    Ci-dessous, je vous partage mon code qui fonctionne correctement, cependant j'aimerais en plus ajouter un fonction me permettant d'ouvrir ce fichier csv en UTF-8 mais je ne sais pas dans quelle partie du code je dois rentrer cette information afin que celui-ci fonctionne.

    Si qqun peut m'aider svp, je suis preneur ?

    Cordialement,

    --


    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
    30
    31
    32
    33
    34
    35
    36
    37
    38
    39
    40
    41
    Sub ImportCSV()
        Dim dialogBox As FileDialog
        Dim selectedFile As String
        Set dialogBox = Application.FileDialog(msoFileDialogFilePicker)
     
        With dialogBox
            .Filters.Add "CSV", "*.CSV", 1
            .AllowMultiSelect = False
     
     
            If .Show = True Then
                selectedFile = .SelectedItems(1)
            End If
            Debug.Print selectedFile
     
        End With
     
        If selectedFile <> "" Then
            Open selectedFile For Input As #1
                Dim rowNumber As Long
                Dim lineFromFile As String
                Dim lineItems As Variant
                Dim itteration As Integer
     
                rowNumber = 1
     
                Do Until EOF(1)
                    Line Input #1, lineFromFile
                    lineItems = Split(lineFromFile, ";")
     
                    For itteration = 0 To 14
                        Range("ImportRange").Cells(rowNumber, itteration + 1) = lineItems(itteration)
                    Next
     
                    rowNumber = rowNumber + 1
                Loop
            Close #1
     
        End If
     
    End Sub

  2. #2
    Rédacteur/Modérateur

    Avatar de Jean-Philippe André
    Homme Profil pro
    Architecte Power Platform, ex-Développeur VBA/C#/VB.Net
    Inscrit en
    Juillet 2007
    Messages
    14 656
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 40
    Localisation : Canada

    Informations professionnelles :
    Activité : Architecte Power Platform, ex-Développeur VBA/C#/VB.Net
    Secteur : Finance

    Informations forums :
    Inscription : Juillet 2007
    Messages : 14 656
    Points : 34 354
    Points
    34 354
    Par défaut
    Bonjour,

    sujet déjà abordé ici : https://www.developpez.net/forums/d1...odage-utf-8-a/

Discussions similaires

  1. [Importation]Lier un csv a une table existante via VBA
    Par Baya44 dans le forum VBA Access
    Réponses: 10
    Dernier message: 03/04/2007, 16h34
  2. Import de fichier CSV automatique dans Access
    Par Jmar dans le forum Access
    Réponses: 4
    Dernier message: 20/01/2006, 11h48
  3. Importer un fichier CSV dans un clientdataset ?
    Par mls dans le forum Bases de données
    Réponses: 7
    Dernier message: 15/04/2005, 13h35
  4. [Conseil] Import de fichier CSV vers MySQL
    Par ShinJava dans le forum JDBC
    Réponses: 6
    Dernier message: 15/03/2005, 20h14
  5. Importation de fichier CSV vers une base Interbase
    Par PrinceMaster77 dans le forum ASP
    Réponses: 3
    Dernier message: 15/03/2005, 16h18

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