Discussion :

[kythi]

Bonjour,

Je récupère à l'aide d'un macro, des données d'une base de données.
Bien sur la manipulation dure 2 minutes.
J'ai créé un autre bouton ensuite pour faire un traitement sur ses données téléchargés.

J'aimerai maintenant tout faire d'un trais.
Le problème est que ma 1er macro lance le téléchargement et la seconde s’enchaîne illico sans laisser la 1ere finir. Il me faut donc mettre une pause avant de lancer la seconde.

Savez-vous comment faire ?


Merci

[Ashireon]

Salut

récupère le nombre d'occurences à traiter.
Pour chaque transfère de ta base de données augmente un compteur de 1 jusqu'a la totalité des données transférés.

Ensuite si ton compteur est atteint fais la suite du traitement

[kythi]

Salut, et merci pour la réponse,

Je ne peux faire comme sa, car j'ai inclus ma requête dans ma page comme ceci :
http://adresseip/getdata/ficher.php?...veur=localhost

Et pour mettre à jour les données à partir de ma macro je fais juste un :

Code :

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

1
2
Sheets("feuille1").Select
            ActiveWorkbook.RefreshAll

[Ashireon]

Peux tu nous donner ton code je ne pense pas que ca soit un secret militaire :-).


Merci

[kythi]

Mon code je viens de te le donner

Ma macro :

Code :

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

1
2
3
4
5
6
7
8
Sub CommandButton1_Click()
    Sheets("Data").Select
             ActiveWorkbook.RefreshAll
    Sheets("User Check").Select
            ActiveWorkbook.RefreshAll    
 
    Call remplacerpoint
End Sub

Dans les page Data et user Check je leur ai ajouté une requête. (cette requête fait appel à un fichier php qui récupère les données dans ma base de donnée.

Mon problème est que call remplacerpoint se lance alors que le refresh des pages n'est pas encore terminé.

[Ashireon]

J'aurai en fait aime voir comment tu chaines les 2 macros ?
Puisqu ' independement elles fonctionnent.

Sinon colle un Doevents avant le call pour temporiser

[kythi]

je fais simplement un call

comme ceci : Call remplacerpoint

remplacerpoint est ma 2eme macro.

[Ashireon]

sinon pour moi tu rafraîchis 2 fois tout le classeur ????

1 seul suffirai

[kythi]

Pour moi, je sélectionne la feuille Data, je la met à jour.
Ensuite, Je sélectionne la feuille DataUser, je la met à jour.

Je veux mettre une pause le temps des mises à jours car sa dure environs 2 minutes,

Ensuite je fais appel à mon autre macro avec call.

Voilà.

y'a pas un sleep 2 minutes ? Comme dans tout les autres langage ?

[Docmarti]

Il y a la méthode OnTime qui permet de programmer le déclenchement d'une procédure à une heure précise :

Code :

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

Application.OnTime Now + TimeValue("00:02:00"), "my_Procedure"

[Ashireon]

workbook etant le classeur tu rafraichis tout le classeur

Donc les n sheets le composant également

Si c'est un peu blindé ca va effectivement déjà prendre du temps

le but etant de rafraichir une feuille al a fois vaut mieux forcer un

Code :

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

Worksheet("xxx").Calculate