Este fórum está sendo desativado

[BezerraAllan]

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 ?

[alexandrevba]

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

[BezerraAllan]

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

[alexandrevba]

Bom dia!!

Você pode depositar seu arquivo modelo?

Att

[BezerraAllan]

Segue Arquivo !

[alexandrevba]

Boa tarde!!

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

Código: Selecionar todos

.ODBCConnection.BackgroundQuery = False

Att

[BezerraAllan]

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

Acabei de habilitar para todas mas mesmo assim...

[fernandoazevedo]

Amigo sou iniciante no VBA mais vou tentar ajudar a ordem aqui no caso não estaria errado?

Código: Selecionar todos

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

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

[BezerraAllan]

Obrigado pela atenção !

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