Est ce possible de mettre un timing entre 2 instructions vba
Résolu
mcstayhi99
Messages postés
34
Statut
Membre
-
mcstayhi99 Messages postés 34 Statut Membre -
mcstayhi99 Messages postés 34 Statut Membre -
Bonjour,
Voici ma macro :
Sub Macro1()
'
' Macro1 Macro
'
'
ActiveWorkbook.Unprotect
ActiveSheet.Unprotect
ActiveSheet.PivotTables("Tableau croisé dynamique1").RefreshTable
ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
True, AllowUsingPivotTables:=True
ActiveWorkbook.Protect Structure:=True, Windows:=False
End Sub
est ce possible d'executer la protection apres un timing, par exemple 10 seconde, le temps que le tcd s'actualise.
Merci beaucoup pour vos réponse
Voici ma macro :
Sub Macro1()
'
' Macro1 Macro
'
'
ActiveWorkbook.Unprotect
ActiveSheet.Unprotect
ActiveSheet.PivotTables("Tableau croisé dynamique1").RefreshTable
ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
True, AllowUsingPivotTables:=True
ActiveWorkbook.Protect Structure:=True, Windows:=False
End Sub
est ce possible d'executer la protection apres un timing, par exemple 10 seconde, le temps que le tcd s'actualise.
Merci beaucoup pour vos réponse
A voir également:
- Est ce possible de mettre un timing entre 2 instructions vba
- Supercopier 2 - Télécharger - Gestion de fichiers
- 2 ecran pc - Guide
- Word numéro de page 1/2 - Guide
- Transfert de fichier entre 2 pc par wifi - Guide
- Faire 2 colonnes sur word - Guide
3 réponses
Chez moi ça marche.
Il faut bien que tu mettes sleep et sa déclaration dans le même module.
Il faut bien que tu mettes sleep et sa déclaration dans le même module.
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Sub test()
MsgBox("Instant T0")
Sleep 2000
MsgBox("Instant T0 + 2s après avoir cliqué sur OK")
End Sub
Declare Sub Sleep Lib "kernel32" Alias "Sleep" (ByVal dwMilliseconds As Long)
Merci