Pas d'erreur pas à pas

Bonjour,

Le problème est assez difficile à expliquer car je ne le comprend pas.

Je réalise un outil qui extrait les données d'une liste de fichier sélectionner, pour ne pas afficher à l'écran une ouverture de fichier, je le réalise à partir d'une seconde instance Excel.

Set app = New Excel.Application

Ensuite, je l'ouvre avec un simple (je spécifie quelques options supplémentaires)

Set wb = app.Workbooks.Open(path, UpdateLinks:=False, IgnoreReadOnlyRecommended:=True)

Ce fichier contient de nombreuses ranges définit en Tableau, afin d'extraire les dernières données je souhaite les mettre à jour avant donc je réalise un

app.CalculateFullRebuild

wb.RefreshAll

Ces commandes, pour prévenir d'une erreur, sont à la suite d'un "On Error Goto ..."

Lorsque j'exécute mon programme pas à pas, il n'y a pas de soucis. En revanche, lorsque je lance la macro complète avec appuie sur bouton depuis l'IHM, il plante à tous les coups. Avec le même fichier et dans les mêmes conditions je précise. => Visible dans mes LOGs.

Savez-vous d'où peux venir le problème et comment le régler ?

Je vous joins une version simplifié de mon outil pour que vous puissiez tester.

Je suis sous Windows 10 avec la version Excel 365 Pro.

Merci d'avance pour toute aide.

Bonsoir,

C'est un problème de timer je pense, il faut peut-être essayer de mettre des pauses

    DoEvents
    app.CalculateFullRebuild
    Application.Wait Now() + TimeValue("00:00:05")
    wb.RefreshAll
    Application.Wait Now() + TimeValue("00:00:05")

@+