Macro pour importation csv

**Francois40700** · 29/08/2018, 11h59

Bonjour,
Je souhaite automatiser une importation d'un fichier "temp.csv" dans l'onglet en cours de mon fichier.
Je connais la manipulation et j'ai donc enregistré la macro.
Mon problème est que malgré qu'elle soit enregistrée ma macro bloque sur .commandtype = 0
Quelqu'un peut-il me dire pourquoi et quelle est la solution ?

Merci de votre aide

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
Sub test1()
'
' test1 Macro
'
 
'
    Sheets("en cours").Select
    Range("A1").Select
    Application.CutCopyMode = False
    With ActiveSheet.QueryTables.Add(Connection:="TEXT;\\wdmycloud\cetf\Comptes\temp.csv", _
        Destination:=Range("$A$1"))
        .CommandType = 0
        .Name = "temp_16"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .TextFilePromptOnRefresh = False
        .TextFilePlatform = 1252
        .TextFileStartRow = 1
        .TextFileParseType = xlDelimited
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .TextFileConsecutiveDelimiter = False
        .TextFileTabDelimiter = True
        .TextFileSemicolonDelimiter = False
        .TextFileCommaDelimiter = True
        .TextFileSpaceDelimiter = False
        .TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1)
        .TextFileDecimalSeparator = "."
        .TextFileTrailingMinusNumbers = True
        .Refresh BackgroundQuery:=False
    End With
End Sub

**Menhir** · 29/08/2018, 12h03

Pourquoi passer par une requête et non pas par un simple Workbooks.OpenText ?
https://msdn.microsoft.com/fr-fr/vba...t-method-excel

**Francois40700** · 29/08/2018, 13h45

Je ne connais pas trop, mais je vais essayer
Merci

**Francois40700** · 05/09/2018, 11h32

J'y suis arrivé, mais ce qui me gène c'est qu'en fait Workbooks.OpenText m'ouvre un nouveau classeur que je suis obligé de copier dans mon fichier. N'y a-t-il pas moyen de l'insérer directement dans mon fichier sur un onglet précis

Merci

**Menhir** · 05/09/2018, 12h11

Une Copie et un Close, ça te prendra juste deux ligne de plus. Voir même une seule si tu fait un Move sur l'onglet source.
Ce n'est pas cher payer pour un code qui fonctionne.