Bonjour!
J'ai un souci...
J'ai eu à convertir et à faire évoluer une appli acces97 vers 2002. Pas de souci pour moi. En revanche, l'appli alimente un fichier excel et je n'y connais rien en excel. Ca plante....je suis trop limitée par le temps pour approfondir la question AU SECOURS!
Voilà, si ça vous parle...ça fonctionnait sur l'ancienne version (excel 7 je crois)...je ne sais pas comment traduire pour corriger
ActiveWorkbook.Sheets(NouvelOnglet).PivotTableWizard SourceType:=xlDatabase, SourceData:= _
'Fac29Export!C1:C22', TableDestination:='R1C1:R7C1', TableName:= _
'Tableau croisé dynamique1'
With ActiveWorkbook.Sheets(NouvelOnglet).PivotTables('Tableau croisé dynamique1').PivotFields('DR')
End With
With ActiveWorkbook.Sheets(NouvelOnglet).PivotTables('Tableau croisé dynamique1').PivotFields('Grpe')
.Name = 'Groupe'
End With
-> erreur 1004: impossible de lire la propriété pivotfields de la classe pivotable
J'ai un souci...
J'ai eu à convertir et à faire évoluer une appli acces97 vers 2002. Pas de souci pour moi. En revanche, l'appli alimente un fichier excel et je n'y connais rien en excel. Ca plante....je suis trop limitée par le temps pour approfondir la question AU SECOURS!
Voilà, si ça vous parle...ça fonctionnait sur l'ancienne version (excel 7 je crois)...je ne sais pas comment traduire pour corriger
ActiveWorkbook.Sheets(NouvelOnglet).PivotTableWizard SourceType:=xlDatabase, SourceData:= _
'Fac29Export!C1:C22', TableDestination:='R1C1:R7C1', TableName:= _
'Tableau croisé dynamique1'
With ActiveWorkbook.Sheets(NouvelOnglet).PivotTables('Tableau croisé dynamique1').PivotFields('DR')
End With
With ActiveWorkbook.Sheets(NouvelOnglet).PivotTables('Tableau croisé dynamique1').PivotFields('Grpe')
.Name = 'Groupe'
End With
-> erreur 1004: impossible de lire la propriété pivotfields de la classe pivotable