Discussion :

[Carlito01]

Bonjour à tous,

J'ai un code vba qui me permet d'actualiser deux tableaux importés d'une source SQL server. Tout marche bien.
Je dois protéger des feuilles pour des raisons lambda, du coup, dans mon code, je déprotège mes feuilles en début de code, j'actualise mes données et ensuite je protège mes feuilles mais le problème est que je reçois un message d'erreur au cours de mon code comme quoi je dois enlever la protection pour actualiser mes données. Je pense que l'actualisation se fait mais quand elle pas en arrière plan, mon code passe à la suite et protège les feuilles, ce qui affiche l'erreur.

Comment puis-je faire pour éviter cette erreur? j'ai essayé d'ajouter un minuteur mais sans succès... après je m'y suis peut-être mal pris, mais je pense que le problème est quand l'actualisation passe en arrière plan.

Ci-dessous mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 'déprotège les feuilles
Sheets("TARIF VENTE BASE").Unprotect Password:="TA541U"
Sheets("FAMILLE").Unprotect Password:="TA541U"
Sheets("LISTE").Unprotect Password:="TA541U"
 
'maj des vues
ActiveWorkbook.RefreshAll
datemaj.Value = "Dernière mis à jour le " & Now()
 
'protège les feuilles
Sheets("TARIF VENTE BASE").Protect Password:="TA541U"
Sheets("FAMILLE").Protect Password:="TA541U"
Sheets("LISTE").Protect Password:="TA541U"

Je vous remercie d'avance pour vos réponses.

[Marc-L]

Bonjour, bonjour !

La solution est dans l'aide VBA intégrée ‼
Donc sélectionner dans le code RefreshAll puis cliquer sur ‼
Suffit juste de lire puis de mettre à jour le code …

Voilà, voilà !

__________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …

[Carlito01]

Merci pour ta réponse.

Mais même avec l'aide, j'ai du chercher encore sur d'autres forums comment marchais ce "backgroundquery".
Pour ceux qui auront le même problème que moi, ci-dessous mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Dim actu As QueryTable
Dim feuille As Worksheet
 
'déprotège les feuilles
Sheets("TARIF VENTE BASE").Unprotect Password:="TA541U"
Sheets("FAMILLE").Unprotect Password:="TA541U"
Sheets("LISTE").Unprotect Password:="TA541U"
Sheets("CREATION ETAT TARIF").Unprotect Password:="TA541U"
 
'maj des vues
For Each feuille In ThisWorkbook.Sheets
    For Each actu In ActiveSheet.QueryTables
        actu.BackgroundQuery = False
        ActiveSheet.Refresh
    Next actu
Next feuille
 
datemaj.Value = "Dernière mis à jour le " & Now()
 
'protège les feuilles
Sheets("TARIF VENTE BASE").Protect Password:="TA541U"
Sheets("FAMILLE").Protect Password:="TA541U"
Sheets("LISTE").Protect Password:="TA541U"
Sheets("CREATION ETAT TARIF").Protect Password:="TA541U"
End Sub