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
J'ai fait une légère modification à cette ligne de code : .ClearAllFilters dans cette section du code ...
J'ai fait cette fois un test simple et ça fonctionne !
-------------------------------------------- With ActiveSheet Selection_Liste = .PivotTables("Tableau croisé dynamique1"). _ PivotFields("Mois Reporting").CurrentPage For Each Pt In .PivotTables With Pt .ClearAllFilters .PivotFields("Mois Reporting").CurrentPage = Selection_Liste End With Next End With
J'ai fait une légère modification à cette ligne de code :
.ClearAllFilters
dans cette section du code ...
J'ai fait cette fois un test simple et ça fonctionne !
--------------------------------------------
With ActiveSheet
Selection_Liste = .PivotTables("Tableau croisé dynamique1"). _
PivotFields("Mois Reporting").CurrentPage
For Each Pt In .PivotTables
With Pt
.ClearAllFilters
.PivotFields("Mois Reporting").CurrentPage = Selection_Liste
End With
Next
End With
J'ai fait une légère modification à cette ligne de code : .ClearAllFilters dans cette section du code ...
J'ai fait cette fois un test simple et ça fonctionne !
-------------------------------------------- With ActiveSheet Selection_Liste = .PivotTables("Tableau croisé dynamique1"). _ PivotFields("Mois Reporting").CurrentPage For Each Pt In .PivotTables With Pt .ClearAllFilters .PivotFields("Mois Reporting").CurrentPage = Selection_Liste End With Next End With
>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"
normal je ne pouvais pas mettre les infos
bon je continuerais de regarde demain
On 29 mar, 16:45, DanielCo <dcolardelle...@free.fr> wrote:
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 <dcolardelle...@free.fr> 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"
>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"
DanielCo
Par contre, si tu deux niveaux de filtre, tu ne peux pas les mettre dans une variable string.
normal je ne pouvais pas mettre les infos
bon je continuerais de regarde demain
On 29 mar, 16:45, DanielCo wrote:
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"
Par contre, si tu deux niveaux de filtre, tu ne peux pas les mettre
dans une variable string.
normal je ne pouvais pas mettre les infos
bon je continuerais de regarde demain
On 29 mar, 16:45, DanielCo <dcolardelle...@free.fr> wrote:
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 <dcolardelle...@free.fr> 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"
Par contre, si tu deux niveaux de filtre, tu ne peux pas les mettre dans une variable string.
normal je ne pouvais pas mettre les infos
bon je continuerais de regarde demain
On 29 mar, 16:45, DanielCo wrote:
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"
sleg
je regarderais pour mettre des infos demain
On 29 mar, 16:52, sleg wrote:
normal je ne pouvais pas mettre les infos
bon je continuerais de regarde demain
On 29 mar, 16:45, DanielCo wrote:
> 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 fai s > > 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 mome nt ou > >>> je change le "mois reporting"
je regarderais pour mettre des infos demain
On 29 mar, 16:52, sleg <bastien...@gmail.com> wrote:
normal je ne pouvais pas mettre les infos
bon je continuerais de regarde demain
On 29 mar, 16:45, DanielCo <dcolardelle...@free.fr> wrote:
> 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 fai s
> > 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 <dcolardelle...@free.fr> 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 mome nt ou
> >>> je change le "mois reporting"
> >http://www.cijoint.fr/cjlink.php?file=cj201103/cijHZ8DzGI.zip > > impossible de compresse suffissament le xlsm donc voici la bdd je fai s > > 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 mome nt ou > >>> je change le "mois reporting"
DanielCo
Au temps pour moi. Daniel
Par contre, si tu deux niveaux de filtre, tu ne peux pas les mettre dans une variable string.
Au temps pour moi.
Daniel
Par contre, si tu deux niveaux de filtre, tu ne peux pas les mettre dans une
variable string.
Par contre, si tu deux niveaux de filtre, tu ne peux pas les mettre dans une variable string.
DanielCo
Le problème doit venir du fait que tu passes des dates au format jj/mm/aaaa alors que VBA les attend au format mm/jj/aaaa. Le code suivant contourne le problème :
Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim Selection_Liste As PivotItem With ActiveSheet Set Selection_Liste = .PivotTables("Tableau croisé dynamique1").PivotFields("Mois Reporting").CurrentPage .PivotTables("Tableau croisé dynamique2").PivotFields("Mois Reporting").CurrentPage = _ Selection_Liste.SourceNameStandard End With End Sub
Daniel
normal je ne pouvais pas mettre les infos
bon je continuerais de regarde demain
On 29 mar, 16:45, DanielCo wrote:
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"
Le problème doit venir du fait que tu passes des dates au format
jj/mm/aaaa alors que VBA les attend au format mm/jj/aaaa. Le code
suivant contourne le problème :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Selection_Liste As PivotItem
With ActiveSheet
Set Selection_Liste = .PivotTables("Tableau croisé
dynamique1").PivotFields("Mois Reporting").CurrentPage
.PivotTables("Tableau croisé dynamique2").PivotFields("Mois
Reporting").CurrentPage = _
Selection_Liste.SourceNameStandard
End With
End Sub
Daniel
normal je ne pouvais pas mettre les infos
bon je continuerais de regarde demain
On 29 mar, 16:45, DanielCo <dcolardelle...@free.fr> wrote:
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 <dcolardelle...@free.fr> 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"
Le problème doit venir du fait que tu passes des dates au format jj/mm/aaaa alors que VBA les attend au format mm/jj/aaaa. Le code suivant contourne le problème :
Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim Selection_Liste As PivotItem With ActiveSheet Set Selection_Liste = .PivotTables("Tableau croisé dynamique1").PivotFields("Mois Reporting").CurrentPage .PivotTables("Tableau croisé dynamique2").PivotFields("Mois Reporting").CurrentPage = _ Selection_Liste.SourceNameStandard End With End Sub
Daniel
normal je ne pouvais pas mettre les infos
bon je continuerais de regarde demain
On 29 mar, 16:45, DanielCo wrote:
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"
sleg
bonjour,
et comment faire ?
merci de votre aide.
On 29 mar, 16:54, DanielCo wrote:
Par contre, si tu deux niveaux de filtre, tu ne peux pas les mettre dans une variable string.
> normal je ne pouvais pas mettre les infos
> bon je continuerais de regarde demain
> On 29 mar, 16:45, DanielCo wrote: >> 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 fai s >>> 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 mome nt ou >>>>> je change le "mois reporting"
bonjour,
et comment faire ?
merci de votre aide.
On 29 mar, 16:54, DanielCo <dcolardelle...@free.fr> wrote:
Par contre, si tu deux niveaux de filtre, tu ne peux pas les mettre
dans une variable string.
> normal je ne pouvais pas mettre les infos
> bon je continuerais de regarde demain
> On 29 mar, 16:45, DanielCo <dcolardelle...@free.fr> wrote:
>> 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 fai s
>>> 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 <dcolardelle...@free.fr> 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 mome nt ou
>>>>> je change le "mois reporting"
Par contre, si tu deux niveaux de filtre, tu ne peux pas les mettre dans une variable string.
> normal je ne pouvais pas mettre les infos
> bon je continuerais de regarde demain
> On 29 mar, 16:45, DanielCo wrote: >> 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 fai s >>> 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 mome nt ou >>>>> je change le "mois reporting"
DanielCo
Bonjour, Regarde le post du 29/03/2001 17:35:33. Daniel
bonjour,
et comment faire ?
merci de votre aide.
On 29 mar, 16:54, DanielCo wrote:
Par contre, si tu deux niveaux de filtre, tu ne peux pas les mettre dans une variable string.
normal je ne pouvais pas mettre les infos bon je continuerais de regarde demain On 29 mar, 16:45, DanielCo wrote:
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"
Bonjour,
Regarde le post du 29/03/2001 17:35:33.
Daniel
bonjour,
et comment faire ?
merci de votre aide.
On 29 mar, 16:54, DanielCo <dcolardelle...@free.fr> wrote:
Par contre, si tu deux niveaux de filtre, tu ne peux pas les mettre
dans une variable string.
normal je ne pouvais pas mettre les infos
bon je continuerais de regarde demain
On 29 mar, 16:45, DanielCo <dcolardelle...@free.fr> wrote:
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 <dcolardelle...@free.fr> 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"
Bonjour, Regarde le post du 29/03/2001 17:35:33. Daniel
bonjour,
et comment faire ?
merci de votre aide.
On 29 mar, 16:54, DanielCo wrote:
Par contre, si tu deux niveaux de filtre, tu ne peux pas les mettre dans une variable string.
normal je ne pouvais pas mettre les infos bon je continuerais de regarde demain On 29 mar, 16:45, DanielCo wrote:
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"
