Import fichier csv

Fermé

Utilisateur anonyme - 11 juil. 2018 à 11:36
Utilisateur anonyme - 11 juil. 2018 à 21:55

Bonjour,

J'ai une macro qui me permet d'importer un fichier CSV dans un fichier xlsm dans la feuille "import csv"

Sub import_csv()
    Dim Ctr As Integer, Desti As Range
   
        Fichier = Application.GetOpenFilename("CSV Files (*.CSV), *.csv")

        With Sheets("import csv")
            Set Desti = .Cells(.Rows.Count, 1).End(xlUp).Offset(1)
            With .QueryTables.Add(Connection:= _
                "TEXT;" & Fichier, _
                Destination:=Desti)
                Ctr = Ctr + 1
                .FieldNames = True
                .RowNumbers = False
                .FillAdjacentFormulas = False
                .PreserveFormatting = True
                .RefreshOnFileOpen = False
                .RefreshStyle = xlInsertDeleteCells
                .SavePassword = False
                .SaveData = True
                .AdjustColumnWidth = True
                .RefreshPeriod = 0
                .TextFilePromptOnRefresh = False
                .TextFilePlatform = 850
                .TextFileStartRow = 1
                .TextFileParseType = xlFixedWidth
                .TextFileTextQualifier = xlTextQualifierDoubleQuote
                .TextFileConsecutiveDelimiter = False
                .TextFileTabDelimiter = True
                .TextFileSemicolonDelimiter = False
                .TextFileCommaDelimiter = False
                .TextFileSpaceDelimiter = False
                .TextFileColumnDataTypes = Array(2, 1, 1, 1)
                .TextFileFixedColumnWidths = Array(19, 30, 5)
                .TextFileTrailingMinusNumbers = True
                .Refresh BackgroundQuery:=False
            End With
        End With
End Sub

Les données du fichier csv sont bien collées dans la bonne feuille mais pas dans le bon format

Je ne sais pas comment paramétrer dans ma macro le paramétrage ci-dessous :

A voir également:

Import fichier csv
Fichier rar - Guide
Fichier host - Guide
Fichier iso - Guide
Comment réduire la taille d'un fichier - Guide
Ouvrir fichier .bin - Guide

3 réponses

Réponse 1 / 3

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
11 juil. 2018 à 12:01

Bonjour,

Il ta des ";" en trop dans la ligne de donnees , ce qui provoque des decalage de colonnes......
Votre csv est extrait de quel endroit ????

Réponse 2 / 3

Utilisateur anonyme
Modifié le 11 juil. 2018 à 13:54

Bonjour,
Merci pour votre réponse j'ai corrigé les paramètres à changer et ça marche tip top
Voici le nouveau code :

Sub import_csv()
    Dim Ctr As Integer, Desti As Range
   
        Fichier = Application.GetOpenFilename("CSV Files (*.CSV), *.csv")

        With Sheets("import csv")
            Set Desti = .Cells(.Rows.Count, 1).End(xlUp).Offset(1)
            With .QueryTables.Add(Connection:= _
                "TEXT;" & Fichier, _
                Destination:=Desti)
                Ctr = Ctr + 1
                .FieldNames = True
                .RowNumbers = False
                .FillAdjacentFormulas = False
                .PreserveFormatting = True
                .RefreshOnFileOpen = False
                .RefreshStyle = xlInsertDeleteCells
                .SavePassword = False
                .SaveData = True
                .AdjustColumnWidth = True
                .RefreshPeriod = 0
                .TextFilePromptOnRefresh = False
                .TextFilePlatform = 65001
                .TextFileStartRow = 1
                .TextFileParseType = xlDelimited
                .TextFileTextQualifier = xlTextQualifierDoubleQuote
                .TextFileConsecutiveDelimiter = False
                .TextFileTabDelimiter = True
                .TextFileSemicolonDelimiter = True
                .TextFileCommaDelimiter = False
                .TextFileSpaceDelimiter = False
                .TextFileColumnDataTypes = Array(2, 1, 1, 1)
                .TextFileFixedColumnWidths = Array(19, 30, 5)
                .TextFileTrailingMinusNumbers = True
                .Refresh BackgroundQuery:=False
            End With
        End With
End Sub

Par contre le fichier csv après l'import dans mon fichier xlsm vient se positionner en cellule A2 alors que je voudrai qu'il se positionne en A1

Que dois-je modifier ?
Merci pour votre aide

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
11 juil. 2018 à 16:19

Re,

Remplacez Desti par A1 si ca ne change pas

Réponse 3 / 3

Utilisateur anonyme
11 juil. 2018 à 21:55

Merci c'est tout bon :-)
Très bonne soirée !

Discussions similaires

comment donner les droits sur fichier partage

comment ouvrir un fichier CBR

Question PIX

Discussions similaires

Newsletters