jaymehc

boa tarde, achei esse tópico muito interessante, me ajudou bastante em alguns computadores com excel 2016, mas agora estou com uma maquina com excel 2013 e não consigo fazer esse código rodar... no depurar sempre da erro no mesmo lugar.. pode me ajudar?! o erro da aqui: AppActivate "Microsoft Excel" já mudei pra só Excel e não foi, lendo as respostas anteriores... Sub StartAdobe() Dim AdobeApp As String Dim AdobeFile As String Dim StartAdobe AdobeApp = "C:\Program Files\Adobe\Acrobat Reader DC\Reader\AcroRd32.exe" AdobeFile = "C:\Temp\BACKUP\out123.pdf" StartAdobe = Shell("" & AdobeApp & " " & AdobeFile & "", 1) Application.OnTime Now + TimeValue("00:00:05"), "FirstStep" End Sub Private Sub FirstStep() SendKeys ("^a") SendKeys ("^c") Application.OnTime Now + TimeValue("00:00:10"), "SecondStep" End Sub Private Sub SecondStep() SendKeys ("%fx") AppActivate "Microsoft Excel" ThisWorkbook.Activate Sheets(1).Activate Range("A1").Activate SendKeys ("^v") End Sub adicionado 0 minutos depois @Basole