Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Paramètre DefaultVersion

Paramètre DefaultVersion

4 réponses
Avatar
Olivier
Bonjour,=20

J'ai un petit soucis avec le param=E8tre suivant dans Excel=20
2000 (en Excel XP, =E7a fonctionne) :
DefaultVersion:=3DxlPivotTableVersion10

ActiveWorkbook.PivotCaches.Add(SourceType:=3DxlDatabase,=20
SourceData:=3D _
src).CreatePivotTable TableDestination:=3D"",=20
TableName _
:=3D"Tableau crois=E9 dynamique2",=20
DefaultVersion:=3DxlPivotTableVersion10

A l'=E9xecution de la macro sous Excel 2000, j'ai le message=20
d'erreur suiavnt : "Argument nomm=E9 introuvable"

Incompatibilit=E9 VBA Excel XP / VBA Excel 2000 ?

Merci
Signaler un problème avec ce contenu

4 réponses

Supprimer
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
Avatar
Denis Michon
Bonjour Olivier,

Essaie ceci ... (je ne l'ai pas testé explicitement )

Tu peux déclarer une variable comme suit :

Ou remplacer directement dans le code :

xlPivotTableVersion10 par xlPivotTableVersionCurrent


'-----------------
Dim t As XlPivotTableVersionList
t = xlPivotTableVersionCurrent

ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, _
SourceData:=src).CreatePivotTable TableDestination:="", TableName _
:="Tableau croisé dynamique2", DefaultVersion:= t
'-----------------


Est-ce que cela résout ton problème ?


Salutations!



"Olivier" a écrit dans le message de news:120d01c3b8b3$2bfe2ac0$
Bonjour,

J'ai un petit soucis avec le paramètre suivant dans Excel
2000 (en Excel XP, ça fonctionne) :
DefaultVersion:=xlPivotTableVersion10

ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase,
SourceData:= _
src).CreatePivotTable TableDestination:="",
TableName _
:="Tableau croisé dynamique2",
DefaultVersion:=xlPivotTableVersion10

A l'éxecution de la macro sous Excel 2000, j'ai le message
d'erreur suiavnt : "Argument nommé introuvable"

Incompatibilité VBA Excel XP / VBA Excel 2000 ?

Merci
Avatar
Olivier
Non malheureusement, j'ai testé ta solution mais j'obtiens
toujours le même message d'erreur :

"Erreur de compilation : Argument nommé introuvable" sur
DefaultVersion...

Merci

-----Message d'origine-----
Bonjour Olivier,

Essaie ceci ... (je ne l'ai pas testé explicitement )

Tu peux déclarer une variable comme suit :

Ou remplacer directement dans le code :

xlPivotTableVersion10 par xlPivotTableVersionCurrent


'-----------------
Dim t As XlPivotTableVersionList
t = xlPivotTableVersionCurrent

ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, _
SourceData:=src).CreatePivotTable TableDestination:="",
TableName _

:="Tableau croisé dynamique2", DefaultVersion:= t
'-----------------


Est-ce que cela résout ton problème ?


Salutations!



"Olivier" a écrit dans le message
de news:120d01c3b8b3$2bfe2ac0$

Bonjour,

J'ai un petit soucis avec le paramètre suivant dans Excel
2000 (en Excel XP, ça fonctionne) :
DefaultVersion:=xlPivotTableVersion10

ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase,
SourceData:= _
src).CreatePivotTable TableDestination:="",
TableName _
:="Tableau croisé dynamique2",
DefaultVersion:=xlPivotTableVersion10

A l'éxecution de la macro sous Excel 2000, j'ai le message
d'erreur suiavnt : "Argument nommé introuvable"

Incompatibilité VBA Excel XP / VBA Excel 2000 ?

Merci


.



Avatar
Michel Gaboly
Bonjour,

Il s'agit d'une propriété introduite avec Excel XP. En effet,
avec Excel 98 (Mac), comme avec Excel 2000(Win),
l'explorateur d'objets n'indique pas DefaultVersion dans
la liste des propriétés de PivotCache.

Si tu as accès à un poste avec Excel XP :

Dans l'environnement VBA, clique sur le point d'interrogation
donnant accès à l'aide, et entre "Nouveautés" (sans les guillemets)
ou "VBA nouveautés".

Avec un peu de chance tu auras accès à une liste des nouveautés
introduites par cette version.


Non malheureusement, j'ai testé ta solution mais j'obtiens
toujours le même message d'erreur :

"Erreur de compilation : Argument nommé introuvable" sur
DefaultVersion...

Merci

-----Message d'origine-----
Bonjour Olivier,

Essaie ceci ... (je ne l'ai pas testé explicitement )

Tu peux déclarer une variable comme suit :

Ou remplacer directement dans le code :

xlPivotTableVersion10 par xlPivotTableVersionCurrent


'-----------------
Dim t As XlPivotTableVersionList
t = xlPivotTableVersionCurrent

ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, _
SourceData:=src).CreatePivotTable TableDestination:="",
TableName _

:="Tableau croisé dynamique2", DefaultVersion:= t
'-----------------


Est-ce que cela résout ton problème ?


Salutations!



"Olivier" a écrit dans le message
de news:120d01c3b8b3$2bfe2ac0$

Bonjour,

J'ai un petit soucis avec le paramètre suivant dans Excel
2000 (en Excel XP, ça fonctionne) :
DefaultVersion:=xlPivotTableVersion10

ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase,
SourceData:= _
src).CreatePivotTable TableDestination:="",
TableName _
:="Tableau croisé dynamique2",
DefaultVersion:=xlPivotTableVersion10

A l'éxecution de la macro sous Excel 2000, j'ai le message
d'erreur suiavnt : "Argument nommé introuvable"

Incompatibilité VBA Excel XP / VBA Excel 2000 ?

Merci


.




--
Cordialement,

Michel Gaboly
http://www.gaboly.com


Avatar
Olivier
Ok, merci Michel

-----Message d'origine-----
Bonjour,

Il s'agit d'une propriété introduite avec Excel XP. En
effet,

avec Excel 98 (Mac), comme avec Excel 2000(Win),
l'explorateur d'objets n'indique pas DefaultVersion dans
la liste des propriétés de PivotCache.

Si tu as accès à un poste avec Excel XP :

Dans l'environnement VBA, clique sur le point
d'interrogation

donnant accès à l'aide, et entre "Nouveautés" (sans les
guillemets)

ou "VBA nouveautés".

Avec un peu de chance tu auras accès à une liste des
nouveautés

introduites par cette version.


Non malheureusement, j'ai testé ta solution mais
j'obtiens


toujours le même message d'erreur :

"Erreur de compilation : Argument nommé introuvable" sur
DefaultVersion...

Merci

-----Message d'origine-----
Bonjour Olivier,

Essaie ceci ... (je ne l'ai pas testé explicitement )

Tu peux déclarer une variable comme suit :

Ou remplacer directement dans le code :

xlPivotTableVersion10 par xlPivotTableVersionCurrent


'-----------------
Dim t As XlPivotTableVersionList
t = xlPivotTableVersionCurrent

ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase,
_



SourceData:=src).CreatePivotTable TableDestination:="",
TableName _

:="Tableau croisé dynamique2", DefaultVersion:= t
'-----------------


Est-ce que cela résout ton problème ?


Salutations!



"Olivier" a écrit dans le
message



de news:120d01c3b8b3$2bfe2ac0$
Bonjour,

J'ai un petit soucis avec le paramètre suivant dans
Excel



2000 (en Excel XP, ça fonctionne) :
DefaultVersion:=xlPivotTableVersion10

ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase,
SourceData:= _
src).CreatePivotTable TableDestination:="",
TableName _
:="Tableau croisé dynamique2",
DefaultVersion:=xlPivotTableVersion10

A l'éxecution de la macro sous Excel 2000, j'ai le
message



d'erreur suiavnt : "Argument nommé introuvable"

Incompatibilité VBA Excel XP / VBA Excel 2000 ?

Merci


.




--
Cordialement,

Michel Gaboly
http://www.gaboly.com


.