Je soutiens Excel Downloads
Connexion
S'inscrire
Effectuez une recherche sur Excel Downloads...
Effectuez une recherche sur Excel Downloads...
Rechercher dans les titres uniquement
Par:
FORUMS
Nouveaux messages
Rechercher dans les forums
TÉLÉCHARGEMENTS
POUR LES PROFESSIONNELS
Gestion commerciale
Gestion de projets
Gestion du personnel
Tableaux de bord
Comptabilité
Immobilier
Bourse
POUR LES PARTICULIERS
Budgets et comptes
Plannings et calendriers
UTILITAIRES
LEÇONS ET TUTORIAUX
Fonctions Excel
Vba
RESSOURCES PEDAGOGIQUES
Rechercher une ressource
ACTUALITÉS
TUTOS
EXCEL
FORMULES ET FONCTIONS
VBA
POWER QUERY
POWER PIVOT
POWER BI
AUTRES APPLICATIONS
Recherche de tutos vidéos
Connexion
S'inscrire
Quoi de neuf
Effectuez une recherche sur Excel Downloads...
Effectuez une recherche sur Excel Downloads...
Rechercher dans les titres uniquement
Par:
Nouveaux messages
Rechercher dans les forums
Menu
Connexion
S'inscrire
Installer l'application
Installer
FORUMS
Questions
Forum Excel
VBA : attendre fin de mise à jour de la requête query pour la mise à jour des TCD
JavaScript est désactivé. Pour une meilleure expérience, veuillez activer JavaScript dans votre navigateur avant de continuer.
Vous utilisez un navigateur obsolète. Il se peut que ce site ou d'autres sites Web ne s'affichent pas correctement.
Vous devez le mettre à jour ou utiliser un
navigateur alternatif
.
Répondre à la discussion
Message
<blockquote data-quote="dudule" data-source="post: 1186903" data-attributes="member: 181569"><p><strong>Re : VBA : attendre fin de mise à jour de la requête query pour la mise à jour des TC</strong></p><p></p><p>Bonjour Jubei,</p><p></p><p>Essayez ainsi :</p><p></p><p>[CODE]Sub MiseAJour()</p><p></p><p>Application.ScreenUpdating = False 'ne pas actualiser l'écran</p><p></p><p>Dim qtb As Excel.QueryTable</p><p></p><p>For Each qtb In ThisWorkbook.Worksheets("Etiquettes supprimées").QueryTables</p><p>qtb.BackgroundQuery = False 'ne pas exécuter l'actualisation en tache de fond</p><p>qtb.Refresh</p><p></p><p>Next qtb</p><p></p><p>For Each qtb In ThisWorkbook.Worksheets("Stock FSM").QueryTables</p><p>qtb.BackgroundQuery = False 'idem</p><p>qtb.Refresh</p><p></p><p>Next qtb</p><p></p><p>Worksheets("Comparaison").Select</p><p>ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotCache.Refresh</p><p>ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotCache.Refresh</p><p></p><p>Application.ScreenUpdating = True 'remettre l'actualisation de l'écran</p><p></p><p>End Sub[/CODE]</p><p></p><p>Je ne sais pas si ça marchera mais rien ne coute de le tenter !</p><p></p><p>A+ <img src="data:image/gif;base64,R0lGODlhAQABAIAAAAAAAP///yH5BAEAAAAALAAAAAABAAEAAAIBRAA7" class="smilie smilie--sprite smilie--sprite1" alt=":)" title="Smile :)" loading="lazy" data-shortname=":)" /></p></blockquote><p></p>
[QUOTE="dudule, post: 1186903, member: 181569"] [b]Re : VBA : attendre fin de mise à jour de la requête query pour la mise à jour des TC[/b] Bonjour Jubei, Essayez ainsi : [CODE]Sub MiseAJour() Application.ScreenUpdating = False 'ne pas actualiser l'écran Dim qtb As Excel.QueryTable For Each qtb In ThisWorkbook.Worksheets("Etiquettes supprimées").QueryTables qtb.BackgroundQuery = False 'ne pas exécuter l'actualisation en tache de fond qtb.Refresh Next qtb For Each qtb In ThisWorkbook.Worksheets("Stock FSM").QueryTables qtb.BackgroundQuery = False 'idem qtb.Refresh Next qtb Worksheets("Comparaison").Select ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotCache.Refresh ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotCache.Refresh Application.ScreenUpdating = True 'remettre l'actualisation de l'écran End Sub[/CODE] Je ne sais pas si ça marchera mais rien ne coute de le tenter ! A+ :) [/QUOTE]
Insérer les messages sélectionnés…
Vérification
Répondre
FORUMS
Questions
Forum Excel
VBA : attendre fin de mise à jour de la requête query pour la mise à jour des TCD
Texte copié dans le presse-papier
