Bonjour,

J'ai un script qui lance la fonction importer_nva_csv pour récupérer un CSV dans une feuille. Je souhaite une fois que cela est fait trier ces données. Mon soucis est qu'un bug survient au lancement. Le bug est sur la fonction trier et il est dit qu'il n'y a aucune donnée à trier. je clique sur Débuggage et je clique sur play ensuite et là ça marche parce qu'entre temps les données ont été téléchargées. Je souhaiterais donc que la fonction trier s'execute après le téléchargement total des données. Actuellement j'ai l'impression que les deux se font en parallèle et je ne vois pas comment corriger cela.

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 trier()
    Worksheets("Journal").Range("A:L").Sort Key1:=Range("D1"), Order1:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase _
        :=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal
End Sub
 
 
Sub importer_nva_csv(url As String)
 
    With Worksheets("Journal").QueryTables.Add(Connection:= _
        "TEXT;" & url _
        , Destination:=Worksheets("Journal").Range("A1"))
        .Name = "xxx"
        .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 = False
        .TextFileSemicolonDelimiter = True
        .TextFileCommaDelimiter = False
        .TextFileSpaceDelimiter = False
        .TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1)
        .TextFileTrailingMinusNumbers = True
        .Refresh BackgroundQuery:=False
    End With
 
    Call trier
End Sub
J'ai aussi accessoirement un autre soucis. Au lancement de cette fonction il apparait un panneau me demandant le login et le mot de passe sur le serveur (or il n'y en a pas), comment enlever ce panneau ?

Merci