Macro : traitement de données après réception de données

[david_31]

Bonjour à tous,

J'ai besoin de votre aide, j'ai un fichier Excel, comportant deux feuilles, sur la feuille1, je traite les données de la feuille 2, la feuille 2 quant à elle interroge un serveur pour récupérer les données, ma macro Excel permet simplement de changer la date sur la feuille afin de changer la date des données de la feuille 2 et de copier coller les calculs que j'ai fait sur la feuille1 :

Sub Recuperation_données_mensuelles()
'
' Recuperation_données_mensuelles Macro
' Macro permettant la récupèration des données pour 2011
For k = 1 To 12
Range("A1").Select
ActiveCell.FormulaR1C1 = k & "/1/2011"
DoEvents
'Application.Wait (Now + TimeValue("0:00:05"))
Range("E42:E47").Select
Selection.Copy
Cells(50, 1 + k).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Selection.Style = "Percent"
Selection.NumberFormat = "0.00%"
Range("K41").Select
Next
End Sub

Le souci, c'est que lorsque je lance la macro sur les 12 mois, l'importation des données ne se fait pas, cependant lorsque je réalise la macro en mode pas à pas, elle fait exactement ce que je désire.

Comme vous pouvez le voir, j'ai rajouté le doevents qui me permet d'actualiser mes données après changement de la date, j'ai trouvé ça sur un topics similaire (je ne sais pas trop ce qu'il y a derrière). J'ai essayé de faire attendre la macro avec la fonction wait, mais je pense pas que cela soit la solution vu que ça ne marche pas !

Voilà, je vous remercie pour votre coup de pouce, et si vous avez besoin d'infos supplémentaires, n'hésitez pas !

David
(Vista, Excel 2007)

 

[Compte Supprimé 979]

Re : Macro : traitement de données après réception de données

bonjour David

Si j'ai bien compris, sur ta feuille2 tu as une requête qui interroge un serveur !?
Il faudrait mettre à jour cette requête ...

A+

 

[david_31]

Re : Macro : traitement de données après réception de données

Oui c'est cela, normalement quand je fais fonctionner mon fichier Excel sans macro, je rentre la date pour laquelle je veux mes données, et en appuyant sur entrée ou en cliquant sur n'importe quelle touche, la requête est mise à jour sans problèmes mes données sont actualisées, de même quand je fais tourner ma macro en mode pas à pas, on dirait qu'en mode "normal", les requêtes sont bloquées !

Ce que je trouve bizarre c'est que ma macro fonctionne en mode pas à pas mais pas en mode continu

David

 

[JCGL]

Re : Macro : traitement de données après réception de données

Bonjour à tous,
Bienvenue sur XLD,

Sans fichier pas facile de tester :

Option Explicit


Sub Recuperation_données_mensuelles()
Dim k As Byte
'
' Recuperation_données_mensuelles Macro
' Macro permettant la récupèration des données pour 2011
For k = 1 To 12
Range("A1").Formula = k & "/1/2011"
'DoEvents
'Application.Wait (Now + TimeValue("0:00:05"))
Range("E42:E47").Select
Selection.Copy
Cells(50, 1 + k).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Selection.Style = "Percent"
Selection.NumberFormat = "0.00%"
Range("K41").Select
Next k
End Sub

A + à tous

Edition : Salut Bruno. Visiblement, je n'ai rien compris à la demande...

 

[david_31]

Re : Macro : traitement de données après réception de données

Merci à tous les deux pour vos retours,

Je vais tester cela demain, je n'ai pas le fichier sous la main, du coup je voulais savoir quels étaient les soucis de ma macro afin d'éviter de refaire les mêmes erreurs, et dans quels cas une macro peut fonctionner en mode pas à pas mais pas en mode normal ?

Merci pour vos retours,

David

 

[david_31]

Re : Macro : traitement de données après réception de données

Bonjour à tous,

Je viens d'essayer tes modifications, et malheureusement cela ne fonctionne pas. La macro n'attend pas que les données soient rappatriées sur la feuille 2.

bonne journée,

David