Lancer une action à la fin d'un QueryTables.Add

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:

---

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

Bonjour,

Peut être qu'un

Citation:

---

Doevents

---

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

Poulpe

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.

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.

Eventuellement, peut être une boucle du type :

Code:

---

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)

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

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 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 ?

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é

si ton fichier se trouve sur un serveur, et que celui-ci est protégé par un mot passe, vas dans explorateur Windows donne lui la lettre out IP puis rentre le useur et le password et coche la case se souvenir.

.SavePassword = True ne fonctionne pas, j'ai déjà essayé.
Le truc c'est que ni le fichier, ni le serveur n'est proposé par un mot de passe mais il le demande quand même et le redemande même si je clique sur OK en n'indiquant rien. Il faut que je clique sur Annuler pour que ça se lance enfin mais ça n'est absolument pas logique pour mes utilisateurs.

c'est un problème réseau pas vb!

Ben j'ai essayé avec deux PC différents sur deux réseaux informatiques différents.
Il y a des configurations par défaut des ordinateurs et des réseaux Internet. De plus le serveur est tout à fait commun, il s'agit d'un Debian en LAMP de chez Online sans configuration particulière, il y a un site dessus qui est accessible à tout les visiteurs (sans mot de passe donc). Le CSV que je cherche à télécharger est sur ce site au même titre qu'une page internet. Ce n'est pas un fichier protégé par mot de passe ni quoi que ce soit. D'ailleurs quand je fais Annuler sur la boite de dialogue, ça me le télécharge normalement.