Bonjour,
Voici mon Pb:
Dans un classeur Excel97 je récupère par lien ODBC, dans une feuille
masquée, des données d'une base. Puis dans une autre feuille, celle-ci
affichée, je fais ma mise à jour des tableaux croisés dynamiques lorsque
j'active celle-ci. Mon code est le suivant :
Private Sub Worksheet_Activate()
With ThisWorkbook.Sheets("Suivi_Demandé_Réalisé")
With ThisWorkbook.Sheets("BdD_PDC")
If .Visible = False Then .Visible = True
ThisWorkbook.Sheets("BdD_PDC").Select
Application.GoTo Reference:="DE_BdD_PDC"
Selection.QueryTable.Refresh BackgroundQuery:=False
.Visible = False
Application.MaxChange = 0.001
ActiveWorkbook.PrecisionAsDisplayed = False
Calculate
End With
ActiveSheet.PivotTables("TCD_REALISE_DEMANDE_GG").RefreshTable
End With
Range("A1").Select
End Sub
Ma procédure se bloque sur :
ActiveSheet.PivotTables("TCD_REALISE_DEMANDE_GG").RefreshTable
De ce que je comprends il a perdu le focus sur ma feuille active.
Quelques explications :
"Suivi_Demandé_Réalisé" = la feuille active
"BdD_PDC" = la feuille masquée où je récupère les données externes par liens
ODBC
"DE_BdD_PDC" = mes données externes que je mets à jour
"TCD_REALISE_DEMANDE_GG" = mon tableau croisé dynamique que je mets à jour
Quelqu'un pourrait-il m'aider ? Cela fait 2 heures que je suis sur ce Pb.
Merci par avance
--
Pierre
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
MichDenis
Si tu penses qu'il a perdu le nord... pourquoi ne pas spécifier sur quelle feuille se retrouve ton PivotTable ?
au lieu de : ActiveSheet.PivotTables("TCD_REALISE_DEMANDE_GG").RefreshTable
utilise : With Worksheets("NomDeLaFeuille") With .PivotTables("TCD_REALISE_DEMANDE_GG") .RefreshTable End With End With
"larnoum" a écrit dans le message de news:
Bonjour, Voici mon Pb: Dans un classeur Excel97 je récupère par lien ODBC, dans une feuille masquée, des données d'une base. Puis dans une autre feuille, celle-ci affichée, je fais ma mise à jour des tableaux croisés dynamiques lorsque j'active celle-ci. Mon code est le suivant :
Private Sub Worksheet_Activate() With ThisWorkbook.Sheets("Suivi_Demandé_Réalisé") With ThisWorkbook.Sheets("BdD_PDC") If .Visible = False Then .Visible = True ThisWorkbook.Sheets("BdD_PDC").Select Application.GoTo Reference:="DE_BdD_PDC" Selection.QueryTable.Refresh BackgroundQuery:úlse .Visible = False Application.MaxChange = 0.001 ActiveWorkbook.PrecisionAsDisplayed = False Calculate End With ActiveSheet.PivotTables("TCD_REALISE_DEMANDE_GG").RefreshTable End With Range("A1").Select End Sub
Ma procédure se bloque sur : ActiveSheet.PivotTables("TCD_REALISE_DEMANDE_GG").RefreshTable De ce que je comprends il a perdu le focus sur ma feuille active. Quelques explications : "Suivi_Demandé_Réalisé" = la feuille active "BdD_PDC" = la feuille masquée où je récupère les données externes par liens ODBC "DE_BdD_PDC" = mes données externes que je mets à jour "TCD_REALISE_DEMANDE_GG" = mon tableau croisé dynamique que je mets à jour Quelqu'un pourrait-il m'aider ? Cela fait 2 heures que je suis sur ce Pb. Merci par avance -- Pierre
Si tu penses qu'il a perdu le nord... pourquoi ne pas spécifier sur
quelle feuille se retrouve ton PivotTable ?
au lieu de :
ActiveSheet.PivotTables("TCD_REALISE_DEMANDE_GG").RefreshTable
utilise :
With Worksheets("NomDeLaFeuille")
With .PivotTables("TCD_REALISE_DEMANDE_GG")
.RefreshTable
End With
End With
"larnoum" <larnoum@discussions.microsoft.com> a écrit dans le message de news:
098136E4-BB94-4EF8-B1A9-3F7ABE744EB4@microsoft.com...
Bonjour,
Voici mon Pb:
Dans un classeur Excel97 je récupère par lien ODBC, dans une feuille
masquée, des données d'une base. Puis dans une autre feuille, celle-ci
affichée, je fais ma mise à jour des tableaux croisés dynamiques lorsque
j'active celle-ci. Mon code est le suivant :
Private Sub Worksheet_Activate()
With ThisWorkbook.Sheets("Suivi_Demandé_Réalisé")
With ThisWorkbook.Sheets("BdD_PDC")
If .Visible = False Then .Visible = True
ThisWorkbook.Sheets("BdD_PDC").Select
Application.GoTo Reference:="DE_BdD_PDC"
Selection.QueryTable.Refresh BackgroundQuery:úlse
.Visible = False
Application.MaxChange = 0.001
ActiveWorkbook.PrecisionAsDisplayed = False
Calculate
End With
ActiveSheet.PivotTables("TCD_REALISE_DEMANDE_GG").RefreshTable
End With
Range("A1").Select
End Sub
Ma procédure se bloque sur :
ActiveSheet.PivotTables("TCD_REALISE_DEMANDE_GG").RefreshTable
De ce que je comprends il a perdu le focus sur ma feuille active.
Quelques explications :
"Suivi_Demandé_Réalisé" = la feuille active
"BdD_PDC" = la feuille masquée où je récupère les données externes par liens
ODBC
"DE_BdD_PDC" = mes données externes que je mets à jour
"TCD_REALISE_DEMANDE_GG" = mon tableau croisé dynamique que je mets à jour
Quelqu'un pourrait-il m'aider ? Cela fait 2 heures que je suis sur ce Pb.
Merci par avance
--
Pierre
Si tu penses qu'il a perdu le nord... pourquoi ne pas spécifier sur quelle feuille se retrouve ton PivotTable ?
au lieu de : ActiveSheet.PivotTables("TCD_REALISE_DEMANDE_GG").RefreshTable
utilise : With Worksheets("NomDeLaFeuille") With .PivotTables("TCD_REALISE_DEMANDE_GG") .RefreshTable End With End With
"larnoum" a écrit dans le message de news:
Bonjour, Voici mon Pb: Dans un classeur Excel97 je récupère par lien ODBC, dans une feuille masquée, des données d'une base. Puis dans une autre feuille, celle-ci affichée, je fais ma mise à jour des tableaux croisés dynamiques lorsque j'active celle-ci. Mon code est le suivant :
Private Sub Worksheet_Activate() With ThisWorkbook.Sheets("Suivi_Demandé_Réalisé") With ThisWorkbook.Sheets("BdD_PDC") If .Visible = False Then .Visible = True ThisWorkbook.Sheets("BdD_PDC").Select Application.GoTo Reference:="DE_BdD_PDC" Selection.QueryTable.Refresh BackgroundQuery:úlse .Visible = False Application.MaxChange = 0.001 ActiveWorkbook.PrecisionAsDisplayed = False Calculate End With ActiveSheet.PivotTables("TCD_REALISE_DEMANDE_GG").RefreshTable End With Range("A1").Select End Sub
Ma procédure se bloque sur : ActiveSheet.PivotTables("TCD_REALISE_DEMANDE_GG").RefreshTable De ce que je comprends il a perdu le focus sur ma feuille active. Quelques explications : "Suivi_Demandé_Réalisé" = la feuille active "BdD_PDC" = la feuille masquée où je récupère les données externes par liens ODBC "DE_BdD_PDC" = mes données externes que je mets à jour "TCD_REALISE_DEMANDE_GG" = mon tableau croisé dynamique que je mets à jour Quelqu'un pourrait-il m'aider ? Cela fait 2 heures que je suis sur ce Pb. Merci par avance -- Pierre
larnoum
Merci MichDenis, Cela fonctionne comme je le souhaitais -- Pierre
Si tu penses qu'il a perdu le nord... pourquoi ne pas spécifier sur quelle feuille se retrouve ton PivotTable ?
au lieu de : ActiveSheet.PivotTables("TCD_REALISE_DEMANDE_GG").RefreshTable
utilise : With Worksheets("NomDeLaFeuille") With .PivotTables("TCD_REALISE_DEMANDE_GG") .RefreshTable End With End With
"larnoum" a écrit dans le message de news:
Bonjour, Voici mon Pb: Dans un classeur Excel97 je récupère par lien ODBC, dans une feuille masquée, des données d'une base. Puis dans une autre feuille, celle-ci affichée, je fais ma mise à jour des tableaux croisés dynamiques lorsque j'active celle-ci. Mon code est le suivant :
Private Sub Worksheet_Activate() With ThisWorkbook.Sheets("Suivi_Demandé_Réalisé") With ThisWorkbook.Sheets("BdD_PDC") If .Visible = False Then .Visible = True ThisWorkbook.Sheets("BdD_PDC").Select Application.GoTo Reference:="DE_BdD_PDC" Selection.QueryTable.Refresh BackgroundQuery:úlse .Visible = False Application.MaxChange = 0.001 ActiveWorkbook.PrecisionAsDisplayed = False Calculate End With ActiveSheet.PivotTables("TCD_REALISE_DEMANDE_GG").RefreshTable End With Range("A1").Select End Sub
Ma procédure se bloque sur : ActiveSheet.PivotTables("TCD_REALISE_DEMANDE_GG").RefreshTable De ce que je comprends il a perdu le focus sur ma feuille active. Quelques explications : "Suivi_Demandé_Réalisé" = la feuille active "BdD_PDC" = la feuille masquée où je récupère les données externes par liens ODBC "DE_BdD_PDC" = mes données externes que je mets à jour "TCD_REALISE_DEMANDE_GG" = mon tableau croisé dynamique que je mets à jour Quelqu'un pourrait-il m'aider ? Cela fait 2 heures que je suis sur ce Pb. Merci par avance -- Pierre
Merci MichDenis,
Cela fonctionne comme je le souhaitais
--
Pierre
Si tu penses qu'il a perdu le nord... pourquoi ne pas spécifier sur
quelle feuille se retrouve ton PivotTable ?
au lieu de :
ActiveSheet.PivotTables("TCD_REALISE_DEMANDE_GG").RefreshTable
utilise :
With Worksheets("NomDeLaFeuille")
With .PivotTables("TCD_REALISE_DEMANDE_GG")
.RefreshTable
End With
End With
"larnoum" <larnoum@discussions.microsoft.com> a écrit dans le message de news:
098136E4-BB94-4EF8-B1A9-3F7ABE744EB4@microsoft.com...
Bonjour,
Voici mon Pb:
Dans un classeur Excel97 je récupère par lien ODBC, dans une feuille
masquée, des données d'une base. Puis dans une autre feuille, celle-ci
affichée, je fais ma mise à jour des tableaux croisés dynamiques lorsque
j'active celle-ci. Mon code est le suivant :
Private Sub Worksheet_Activate()
With ThisWorkbook.Sheets("Suivi_Demandé_Réalisé")
With ThisWorkbook.Sheets("BdD_PDC")
If .Visible = False Then .Visible = True
ThisWorkbook.Sheets("BdD_PDC").Select
Application.GoTo Reference:="DE_BdD_PDC"
Selection.QueryTable.Refresh BackgroundQuery:úlse
.Visible = False
Application.MaxChange = 0.001
ActiveWorkbook.PrecisionAsDisplayed = False
Calculate
End With
ActiveSheet.PivotTables("TCD_REALISE_DEMANDE_GG").RefreshTable
End With
Range("A1").Select
End Sub
Ma procédure se bloque sur :
ActiveSheet.PivotTables("TCD_REALISE_DEMANDE_GG").RefreshTable
De ce que je comprends il a perdu le focus sur ma feuille active.
Quelques explications :
"Suivi_Demandé_Réalisé" = la feuille active
"BdD_PDC" = la feuille masquée où je récupère les données externes par liens
ODBC
"DE_BdD_PDC" = mes données externes que je mets à jour
"TCD_REALISE_DEMANDE_GG" = mon tableau croisé dynamique que je mets à jour
Quelqu'un pourrait-il m'aider ? Cela fait 2 heures que je suis sur ce Pb.
Merci par avance
--
Pierre
Merci MichDenis, Cela fonctionne comme je le souhaitais -- Pierre
Si tu penses qu'il a perdu le nord... pourquoi ne pas spécifier sur quelle feuille se retrouve ton PivotTable ?
au lieu de : ActiveSheet.PivotTables("TCD_REALISE_DEMANDE_GG").RefreshTable
utilise : With Worksheets("NomDeLaFeuille") With .PivotTables("TCD_REALISE_DEMANDE_GG") .RefreshTable End With End With
"larnoum" a écrit dans le message de news:
Bonjour, Voici mon Pb: Dans un classeur Excel97 je récupère par lien ODBC, dans une feuille masquée, des données d'une base. Puis dans une autre feuille, celle-ci affichée, je fais ma mise à jour des tableaux croisés dynamiques lorsque j'active celle-ci. Mon code est le suivant :
Private Sub Worksheet_Activate() With ThisWorkbook.Sheets("Suivi_Demandé_Réalisé") With ThisWorkbook.Sheets("BdD_PDC") If .Visible = False Then .Visible = True ThisWorkbook.Sheets("BdD_PDC").Select Application.GoTo Reference:="DE_BdD_PDC" Selection.QueryTable.Refresh BackgroundQuery:úlse .Visible = False Application.MaxChange = 0.001 ActiveWorkbook.PrecisionAsDisplayed = False Calculate End With ActiveSheet.PivotTables("TCD_REALISE_DEMANDE_GG").RefreshTable End With Range("A1").Select End Sub
Ma procédure se bloque sur : ActiveSheet.PivotTables("TCD_REALISE_DEMANDE_GG").RefreshTable De ce que je comprends il a perdu le focus sur ma feuille active. Quelques explications : "Suivi_Demandé_Réalisé" = la feuille active "BdD_PDC" = la feuille masquée où je récupère les données externes par liens ODBC "DE_BdD_PDC" = mes données externes que je mets à jour "TCD_REALISE_DEMANDE_GG" = mon tableau croisé dynamique que je mets à jour Quelqu'un pourrait-il m'aider ? Cela fait 2 heures que je suis sur ce Pb. Merci par avance -- Pierre
