Discussion :

[Ceubex]

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

[Mr Poulpe]

Bonjour,

Peut être qu'un

Doevents

pourrait aider.
(cf http://msdn.microsoft.com/en-us/libr...(v=vs.60).aspx)

Poulpe

[Ceubex]

Merci pour l'idée mais je ne pense pas que cela puisse m'aider. Je pourrais en effet créer un évènement "Si la case A8 est rempli, trier" mais je ne sais pas jusqu'à quelle case il y aura des données et je trierais donc des parties de tableau. Ce que j'aimerais faire c'est "Si la fonction QueryTables.Add a fini, trier", mais là je ne vois pas comment mettre ça en place.

[Invité]

le doevent na rien à voir avec les événements! cette fonction qui redonne la main à Windows pour qu'il rafraîchisse ses pages mémoire.

[Ceubex]

En effet, autant pour moi, je viens de modifier le fonctionnement comme il suit et ça marche !

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
40
41
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
 
DoEvents
 
    Call trier
End Sub

Merci beaucoup. Par hasard, saurais-tu pourquoi un panneau me demande le login / mot de passe ?

[Mr Poulpe]

Eventuellement, peut être en essayant de mettre un
.SavePassword = True
avant le end with

Sinon je n'ai pas d'autre idée, désolé

[Mr Poulpe]

Eventuellement, peut être une boucle du type :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
While .refreshing
Application.Wait(Now + TimeValue("0:00:01"))
Wend

A mettre avant le end with

Ca peut faire une boucle infinie (appuie sur échap longuement pour interompre la macro)