Code qui ne fonctionne qu'en step by step !!!Résolu

Question

Bonjour, 
j'ai un bout de code conditionné par un bouton qui fonctionne très bien en step by step mais dès que je le lance en une seule fois il ne fonctionne plus... Aucune erreur ne s'affiche.
Quelqu'un aurait-il une quelconque idée quant à ce problème ?
Merci

voici le code en question...
____________________________________________________________

Private Sub CommandButton5_Click()
    Selection.AutoFilter Field:=3, Criteria1:="Public"
    
    Const ThePath As String = "J:\TempFolders"
    Const TheFile As String = "	estpdf.PDF"
   
    Sheets("Open Items").Select
    SendKeys ThePath & TheFile + "~"
    SendKeys ("{ENTER}")
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:="Adobe PDF", Collate:=True
    SendKeys ("{ENTER}")
End Sub

Renfield · Accepted Answer

tu peux tenter d'ajouter , True a tes commandes SendKeys
mais en général, on évite de jouer avec SendKeys, c'est imprécis.

surtout pour piloter du Excel, qui est 100% pilotable par macros

là, je pige pas la demande....

PCPT · Answer

topic déplacé de VB.NET vers VBA, attention aux thèmes

cs_Jack · Answer

Salut
Oui, SendKeys ...
Regarde dans l'aide, SendKeys à un argument facultatif
+ Ajoute des DoEvents (*) après chaque SendKeys
(*) peut-être plusieurs ou une boucle d'attente de 1 seconde ou 2, sinon, le PrintOut n'aura jamais le temps de s'exécuter

Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

<hr />Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)

bmwax · Answer

Merci Jack !
Un DoEvents suffit...

Bye
BMWax

Code qui ne fonctionne qu'en step by step !!!

4 réponses

Votre réponse

Discussions similaires