Discussion :

[ricoree78]

salut a tous

voila je vous expose en gros mon probleme actuel

j ai creer une macro qui va detecter sur differents sites internet s'il y a des variations de certaines donnees
j'ai creer une tache planifiee sous windows pour que le fichier s'ouvre automatiquement chaque jour

seulement voila quand cette tache planifiee s'execute la macro detecte une variation alors que lorsque je lance le fichier a la mimine la macro ne detecte aucune variation !!

j'avoue ne pas trop comprendre ce qui se passe

si quelqu'un a une idee ou si le cas s'est deja présente pour quelqu'un

merci

[dadavyvy]

As tu un exemple de ton code?
Une variation par rapport à quoi? au dernier lancement? à une valeur stockée dans le fichier?

[ricoree78]

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Sheets("iceland").Select: Range("h1").Value = Range("b28"): Columns("A:d").Select: Selection.ClearContents
 
Sheets("iceland").Select: Selection.QueryTable.Refresh BackgroundQuery:=True
 
Sheets("iceland").Select
If Range("h1") <> Range("b28") Then Sheets("controle").Select: Range("c18").Value = "variation envoyer mail alerte": Range("f18") = "OK" _
: Call mail("isalnde", "Merci de modifier") _
Else: Sheets("controle").Select: Range("c18").Value = "OK pas de variation": Range("f18") = "NOK"
Call recup_codehtml("http://www.england.co.uk/", "e1", "engla

je met en gros le code pour expliquer comment je procede
j'affiche dans h1 la valeur de la cellule b28
j'efface les donnees colonne A à D
j'execute ma requete sur le web qui va recuperer les nouvelles donnees
ensuite si H1 est different de B28 alors c'est qu il y a une variation

[dadavyvy]

seulement voila quand cette tache planifiee s'execute la macro detecte une variation alors que lorsque je lance le fichier a la mimine la macro ne detecte aucune variation !!

Juste une question : la 1ere fois que tu lances avec la planification, tu enregistres ton classeur? Et quand tu lances le fichier manuellement, tu le fais juste après le 1er lancement? euh... ça fait 2 questions...

[ricoree78]

j'ai essaye les deux enregistrer et sans enregistrer

et peu importe le moment ou je lance le fcihier manuellement avant ou apres le 1er lancement cela me donne toujours le resultat correct

le resultat qui est correct c'est qu'il ne doit pas y avoir de variation

[dadavyvy]

Dans ce cas-là, juste après la planification, peux-tu vérifier juste cette ligne, sans lancer le reste du code :

Code :

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

msgbox Range("h1") <> Range("b28")

[ricoree78]

en fait j ai l'impression que la macro fait le test alors que la page n'est pas encore rafrachie et elle est donc vide

comment puis je attendre que ce code s execute totalement ?

Code :

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

1
2
 
Sheets("iceland").Select: Selection.QueryTable.Refresh BackgroundQuery:=True

avec une boucle juste apres ?

[dadavyvy]

Ah oui... peut-etre faut-il attendre la fin du rafraishissement du tableau :

Code :

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

Selection.QueryTable.Refresh BackgroundQuery:=False

Aide VBA sur la methode Refresh :
BackgroundQuery

Argument facultatif de type Variant. Utilisé uniquement avec les tables de requête basées sur les résultats d'une requête SQL. Affectez-lui la valeur True pour redonner le contrôle à la procédure dès que la connexion avec la base de données est réalisée et la requête soumise (la requête est mise à jour en arrière-plan). Affectez-lui la valeur False pour redonner le contrôle à la procédure uniquement une fois toutes les données extraites pour la feuille de calcul. Si vous n'avez pas spécifié cet argument, le fonctionnement de la propriété BackgroundQuery détermine le mode de requête.

[ricoree78]

nickel

c'etait ca !!

bizarre quand meme que ca marche quand je lance le fichier a la main et pas quand je planifie la macro
mais maintenant c'est ok

merci