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
3 réponses
-
http://www.laissemoichercherca.com/?q=delay%20vb
Sleep 2500
Où 2500 = 2,5 sec
-
Chez moi ça marche.
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
-
Rajoutes un Call devant chacun de tes appels de macro dans appel().
VBA signale l'erreur sur quelle ligne de quelle macro quand tu cliques sur "débogage" ?
