Selection de valeurs d'un champ TCD fonctionne sur 2007 mais pas 2010

Selection de valeurs d'un champ TCD fonctionne sur 2007 mais pas 2010 - VB/VBA/VBS - Programmation

Marsh Posté le 19-12-2014 à 19:11:06    

Bonjour,
 
J'ai créé un TCD sur VBA 2003 (qui fonctionne egalement sur VBA 2007). Mais lors du code de la condition (sélection) de valeurs sur un champ de tableau croisé dynamique, il y a une erreur "incompatibilité de type" lors de l'execution de la macro sur VBA 2010 [b](ligne code 131 et 132)

Code :
  1. . J'ai joint le code ci-dessous.
  3. Pourriez vous me dire, SVP, pourquoi cette partie de code ne fonctionne pas sur VBA 2010 alors qu'il n'y a aucun probleme sur les versions 2007 et 2003 ?
  5. En vous remerciant.
  7. [cpp]Sub FFonctionnement()
  8. '
  10. ' Macro enregistrée le 15/01/2013 par b276573
  11. '
  13. '
  14.     'Sheets("intéresst" ).Select
  15.     'ActiveWindow.SelectedSheets.Visible = False
  16.     'And sht.Name <> "nom onglet" à ajouter si on veut laisser un autre onglet egalement
  17.  
  18.    Dim sht As Object
  19.    For Each sht In ActiveWorkbook.Worksheets
  20.    If sht.Name <> "Extraction H - frais fonct" Then sht.Visible = False
  21.    Next sht
  22.    Application.DisplayAlerts = False
  23.    Worksheets("Extraction H - frais fonct" ).Name = "Base"
  24.  
  25.  
  26.     Worksheets("Base" ).Activate
  27.     ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
  28.         "'Base'!R1C1:R65000C22" ).CreatePivotTable TableDestination:="", TableName:= _
  29.         "Tableau croisé dynamique1", DefaultVersion:=xlPivotTableVersion10
  30.     ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1)
  31.     ActiveSheet.Cells(3, 1).Select
  32.     ActiveSheet.PivotTables("Tableau croisé dynamique1" ).AddFields RowFields:= _
  33.         Array("Service Herakles", "centre de frais", "Données" )
  34.            
  35.     With ActiveSheet.PivotTables("Tableau croisé dynamique1" ).PivotFields( _
  36.         "Solde Réalise 2012" )
  37.         .Orientation = xlDataField
  38.         .Caption = "Réalisé 2012"
  39.         .Position = 1
  40.         .Function = xlSum
  41.         .NumberFormat = "#,##0"
  42.     End With
  43.     With ActiveSheet.PivotTables("Tableau croisé dynamique1" ).PivotFields( _
  44.         "Solde Réalisé" )
  45.         .Orientation = xlDataField
  46.         .Caption = "Réalisé 2013"
  47.         .Position = 2
  48.         .Function = xlSum
  49.         .NumberFormat = "#,##0"
  50.     End With
  51.     With ActiveSheet.PivotTables("Tableau croisé dynamique1" ).PivotFields( _
  52.         "ENGAGE" )
  53.         .Orientation = xlDataField
  54.         .Caption = "Engagé"
  55.         .Position = 3
  56.         .Function = xlSum
  57.         .NumberFormat = "#,##0"
  58.     End With
  59.     With ActiveSheet.PivotTables("Tableau croisé dynamique1" ).PivotFields("Actu3 2012" )
  60.         .Orientation = xlDataField
  61.         .Caption = "Actu 2012"
  62.         .Position = 4
  63.         .Function = xlSum
  64.         .NumberFormat = "#,##0"
  65.     End With
  66.        With ActiveSheet.PivotTables("Tableau croisé dynamique1" ).PivotFields("Notif 2013" )
  67.         .Orientation = xlDataField
  68.         .Caption = " Budget 2013"
  69.         .Position = 5
  70.         .Function = xlSum
  71.         .NumberFormat = "#,##0"
  72.     End With
  73.     With ActiveSheet.PivotTables("Tableau croisé dynamique1" ).DataPivotField
  74.         .Orientation = xlColumnField
  75.         .Position = 1
  76.     End With
  77.    
  78.     With ActiveSheet.PivotTables("Tableau croisé dynamique1" ).PivotFields("Etablissement" ): .Orientation = xlPageField: .Position = 1: End With
  79.     With ActiveSheet.PivotTables("Tableau croisé dynamique1" ).PivotFields("Secteur Herakles" ): .Orientation = xlPageField: .Position = 2: End With
  80.     With ActiveSheet.PivotTables("Tableau croisé dynamique1" ).PivotFields("poste" ): .Orientation = xlPageField: .Position = 3: End With
  81.     With ActiveSheet.PivotTables("Tableau croisé dynamique1" ).PivotFields("lib poste" ): .Orientation = xlPageField: .Position = 4: End With
  82.     With ActiveSheet.PivotTables("Tableau croisé dynamique1" ).PivotFields("Sous-section / Centre de frais" ): .Orientation = xlPageField: .Position = 5: End With
  83.     With ActiveSheet.PivotTables("Tableau croisé dynamique1" ).PivotFields("Type de poste" ): .Orientation = xlPageField: .Position = 6: End With
  84.     With ActiveSheet.PivotTables("Tableau croisé dynamique1" ).PivotFields("direction Herakles" ): .Orientation = xlPageField: .Position = 7: End With
  86.     ActiveWorkbook.ShowPivotTableFieldList = False
  87.    
  88.     ActiveWorkbook.ShowPivotTableFieldList = True
  89.     ActiveWorkbook.ShowPivotTableFieldList = False
  90.     Columns("H:H" ).ColumnWidth = 20.14
  91.     Rows("10:10" ).RowHeight = 27.75
  92.     'Range("H10" ) = " Engagé N non " & Chr(10) & "soldé à date"
  93.     'Range("H10" ).Select
  94.     'With Selection
  95.         '.HorizontalAlignment = xlGeneral
  96.         '.VerticalAlignment = xlBottom
  97.         '.WrapText = True
  98.         '.Orientation = 0
  99.         '.AddIndent = False
  100.         '.IndentLevel = 0
  101.         '.ShrinkToFit = False
  102.         '.ReadingOrder = xlContext
  103.         '.MergeCells = False
  104.     'End With
  105.     ActiveSheet.PivotTables("Tableau croisé dynamique1" ).CalculatedFields.Add _
  106.         "Engagé + réel", "='Solde Réalisé' +'ENGAGE'", True
  107.     ActiveSheet.PivotTables("Tableau croisé dynamique1" ).PivotFields("Engagé + réel" ). _
  108.         Orientation = xlDataField
  109.     ActiveSheet.PivotTables("Tableau croisé dynamique1" ).DisplayErrorString = True
  110.     With ActiveSheet.PivotTables("Tableau croisé dynamique1" ).PivotFields( _
  111.         "Somme de Engagé + réel" )
  112.         .NumberFormat = "#,##0"
  113.     End With
  114.     ActiveSheet.PivotTables("Tableau croisé dynamique1" ).DataPivotField.PivotItems( _
  115.         "Somme de Engagé + réel" ).Caption = "Engagé + réalisé"
  116.    
  117.    
  118.    
  119.     ActiveSheet.PivotTables("Tableau croisé dynamique1" ).CalculatedFields.Add _
  120.         "Avancement", "='Solde Réalisé' /'Notif 2013'", True
  121.     ActiveSheet.PivotTables("Tableau croisé dynamique1" ).PivotFields("Avancement" ). _
  122.         Orientation = xlDataField
  123.     ActiveSheet.PivotTables("Tableau croisé dynamique1" ).DisplayErrorString = True
  124.     Range("I12" ).Select
  125.     With ActiveSheet.PivotTables("Tableau croisé dynamique1" ).PivotFields( _
  126.         "Somme de Avancement" )
  127.         .NumberFormat = "0%"
  128.     End With
  129.     ActiveSheet.PivotTables("Tableau croisé dynamique1" ).DataPivotField.PivotItems( _
  130.         "Somme de Avancement" ).Caption = "Avancement %"
  131.  
  132.     Columns("A:A" ).ColumnWidth = 35
  133.    
  134.     Dim AB As PivotItem
  135. For Each AB In ActiveSheet.PivotTables("Tableau croisé dynamique1" ).PivotFields("Service Herakles" ).PivotItems
  136. If (AB.Name <> "(vide)" ) Then
  137. With ActiveSheet.PivotTables("Tableau croisé dynamique1" ).PivotFields( _
  138. "Service Herakles" ).PivotItems(AB.Name).Visible = True
  139. End With
  140. Else:
  141. With ActiveSheet.PivotTables("Tableau croisé dynamique1" ).PivotFields( _
  142. "Service Herakles" )
  143. .PivotItems(AB.Name).Visible = False
  144. End With
  145. End If
  146. Next AB


 
 
Cordialement.
 
 
Yannick


Message édité par yanounou91 le 19-12-2014 à 19:11:47
Reply

Marsh Posté le 19-12-2014 à 19:11:06   

Reply

Marsh Posté le 26-12-2014 à 12:50:22    

 
           Bonjour, bonjour !
 
           Il n'y a rien dans les lignes indiquées provoquant une telle erreur …
           Tu t'es certainement trompé dans les numéros de lignes car déjà l'une d'entre-elles est vide ! :sarcastic:  
           Contrôle dans le code affiché le n° de la ligne déclenchant l'erreur par rapport à la ligne surlignée dans le VBE …
 
           Les TCD ont effectivement évolués dans la version 2010 tout comme dans la version 2013.
           Voir donc chez Microsoft la documentation relative aux nouveautés de la version …
 

Reply

Marsh Posté le 26-12-2014 à 20:55:51    

Salut, même avant ça : par exemple sous 2003 PivotItems(i).Value = (vide) est devenu sous 2007 (blank)


---------------
Myanmar 90/91 : http://gadaud.gerard.free.fr/publi [...] index.html
Reply

Marsh Posté le 27-12-2014 à 10:27:07    

Bonjour,
 
Je vous remercie de m'avoir répondu.
 
Et effectivement, les lignes qui resortent en erreur sont les 137 et 138. Sinon, dans mon post original j'ai oublié de dire que j'avais testé le code avec "Blank" au lieu de "vide" sans que cela résolve le problème.
 
Aussi, ce code fonctionne tres bien sur VAB 2007 et VBA 2003, c'est seulement sur VBA 2010 qu'il y a probleme.
 
Marc L, j'ai essayé de cherché, les différences sur la codification des TCD entre VBA 2007 et 2010 mais je n'ai rien trouvé concernant les filtres sur les valeurs de champs d'un TCD. Et je pense que c'est la que ca pose probleme. Mais merci pour la piste au sujet de la doc Microsoft, il ne me reste qu'à trouver ça.
 
Cordialement.
 
 
Yannick

Reply

Marsh Posté le 27-12-2014 à 12:15:25    

 
           Vu la ligne n°135 For Each AB in Activesheet.PivotTables … .PivotItems, pourquoi en lignes 137-139
           répéter tout le chemin alors que la variable objet AB pointe déjà sur un élément de la collection PivotItems ?!
           Du genre AB.Visible = True … Sinon à quoi bon utiliser For Each !
 
           Tout le bloc des lignes n°136 à 145 peut se réduire en une seule ligne : AB.Visible = AB.Name <> "(vide)" ‼
 
           Sinon insérer juste entre les lignes 135 & 136 une ligne Debug.Print AB.Name permettant de visualiser dans la fenêtre VBE
           Exécution (Ctrl + G) le nom de chacun des éléments et lors d'une erreur, vérifier le dernier de la liste, le B-A-BA du débogage …
 

Reply

Marsh Posté le 27-12-2014 à 12:36:30    

Je vous remercie pour la réponse.
 
En simplifiant peut être que VBA 2010 fera fonctionner le code. Les versions précédentes étaient plus indulgentes. Des que je retourne au boulot et retrouve mon va 2010, je testerai la solution. A la base je recrivais la ligne de code pour lui dire où aller chercher la valeur "vide". Je veux dire dans quel champ aller filtrer la valeur vide.
 
Cordialement.

Reply

Marsh Posté le 27-12-2014 à 12:55:32    

 
           Vu que ton problème est au cours sur un autre forum, cas évident de cross-posting sauvage peu apprécié sur les forums,
           je te laisse continuer sur l'autre forum …
 

Reply

Marsh Posté le 27-12-2014 à 15:45:17    

Une solution sur ce forum pourrait être mieux comprise. Je comprends ta remarque. Mais je te promets qu'il arrive souvent.que pour un même problème, une réponse soit mieux comprise qu'une autre par les débutants. Parfois en cherchant sur un forum on ne parviens pas à adapter la réponse à notre cas alors qu'une autre réponse sera plus adaptable.  
 
Je te remercie pour tes réponses en tout cas.
 
Cordialement

Reply

Marsh Posté le 27-12-2014 à 19:13:48    

 
           Même si les lignes n°137 à 139 ne sont pas propres - à comparer avec les lignes n°141 à 144 - il semblerait qu'il s'agisse d'un bug,
           voie vers laquelle se tourne l'autre forum. Donc aucun intérêt de continuer en double ici …


Message édité par Marc L le 27-12-2014 à 23:11:19
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed