Macro import CSV avec options

**lonsdalien** · 19/07/2018, 15h37

Bonjour,

Je suis débutant complet sur Excel 2016, et je voudrais créer une macro très simple qui quand je la lance, me mettre un message me demandant de choisir mon CSV à importer, et quand je clique sur OK, qu'il me demande de choisir mon fichier CSV, et qu'il l'importe avec ces 2 options :

- Origine du fichier : 65002: Unicode (UTF-8)
- Délimiteur : Point-virgule

Et qu'il me le charge dans une nouvelle feuille.

Pouvez-vous m'aider ?

Merci !

**halaster08** · 19/07/2018, 15h59

Bonjour,

As-tu essayé avec l'enregistreur de macro ?
Il te donnera 90% du code

Pour le choix du fichier renseigne toi sur Application.GetOpenFilename

**Menhir** · 19/07/2018, 16h14

Envoyé par lonsdalien

Je suis débutant complet sur Excel 2016,

Fort heureusement, il est possible d'y remédier : http://bidou.developpez.com/article/VBA/

je voudrais créer une macro très simple

Si c'était simple, tu l'aurais fait toi-même donc ne commence par par minimiser l'aide qui t'est apportée.

quand je la lance, me mettre un message me demandant de choisir mon CSV à importer,

Méthode GetOpenFileName en spécifiant le paramètre FileFilter pour ne voir que les CSV.
https://msdn.microsoft.com/library/8...ice.15%29.aspx

Attention, cette méthode n'ouvre pas le fichier (voir la suite), elle te permet seulement d'obtenir un chemin et un nom de fichier.

qu'il l'importe avec ces 2 options :
- Origine du fichier : 65002: Unicode (UTF-8)
- Délimiteur : Point-virgule

Je te conseille d'utiliser la méthode OpenText de Workbooks plutôt que Open. Elle offre plus de souplesse et de possibilités, surtout si tu veux jouer sur les option.
https://msdn.microsoft.com/fr-fr/vba...t-method-excel

Regarde en particulier les paramètres Semicolon et Origin.

Et qu'il me le charge dans une nouvelle feuille.

Si tu veux transférer le contenu du CSV dans un classeur existant, il faut dire si tu veux que ce soit un nouvel onglet ou si tu veux que les données soient copiés dans un onglet existant et, dans ce dernier cas, expliquer où et comment.

**lonsdalien** · 19/07/2018, 16h14

Oui j'ai essayé, mais je galère, j'ai aucune compétence en codage.
il fait référence à mon fichier spécifiquement importé, avec le nombre et type de colonne :

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
 
Sub test()
'
' test Macro
'
 
'
    ActiveWorkbook.Queries.Add Name:= _
        "xxxxxxxxxx (5)", Formula:= _
        "let" & Chr(13) & "" & Chr(10) & "    Source = Csv.Document(File.Contents(""C:\xxxxxxxxxx.csv""),[Delimiter="";"", Columns=20, Encoding=65001, QuoteStyle=QuoteStyle.None])," & Chr(13) & "" & Chr(10) & "    #""Type modifié"" = Table.TransformColumnTypes(Source,{{""Column1"", type text}, {""Column2"", type text}, {""Column3" & _
        """, type text}, {""Column4"", type text}, {""Column5"", type text}, {""Column6"", type text}, {""Column7"", type text}, {""Column8"", type text}, {""Column9"", type text}, {""Column10"", type text}, {""Column11"", type text}, {""Column12"", type text}, {""Column13"", type text}, {""Column14"", type text}, {""Column15"", type text}, {""Column16"", type text}, {""Colu" & _
        "mn17"", type text}, {""Column18"", type text}, {""Column19"", type text}, {""Column20"", type text}})" & Chr(13) & "" & Chr(10) & "in" & Chr(13) & "" & Chr(10) & "    #""Type modifié"""
    ActiveWorkbook.Worksheets.Add
    With ActiveSheet.ListObjects.Add(SourceType:=0, Source:=Array( _
        "OLEDB;Provider=Microsoft.Mashup.OleDb.1;Data Source=$Workbook$;Location=""xxxxxxxxxx (5)"";Extend" _
        , "ed Properties="""""), Destination:=Range("$A$1")).QueryTable
        .CommandType = xlCmdSql
        .CommandText = Array( _
        "SELECT * FROM [xxxxxxxxxx (5)]")
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .PreserveColumnInfo = True
        .ListObject.DisplayName = _
        "xxxxxxxxxx__5"
        .Refresh BackgroundQuery:=False
    End With
End Sub