Iomari Silva Roza Junior

@Midori Obrigado pela ajuda. Problema resolvido.

@Midori Pode ser... Alguma sugestão de código para wait?

@Midori Continua sem remover a numeração. Segue imagem...

@Midori É exatamente isso. Mas a instrução só funciona rodando sozinha. Quando o relatório é gerado, o arquivo não é renomeado, ou seja, continua com a numeração mesmo após a macro ser finalizada.

@Midori Se já houver um arquivo no padrão mencionado na pasta, a macro executa a função no arquivo existente, e não no criado (extraído do site). A macro funciona. O relatório é extraído do site corretamente, mas a instrução para renomear o arquivo extraído não roda.

@Midori Inseri seu código no final do evento. Ele em separado funciona perfeitamente, porém, após o evento, quando ele não deleta o arquivo, não o renomeia. Segue o código do evento: Declare Function apiShowWindow Lib "user32" Alias "ShowWindow" _ (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long Dim HTMLDoc As HTMLDocument Dim oBrowser As InternetExplorer Dim ID As Boolean, ieForm Dim ID_ As Integer Global Const SW_MAXIMIZE = 3 Global Const SW_SHOWNORMAL = 1 Global Const SW_SHOWMINIMIZED = 2 Sub Login() Worksheets("Dashboard").Activate ActiveSheet.Range("A13").Select nome = InputBox("Qual a ID da Turma") linha = Range("A1").End(xlDown).Row + 7 Cells(linha, 1) = nome Dim oHTML_Element As IHTMLElement Dim sURL As String On Error GoTo Err_Clear sURL = "gera.atento.com.br" Set oBrowser = New InternetExplorer oBrowser.Silent = True oBrowser.timeout = 60 oBrowser.Navigate sURL oBrowser.Visible = True oBrowser.TheaterMode = True Do Loop Until oBrowser.ReadyState = READYSTATE_COMPLETE Set HTMLDoc = oBrowser.Document SetCursorPos 711, 402 'Local do Clique, em X e Y. mouse_event MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0 mouse_event MOUSEEVENTF_LEFTUP, 0, 0, 0, 0 Application.Wait Now + TimeSerial(0, 0, 4) SetCursorPos 23, 139 'Local do Clique, em X e Y. mouse_event MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0 mouse_event MOUSEEVENTF_LEFTUP, 0, 0, 0, 0 Application.Wait Now + TimeSerial(0, 0, 1) SetCursorPos 194, 254 'Local do Clique, em X e Y. mouse_event MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0 mouse_event MOUSEEVENTF_LEFTUP, 0, 0, 0, 0 Application.Wait Now + TimeSerial(0, 0, 1) SetCursorPos 174, 300 'Local do Clique, em X e Y. mouse_event MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0 mouse_event MOUSEEVENTF_LEFTUP, 0, 0, 0, 0 Application.Wait Now + TimeSerial(0, 0, 1) SetCursorPos 117, 194 'Local do Clique, em X e Y. mouse_event MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0 mouse_event MOUSEEVENTF_LEFTUP, 0, 0, 0, 0 Application.Wait Now + TimeSerial(0, 0, 1) Set HTMLDoc = oBrowser.Document HTMLDoc.all.ID.Value = nome SetCursorPos 1383, 349 'Local do Clique, em X e Y. mouse_event MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0 mouse_event MOUSEEVENTF_LEFTUP, 0, 0, 0, 0 Application.Wait Now + TimeSerial(0, 0, 1) SetCursorPos 1433, 477 'Local do Clique, em X e Y. mouse_event MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0 mouse_event MOUSEEVENTF_LEFTUP, 0, 0, 0, 0 Application.Wait Now + TimeSerial(0, 0, 2) SetCursorPos 1396, 509 'Local do Clique, em X e Y. mouse_event MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0 mouse_event MOUSEEVENTF_LEFTUP, 0, 0, 0, 0 Application.Wait Now + TimeSerial(0, 0, 4) SetCursorPos 1111, 877 'Local do Clique, em X e Y. mouse_event MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0 mouse_event MOUSEEVENTF_LEFTUP, 0, 0, 0, 0 oBrowser.Quit Dim Pasta As String Dim Arquivo As String Pasta = "C:\Users\" & Environ("UserName") & "\Downloads\" Arquivo = "AlunosTurmaID50978.csv" Name Pasta & Arquivo As Pasta & Left(Arquivo, 13) & ".csv" Err_Clear: Resume Next End Sub

@Midori O código funciona, obrigado. vou tentar adaptar, pois quando uso ele em uma call, o arquivo é deletado.

@Midori , essa ID é só um exemplo. Como eu disse no primeiro post, os arquivos são gerados de acordo com a ID que solicitamos o relatórios, ou seja, os relatórios sempre são extraídos com uma sequência numérica final aleatória e, para automatizar uma macro, preciso padronizar esse aquivo, removendo essa sequência numérica aleatória final.

@Midori Não entendi. Devo substituir o nome do arquivo pelo código "MsgBox Left(Arquivo, 13) & ".csv"???

Salve, mestres!! Estou quebrando a cabeça para renomear arquivos de relatórios que são extraídos automaticamente de um site, mas que são gerados de acordo com uma ID inserida na página. Ex: Name "C:\Users\" & Environ("UserName") & "\Downloads\AlunosTurmaID50978.csv" As "C:\Users\" & Environ("UserName") & "\Downloads\AlunosTurmaID.csv" Já tentei usar "*", "#" e "?", mas nada funciona. Alguém pode me dar uma luz??