OVH Cloud OVH Cloud

erreur execution 5 avec une macro

28 réponses
Avatar
sleg
Bonjour,

j'ai un probleme avec lamacro ci-dessous ( trouv=E9e ici)

voici mon probl=E8me, si j'utilise cette macro dans un fichier excel
avec des tcd ayant comme source des fichiers excel ouvert tout va
bien, en revanche si je souhaite utiliser cette macro dans un fichier
excel avec des tcd ayant comme source un bdd Access j'ai une erreur
d=92ex=E9cution 5" argument ou appel de proc=E9dure incorrecte".

une id=E9e ??
les nom des tcd sont ok. et la je vois pas.

merci de votre aide.

macro :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Selection_Liste As String
With ActiveSheet
Selection_Liste =3D .PivotTables("Tableau crois=E9
dynamique1").PivotFields("Mois Reporting").CurrentPage
.PivotTables("Tableau crois=E9 dynamique2").PivotFields("Mois
Reporting").CurrentPage =3D Selection_Liste
End With
End Sub

10 réponses

1 2 3
Avatar
DanielCo
Telle que tu l'as posté, la macro se déclenche lorsque tu sélectionnes
une autre cellule; est-ce que le problème se produit quand tu
sélectionnes une cellule quelconque extérieure à tes TCD ? Si tu mets
un point d'arrêt sur la première instruction de la macro, que tu
déclenches celle-ci, et qu'ensuite tu poursuives son exécution ligne à
ligne, est-ce que tu as toujours le problème ?
Daniel


non si je rafraichi mes tcd manuellement cela fonctionne impec.



On 29 mar, 09:20, DanielCo wrote:
Bonjour,
Si tu fais la manip manuellement, est-ce que tu as une erreur ? Si tu
rapatries les donn es dans Excel et que tu construis les 2 TCD dessus,
est-ce que tu as la m me erreur ?
Daniel







BOnjour,



oui c la meme source et oui le meme format
On 28 mar, 17:39, isabelle wrote:
bonjour sleg,





est ce que la source est la m me pour les 2 tcd ?
si non, est ce que les champs "Mois Reporting" de chaque source est au
m me format ?





isabelle
------------------------------------------------------------------
Le 2011-03-28 09:29, sleg a crit :





le probleme pourrait il venir d'un acces a la bdd en lecture ??
On 28 mar, 13:34, DanielCo wrote:
Mes deux TCD sont construits sur des bases Access.
Daniel









oui j'ai juste le probleme avec comme source une bdd access entre
fichier excel a fonctionne nickel.
Avatar
sleg
non si je clic dans une autre cellule ça ne plante pas. c au moment ou
je change le "mois reporting"



On 29 mar, 11:45, DanielCo wrote:
Telle que tu l'as post , la macro se d clenche lorsque tu s lectionnes
une autre cellule; est-ce que le probl me se produit quand tu
s lectionnes une cellule quelconque ext rieure tes TCD ? Si tu mets
un point d'arr t sur la premi re instruction de la macro, que tu
d clenches celle-ci, et qu'ensuite tu poursuives son ex cution ligne
ligne, est-ce que tu as toujours le probl me ?
Daniel







> non si je rafraichi mes tcd manuellement cela fonctionne impec.

> On 29 mar, 09:20, DanielCo wrote:
>> Bonjour,
>> Si tu fais la manip manuellement, est-ce que tu as une erreur ? Si tu
>> rapatries les donn es dans Excel et que tu construis les 2 TCD dessus,
>> est-ce que tu as la m me erreur ?
>> Daniel

>>> BOnjour,

>>> oui c la meme source et oui le meme format
>>> On 28 mar, 17:39, isabelle wrote:
>>>> bonjour sleg,

>>>> est ce que la source est la m me pour les 2 tcd ?
>>>> si non, est ce que les champs "Mois Reporting" de chaque source est au
>>>> m me format ?

>>>> isabelle
>>>> ------------------------------------------------------------------
>>>> Le 2011-03-28 09:29, sleg a crit :

>>>>> le probleme pourrait il venir d'un acces a la bdd en lecture ??
>>>>> On 28 mar, 13:34, DanielCo wrote:
>>>>>> Mes deux TCD sont construits sur des bases Access.
>>>>>> Daniel

>>>>>>> oui j'ai juste le probleme avec comme source une bdd access entre
>>>>>>> fichier excel a fonctionne nickel.
Avatar
DanielCo
Je suis sec. Est-ce que tu pourrais mettre sur ci-joint le classeur et
la base sans les données confidentielles ?
Daniel


non si je clic dans une autre cellule ça ne plante pas. c au moment ou
je change le "mois reporting"
Avatar
sleg
VOici la bdd

http://www.cijoint.fr/cjlink.php?file=cj201103/cijHZ8DzGI.zip
impossible de compresse suffissament le xlsm donc voici la bdd je fais
des tcd sur la table incidents avec comme filtre code sous-lor re-
qualifier + mois de reporting et ma macro devrais mettre a jour les
mois reporting

merci de votre aide a toutes et tous


On 29 mar, 12:29, DanielCo wrote:
Je suis sec. Est-ce que tu pourrais mettre sur ci-joint le classeur et
la base sans les données confidentielles ?
Daniel







> non si je clic dans une autre cellule ça ne plante pas. c au moment o u
> je change le "mois reporting"
Avatar
MichD
Bonjour,

As-tu essayé d'exécuter ta macro en ajoutant en début de procédure :

Application.EnableEvents = False

Et à la fin de la macro :

Application.EnableEvents = True


MichD
--------------------------------------------
Avatar
sleg
il ne se passe rien en selectionnant le mois reporting dans le tcd 1
et pas d'erreur.




la macro:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Selection_Liste As String
Application.EnableEvents = False
With ActiveSheet
Selection_Liste = .PivotTables("Tableau croisé
dynamique1").PivotFields("Mois Reporting").CurrentPage
.PivotTables("Tableau croisé dynamique2").PivotFields("Mois
Reporting").CurrentPage = Selection_Liste
.PivotTables("Tableau croisé dynamique3").PivotFields("Mois
Reporting").CurrentPage = Selection_Liste
.PivotTables("Tableau croisé dynamique4").PivotFields("Mois
Reporting").CurrentPage = Selection_Liste
.PivotTables("Tableau croisé dynamique5").PivotFields("Mois
Reporting").CurrentPage = Selection_Liste
.PivotTables("Tableau croisé dynamique6").PivotFields("Mois
Reporting").CurrentPage = Selection_Liste
.PivotTables("Tableau croisé dynamique7").PivotFields("Mois
Reporting").CurrentPage = Selection_Liste
.PivotTables("Tableau croisé dynamique8").PivotFields("Mois
Reporting").CurrentPage = Selection_Liste
.PivotTables("Tableau croisé dynamique9").PivotFields("Mois
Reporting").CurrentPage = Selection_Liste
.PivotTables("Tableau croisé dynamique10").PivotFields("Mois
Reporting").CurrentPage = Selection_Liste
.PivotTables("Tableau croisé dynamique11").PivotFields("Mois
Reporting").CurrentPage = Selection_Liste
.PivotTables("Tableau croisé dynamique12").PivotFields("Mois
Reporting").CurrentPage = Selection_Liste
.PivotTables("Tableau croisé dynamique13").PivotFields("Mois
Reporting").CurrentPage = Selection_Liste
.PivotTables("Tableau croisé dynamique14").PivotFields("Mois
Reporting").CurrentPage = Selection_Liste
.PivotTables("Tableau croisé dynamique15").PivotFields("Mois
Reporting").CurrentPage = Selection_Liste
.PivotTables("Tableau croisé dynamique16").PivotFields("Mois
Reporting").CurrentPage = Selection_Liste
.PivotTables("Tableau croisé dynamique17").PivotFields("Mois
Reporting").CurrentPage = Selection_Liste
.PivotTables("Tableau croisé dynamique18").PivotFields("Mois
Reporting").CurrentPage = Selection_Liste
.PivotTables("Tableau croisé dynamique19").PivotFields("Mois
Reporting").CurrentPage = Selection_Liste
.PivotTables("Tableau croisé dynamique20").PivotFields("Mois
Reporting").CurrentPage = Selection_Liste
.PivotTables("Tableau croisé dynamique21").PivotFields("Mois
Reporting").CurrentPage = Selection_Liste
.PivotTables("Tableau croisé dynamique22").PivotFields("Mois
Reporting").CurrentPage = Selection_Liste
.PivotTables("Tableau croisé dynamique23").PivotFields("Mois
Reporting").CurrentPage = Selection_Liste
.PivotTables("Tableau croisé dynamique24").PivotFields("Mois
Reporting").CurrentPage = Selection_Liste
.PivotTables("Tableau croisé dynamique25").PivotFields("Mois
Reporting").CurrentPage = Selection_Liste
.PivotTables("Tableau croisé dynamique26").PivotFields("Mois
Reporting").CurrentPage = Selection_Liste
End With
Application.EnableEvents = True
End Sub




On 29 mar, 13:29, "MichD" wrote:
Bonjour,

As-tu essay d'ex cuter ta macro en ajoutant en d but de proc dure :

Application.EnableEvents = False

Et la fin de la macro :

Application.EnableEvents = True

MichD
--------------------------------------------
Avatar
MichD
As-tu essayé quelque chose comme ceci :

(Je n'ai pas testé...)
'-----------------------------------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Pt As PivotTable, ModCalcul As String
Dim Selection_Liste As String

Application.ScreenUpdating = False
Application.EnableEvents = False
ModCalcul = Application.Calculation
Application.Calculation = xlCalculationManual

With ActiveSheet
Selection_Liste = .PivotTables("Tableau croisé dynamique1"). _
PivotFields("Mois Reporting").CurrentPage
For Each Pt In .PivotTables
With Pt
.PivotFields("Mois Reporting ").CurrentPage = Selection_Liste
.Update
End With
Next
End With

Application.Calculation = ModCalcul
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub
'-----------------------------------------------


MichD
--------------------------------------------
"sleg" a écrit dans le message de groupe de discussion :


il ne se passe rien en selectionnant le mois reporting dans le tcd 1
et pas d'erreur.




la macro:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Selection_Liste As String
Application.EnableEvents = False
With ActiveSheet
Selection_Liste = .PivotTables("Tableau croisé
dynamique1").PivotFields("Mois Reporting").CurrentPage
.PivotTables("Tableau croisé dynamique2").PivotFields("Mois
Reporting").CurrentPage = Selection_Liste
.PivotTables("Tableau croisé dynamique3").PivotFields("Mois
Reporting").CurrentPage = Selection_Liste
.PivotTables("Tableau croisé dynamique4").PivotFields("Mois
Reporting").CurrentPage = Selection_Liste
.PivotTables("Tableau croisé dynamique5").PivotFields("Mois
Reporting").CurrentPage = Selection_Liste
.PivotTables("Tableau croisé dynamique6").PivotFields("Mois
Reporting").CurrentPage = Selection_Liste
.PivotTables("Tableau croisé dynamique7").PivotFields("Mois
Reporting").CurrentPage = Selection_Liste
.PivotTables("Tableau croisé dynamique8").PivotFields("Mois
Reporting").CurrentPage = Selection_Liste
.PivotTables("Tableau croisé dynamique9").PivotFields("Mois
Reporting").CurrentPage = Selection_Liste
.PivotTables("Tableau croisé dynamique10").PivotFields("Mois
Reporting").CurrentPage = Selection_Liste
.PivotTables("Tableau croisé dynamique11").PivotFields("Mois
Reporting").CurrentPage = Selection_Liste
.PivotTables("Tableau croisé dynamique12").PivotFields("Mois
Reporting").CurrentPage = Selection_Liste
.PivotTables("Tableau croisé dynamique13").PivotFields("Mois
Reporting").CurrentPage = Selection_Liste
.PivotTables("Tableau croisé dynamique14").PivotFields("Mois
Reporting").CurrentPage = Selection_Liste
.PivotTables("Tableau croisé dynamique15").PivotFields("Mois
Reporting").CurrentPage = Selection_Liste
.PivotTables("Tableau croisé dynamique16").PivotFields("Mois
Reporting").CurrentPage = Selection_Liste
.PivotTables("Tableau croisé dynamique17").PivotFields("Mois
Reporting").CurrentPage = Selection_Liste
.PivotTables("Tableau croisé dynamique18").PivotFields("Mois
Reporting").CurrentPage = Selection_Liste
.PivotTables("Tableau croisé dynamique19").PivotFields("Mois
Reporting").CurrentPage = Selection_Liste
.PivotTables("Tableau croisé dynamique20").PivotFields("Mois
Reporting").CurrentPage = Selection_Liste
.PivotTables("Tableau croisé dynamique21").PivotFields("Mois
Reporting").CurrentPage = Selection_Liste
.PivotTables("Tableau croisé dynamique22").PivotFields("Mois
Reporting").CurrentPage = Selection_Liste
.PivotTables("Tableau croisé dynamique23").PivotFields("Mois
Reporting").CurrentPage = Selection_Liste
.PivotTables("Tableau croisé dynamique24").PivotFields("Mois
Reporting").CurrentPage = Selection_Liste
.PivotTables("Tableau croisé dynamique25").PivotFields("Mois
Reporting").CurrentPage = Selection_Liste
.PivotTables("Tableau croisé dynamique26").PivotFields("Mois
Reporting").CurrentPage = Selection_Liste
End With
Application.EnableEvents = True
End Sub




On 29 mar, 13:29, "MichD" wrote:
Bonjour,

As-tu essay d'ex cuter ta macro en ajoutant en d but de proc dure :

Application.EnableEvents = False

Et la fin de la macro :

Application.EnableEvents = True

MichD
--------------------------------------------
Avatar
MichD
Modifie cette section comme suit :


With ActiveSheet
Selection_Liste = .PivotTables("Tableau croisé dynamique1"). _
PivotFields("Mois Reporting").CurrentPage
For Each Pt In .PivotTables
With Pt
.PivotFields("Mois Reporting").ClearAllFilters
.PivotFields("Mois Reporting").CurrentPage = Selection_Liste
End With
Next
End With



MichD
--------------------------------------------
"MichD" a écrit dans le message de groupe de discussion : imsnva$i9d$

As-tu essayé quelque chose comme ceci :

(Je n'ai pas testé...)
'-----------------------------------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Pt As PivotTable, ModCalcul As String
Dim Selection_Liste As String

Application.ScreenUpdating = False
Application.EnableEvents = False
ModCalcul = Application.Calculation
Application.Calculation = xlCalculationManual

With ActiveSheet
Selection_Liste = .PivotTables("Tableau croisé dynamique1"). _
PivotFields("Mois Reporting").CurrentPage
For Each Pt In .PivotTables
With Pt
.PivotFields("Mois Reporting ").CurrentPage = Selection_Liste
.Update
End With
Next
End With

Application.Calculation = ModCalcul
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub
'-----------------------------------------------


MichD
--------------------------------------------
"sleg" a écrit dans le message de groupe de discussion :


il ne se passe rien en selectionnant le mois reporting dans le tcd 1
et pas d'erreur.




la macro:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Selection_Liste As String
Application.EnableEvents = False
With ActiveSheet
Selection_Liste = .PivotTables("Tableau croisé
dynamique1").PivotFields("Mois Reporting").CurrentPage
.PivotTables("Tableau croisé dynamique2").PivotFields("Mois
Reporting").CurrentPage = Selection_Liste
.PivotTables("Tableau croisé dynamique3").PivotFields("Mois
Reporting").CurrentPage = Selection_Liste
.PivotTables("Tableau croisé dynamique4").PivotFields("Mois
Reporting").CurrentPage = Selection_Liste
.PivotTables("Tableau croisé dynamique5").PivotFields("Mois
Reporting").CurrentPage = Selection_Liste
.PivotTables("Tableau croisé dynamique6").PivotFields("Mois
Reporting").CurrentPage = Selection_Liste
.PivotTables("Tableau croisé dynamique7").PivotFields("Mois
Reporting").CurrentPage = Selection_Liste
.PivotTables("Tableau croisé dynamique8").PivotFields("Mois
Reporting").CurrentPage = Selection_Liste
.PivotTables("Tableau croisé dynamique9").PivotFields("Mois
Reporting").CurrentPage = Selection_Liste
.PivotTables("Tableau croisé dynamique10").PivotFields("Mois
Reporting").CurrentPage = Selection_Liste
.PivotTables("Tableau croisé dynamique11").PivotFields("Mois
Reporting").CurrentPage = Selection_Liste
.PivotTables("Tableau croisé dynamique12").PivotFields("Mois
Reporting").CurrentPage = Selection_Liste
.PivotTables("Tableau croisé dynamique13").PivotFields("Mois
Reporting").CurrentPage = Selection_Liste
.PivotTables("Tableau croisé dynamique14").PivotFields("Mois
Reporting").CurrentPage = Selection_Liste
.PivotTables("Tableau croisé dynamique15").PivotFields("Mois
Reporting").CurrentPage = Selection_Liste
.PivotTables("Tableau croisé dynamique16").PivotFields("Mois
Reporting").CurrentPage = Selection_Liste
.PivotTables("Tableau croisé dynamique17").PivotFields("Mois
Reporting").CurrentPage = Selection_Liste
.PivotTables("Tableau croisé dynamique18").PivotFields("Mois
Reporting").CurrentPage = Selection_Liste
.PivotTables("Tableau croisé dynamique19").PivotFields("Mois
Reporting").CurrentPage = Selection_Liste
.PivotTables("Tableau croisé dynamique20").PivotFields("Mois
Reporting").CurrentPage = Selection_Liste
.PivotTables("Tableau croisé dynamique21").PivotFields("Mois
Reporting").CurrentPage = Selection_Liste
.PivotTables("Tableau croisé dynamique22").PivotFields("Mois
Reporting").CurrentPage = Selection_Liste
.PivotTables("Tableau croisé dynamique23").PivotFields("Mois
Reporting").CurrentPage = Selection_Liste
.PivotTables("Tableau croisé dynamique24").PivotFields("Mois
Reporting").CurrentPage = Selection_Liste
.PivotTables("Tableau croisé dynamique25").PivotFields("Mois
Reporting").CurrentPage = Selection_Liste
.PivotTables("Tableau croisé dynamique26").PivotFields("Mois
Reporting").CurrentPage = Selection_Liste
End With
Application.EnableEvents = True
End Sub




On 29 mar, 13:29, "MichD" wrote:
Bonjour,

As-tu essay d'ex cuter ta macro en ajoutant en d but de proc dure :

Application.EnableEvents = False

Et la fin de la macro :

Application.EnableEvents = True

MichD
--------------------------------------------
Avatar
sleg
et la ça plante sur

cette ligne

.PivotFields("Mois Reporting").CurrentPage = Selection_Liste

je conprends pas .....
Avatar
DanielCo
La table "incidents" est vide.
Daniel


VOici la bdd

http://www.cijoint.fr/cjlink.php?file=cj201103/cijHZ8DzGI.zip
impossible de compresse suffissament le xlsm donc voici la bdd je fais
des tcd sur la table incidents avec comme filtre code sous-lor re-
qualifier + mois de reporting et ma macro devrais mettre a jour les
mois reporting

merci de votre aide a toutes et tous


On 29 mar, 12:29, DanielCo wrote:
Je suis sec. Est-ce que tu pourrais mettre sur ci-joint le classeur et
la base sans les données confidentielles ?
Daniel







non si je clic dans une autre cellule ça ne plante pas. c au moment ou
je change le "mois reporting"
1 2 3