macro trop rapide

[marc]

Bonjour,
J'ai réalisé un petit programme qui après avoir fait une capture d'écran doit:
1/ l'imprimer 2/l'effacer

Sheets("Saisie").Select
Range("B4").Select

SendKeys "{PRTSC}"
Sheets("Impression").Select
Range("A1").Select
TimeValue ("00:00:30")

ActiveSheet.Paste
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Selection.Delete

ça marche... parfois.
Je pense qu'il s'ajit d'un problème de synchro entre la mise en mémoire de la copie écran et le coler puis imprimer puis effacer.
Ma tempo ne doit pas fonctionner correctement.

Existe t-il un zen exceliste pour qui le temps n'a aucun secret, et qui saurait me répondre?
Merci d'avance
Marc

 

[daniel]

A ma connaissance, il n'existe pas comme sous VB de timer, il faut en faire uen simulation. Une technique consiste a faire comme suit:




fonctions TIMER:

Sub LancerTimer(NbS As Integer)
'L'application ExecutionTimer se lancera toutes les 0 heure, 0 minute et Interval seconde
Interval = NbS
Application.OnTime Now + TimeSerial(0, 0, Interval), "ExecutionTimer"
End Sub

Sub ArretTimer()
On Error Resume Next
Application.OnTime Lheure, "ExecutionTimer", , False
End Sub

 

[A_binouze_drinker_among_others]

bonjour

ptê que doevents suffit