TCD excel 97 2000

[valerie]

Bonjour,

Je suis désespéree et si une personne pouvait me venir en aide ce serait fantastique.
Voila, je réalise un TCD en VBA avec excel 2000. Tout ce passe comme il faut et surtout comme je le veux.
Malheureusement, mon fichier doit etre aussi utilisable pour la version excel 97 anglaise. Et la les problèmes commencent. Il construit bien le TCD mais ne fait aucune modification du type (saut de ligne, agrandissement de certaines cellules, mise en forme du rapport). toutes ces fonctionnalités ne sont apparement pas disponible d'après ce qu'un utilisateur m'a dit.
Le problème est aussi que les nom de certaines cellules changent. Par exemple, la cellule Somme Duree va s'appeler sum of Duree an anglais... Je ne sais pas comment faire pour regler ce problème et si c'est faisable?

voici mon code :


ActiveSheet.PivotTableWizard _
SourceType:=xlDatabase, _
SourceData:="recup_data!R6C1:R" & nombre & "C8", _
TableDestination:=Range("H4"), _
TableName:="TCD"

'ajout des champs
With ActiveSheet.PivotTables("TCD").PivotFields("SYSTEME")
.Orientation = xlRowField
.Position = 1
End With

With ActiveSheet.PivotTables("TCD").PivotFields("TACHE")
.Orientation = xlRowField
.Position = 2
End With
With ActiveSheet.PivotTables("TCD").PivotFields("DUREE")
.Orientation = xlDataField
.Position = 1
End With


'ajout d'une ligne entre chaque systeme
With ActiveSheet.PivotTables("TCD").PivotFields("SYSTEME")
.LayoutBlankLine = True
.LayoutForm = xlOutline
End With

'pas de sous totaux et de totaux
ActiveSheet.PivotTables("TCD").PivotFields("TACHE").Subtotals = Array(False, False, False, False, False, False, False, False, False, False, False, False)
'ActiveSheet.PivotTables("TCD").ColumnGrand = False

'change le nom des colonnes et on dit que l'on ne veut pas de totaux
ActiveSheet.PivotTables("TCD").PivotFields("SYSTEME").Name = "SYSTEM"
ActiveSheet.PivotTables("TCD").PivotFields("TACHE").Name = "TASKS"
ActiveSheet.PivotTables("TCD").PivotFields("Somme DUREE").Name = "Time (hours)"
ActiveSheet.PivotTables("TCD").PivotFields("SYSTEM").SubtotalName = "Total (hours)"

'on agrandi la colonne I qui recoit les taches : pour etre homogène
Columns("I:I").Select
Selection.ColumnWidth = 40

'on change le format du tableau choisir entre le 6 ou le 8
ActiveSheet.PivotTables("TCD").Format xlReport8



merci d'avance,

Valérie

 

[Dan]

Bonsoir Valérie,

concernant la version anglaise et française, tu ne pourras pas trouver une solution car il y acertaines incompatibilité (sum, somme, total, ...)

toutefois je peux peut-être te trouver une soluce mais j'aimerais disposer de ton fichier (zippé bien sûr !) (! sous excel 97).

dans l'attente de te lire

@+

Dan

 

[Franck]

Salut,

moi aussi j'ai le même problème, je doit adapter un TCD pour Excel 97, 2000 et 2002 (versions françaises).
Excel créé automatiquement les colonnes nommées Somme durée sous 2000 qui devient Somme de durée sous 2002.
Pour la version 97, je ne me suis pas encore penché dessus.

Remarque : la création de plusieurs executables n'est pas viable.

Si quelqu'un trouve une solution je suis preneur. Bien sur je mettrais la mienne à votre disposition si je la trouve.

+

 

[Franck]

Salut,

la seule solution que j'ai trouvée c'est de faire une recherche de "Somme de "et de le remplacer en fonction de la version d'Excel.

Cependant ce n'est pas très propre et cela reste de la bidouille.

Code :

sExcelVersion = Val(xWB.Application.Version)
'MsgBox (sExcelVersion)

Rows(ligne_titre).Select

Select Case sExcelVersion
Case 10 'Excel 2002
Selection.Replace What:=gsVersion_2002, Replacement:="_", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Case 9 'Excel 2000
Selection.Replace What:=gsVersion_2000_97, Replacement:="_", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Case 8 'Excel 97
Selection.Replace What:=gsVersion_2000_97, Replacement:="_", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
End Select
End If

Variables :
gsVersion_2002 = "Somme de "
gsVersion_2000_97 = "Somme "