Macro import CSV avec options

Version imprimable

19/07/2018, 15h37
lonsdalien

Macro import CSV avec options

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 !
19/07/2018, 15h59
halaster08

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
19/07/2018, 16h14
Menhir

Citation:

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/

Citation:

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.

Citation:

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.

Citation:

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.

Citation:

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.

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:

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

19/07/2018, 16h16
lonsdalien

@Menhir merci, je regarde ça !
19/07/2018, 16h18
Menhir

Citation:

Envoyé par lonsdalien

j'ai aucune compétence en codage.

Un Chef de projet SSII qui n'a jamais codé ??? Étonnant...

Citation:

ActiveWorkbook.Queries.Add Name:= _

Essayer de passer par des tables de requêtes quand on débute en VBA, c'est un peu comme apprendre à piloter en commençant par les looping.;)
20/07/2018, 12h45
lonsdalien

Citation:

Envoyé par Menhir

Un Chef de projet SSII qui n'a jamais codé ??? Étonnant...

Aucune idée de pourquoi c'est marqué ça dans mon profil ^^
je corrigerai !

Citation:

Envoyé par Menhir

Essayer de passer par des tables de requêtes quand on débute en VBA, c'est un peu comme apprendre à piloter en commençant par les looping.;)

ça marche merci !