Guru do Excel e Power BI

Boa Tarde Galera !

Venho hoje mais uma vez solicitar a ajuda de vcs. Criei um relatório onde para ser feita a atualização de todos os itens apenas basta atualizar as conexões externas e as tabelas dinâmicas.

Mas na macro que criei para que o usuário apenas deu um "Click" faço o seguinte Sub

1. Atualizar todas as conexões Externas
2. Atualizar todas as Tabelas Dinâmicas.

Porém percebi que as tabelas dinâmicas atualizam terminam de serem atualizadas antes das conexões afetando assim a informação. Já criei um loop para atrasar a atualização das dinâmicas mas não resolveu.

Podem me orientar com algo, por favor ?

Bom dia!!

Como é a rotina que vc está usando, se puder postar seu arquivo modelo.

O comando que atualiza as TD está antes ou depois da parte da rotina que atualiza a externa?



Att

Bom Dia Ale !

Então a atualização das Dinâmicas está depois da atualização das conexões externas.

Segue o projeto em anexo

Obrigado mais uma vez..

Sub AtualizarBases()

Dim connections As connections
Dim Apoio As Worksheet
Dim Ok As Long


Set Apoio = Sheets("Apoio Acionamentos")
Apoio.Select
Ok = 1


ActiveWorkbook.connections("Canal de Ofertas Ofertas MIS").Refresh
ActiveWorkbook.connections("Canal Expresso").Refresh
ActiveWorkbook.connections("MDR").Refresh
ActiveWorkbook.connections("Projetos Horas Alocadas").Refresh
ActiveWorkbook.connections("Projetos por Pontos Focais 2016").Refresh
ActiveWorkbook.connections("Tbl_Acionamentos_2016").Refresh


Do While Ok <= 100000





Ok = Ok + 1

Loop

Apoio.Range("R1").Value = Ok

Call AtualizaDinamicas














End Sub

Sub AtualizaDinamicas()


'Objeto de tabela dinâmica
Dim pivottable As pivottable

'Loop por todos os objetos da planilha
For Each plan In ActiveWorkbook.Sheets
For Each pivottable In plan.PivotTables
pivottable.RefreshTable

ActiveWorkbook.connections("Canal de Ofertas Ofertas MIS").Refresh
ActiveWorkbook.connections("Canal Expresso").Refresh
ActiveWorkbook.connections("MDR").Refresh
ActiveWorkbook.connections("Projetos Horas Alocadas").Refresh
ActiveWorkbook.connections("Projetos por Pontos Focais 2016").Refresh
ActiveWorkbook.connections("Tbl_Acionamentos_2016").Refresh


Next
Next
End Sub

Bom dia!!

Você pode depositar seu arquivo modelo?

Att

Segue Arquivo !

Boa tarde!!

Bez, vc já tentou fazer o processo em background, como falso? Att

Vc diz habilitar na conexão a atualização em segundo plano ?

Acabei de habilitar para todas mas mesmo assim...

Amigo sou iniciante no VBA mais vou tentar ajudar a ordem aqui no caso não estaria errado?
Esta linha:
pivottable.RefreshTable
Nao deveria estar após atualização das conexões?
ABaixo de :ActiveWorkbook.connections("Tbl_Acionamentos_2016").Refresh

Sou bem leigo mais talvez ajude.

abraços

Obrigado pela atenção !

No código que enviei as conexões externas já estão primeiro que as tabelas dinâmicas.