Microsoft 365 Problème désactivation la MAJ en arrière plan OLEDBConnection

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

treza88

XLDnaute Occasionnel
Bonjour à tous,

J'ai un problème, quand je rafraichi mes connections power Query j'ai cette erreur :

VB:
Vous ne pouvez pas actualiser une requête ayant été chargée dans un classeur protégé.

j'ai beau essayer de fermer la mise a jour en arrière plan mais elle ne veut pas se fermer elle reste a True.
Qu'est qui cloche dans mon code ?

Code:
 For Each conn In ThisWorkbook.Connections
            If conn.Type = xlConnectionTypeODBC Or conn.Type = xlConnectionTypeOLEDB Then
                ' Désactiver la mise à jour en arrière-plan
                If conn.OLEDBConnection.BackgroundQuery = True Then conn.OLEDBConnection.BackgroundQuery = False
                ' Mise à jour de la connexion
                conn.Refresh
            End If
       Next conn
    Application.CalculateUntilAsyncQueriesDone
 
A priori ça à l'air d'etre ça :

VB:
For Each feuille In Worksheets
        feuille.Unprotect
    Next feuille
    ThisWorkbook.Unprotect
    ' Mise à jour des requêtes Power Query
        For Each conn In ThisWorkbook.Connections
            If conn.Type = xlConnectionTypeODBC Or conn.Type = xlConnectionTypeOLEDB Then
                ' Désactiver la mise à jour en arrière-plan
                If conn.OLEDBConnection.BackgroundQuery = True Then conn.OLEDBConnection.BackgroundQuery = False
                ' Mise à jour de la connexion
                conn.Refresh
            End If
       Next conn
    Application.CalculateUntilAsyncQueriesDone
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Retour