macro actualiser

[m92n]

Bonjour, j'ai créé une macro qui commence par actualiser les données du web puis effectue quelque opération.. mais lorsque je l,essais.. il effectue tout les opération en premier puis actualise le tableau apres...

voici le code

Sub Actualiser()

    Sheets("Stats").Select
    
    ActiveWorkbook.RefreshAll
    
    Columns("O:U").Cut Destination:=Columns("N:T")
    
    
    Range("B1:B310").Select
    ActiveWorkbook.Worksheets("Stats").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Stats").Sort.SortFields.Add Key:=Range("B1"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Stats").Sort
        .SetRange Range("A2:S310")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    

End Sub

avez vous une idée pourquoi les opérations ne s'effectuent pas dans l'ordre?

merci beaucoup
m92n

 

[Kobaya]

Re : macro actualiser

bonsoir m92n,

je ne connais pas les liaisons web, mais peut-être faut-il laisser un peu plus de temps à ces liaisons pour être rafraichies avant de faire les opération de copier/coller.

Une boucle

For/Next

ou l'instruction

Application.Wait(Now + TimeValue("0:0[COLOR=#000000]1[/COLOR]:00"))

pour attendre 1 minute.

 

[m92n]

Re : macro actualiser

merci beaucoup mais cela ne fonctionne pas
jai ajouter

Application.Wait(Now + TimeValue("0:01:00"))

juste en dessous de

ActiveWorkbook.RefreshAll

mais étrangement il éfectue tjs les autre opération en premier en commencant par attendre une minute puis il actualise en dernier

cette commande a-t-elle une propriété spéciale? pourquoi s'effectue-t-elle juste a la fin?