Suite à un bug particulièrement puissant, je suis dans l' incapacité de d 'utiser l' instruction Sendkeys "{Right/down/Left/UP}", true
 
Voici un bout du programme :
 
Dim cpt As Integer
cpt = 1
Do
D = D + 1
If D >= 75000 Then
cpt = cpt - 1
MsgBox "Exécution términé"
Range("A1" ).Select
End If
If Range("A1" ) = "Stop" Then
Range("A1" ) = ""
cpt = cpt - 1
End If
SendKeys "{Down}", True
Application.Run "Créat.xls!créat"
Loop Until cpt = 0
 
Par la suite, je voudrais, rajouter une sécurité supplèmentaire à ma boucle :  
Application.OnTime TimeValue ("00:03:00" ), "A"
Ainsi, au bout de 3 Minute, si la boucle est encore active, le mot code (Stop) est affiché automatiquement.
Se serait très bien, si ça marchait...
 
Pourrait -on m' aider à résoudre ces 2 problèmes ?
 
Merci.

J' ai trouvé ce qui clochait avec SendKeys "{x}", True : La fenêtre VBA était résté actif.(Ca ne m' avait pas fait le coup auparavant ?)
 
Mais j' ai vraiment besion de sécurisé ma boucle :  
Car toujour suite à ce bug, à chaque fois qu' une boucle infini est lancé, et que l' élément qui doit l' arrêter ne s' active pas, l' ordinateur redémarre automatiquement.
 
Si vous avez déjà ou eu ce type de problème, pourrait -vous m' aider à le résoudre ? ou sinon, pourrait -vous me dire se qu' il ne vas pas dans  
Application.OnTime TimeValue ("00:03:00" ), "A" ?
Merci

J' ai plus de problème sur le Bigfatbug, mais est ce que quelqu' un pourrait me dire ce qu' il ne vas pas dans  
Application.OnTime TimeValue ("00:03:00" ), "A"
Car si le bug est résolu, j' amerais minimiser les risque que ça se reproduise.
Merci

Salut,  
 
Ecxusez -moi, je me suis completement bourré.
Ce que je voulais faire, c' est arrêter ma macro si temps de minute se sont écoulé.
 
Est -ce possible ?
 
Merci