FORUM MP | Bureautique - Excel : tableaux croisés dynamiques

COMMUNAUTE MP

Identifiez vous ...

DOMAINE MP

Bavardages

Langages Généraux

Langages Web

Langages DotNet

Autres langages

Dev. Jeux Video

Sécurité

Sys. Exploitation

Graphismes

Logiciels

Réseaux

Bases de données

Méthodologies

Emplois High-tech

Aide juridique

Articles juridiques

FORUM

CHAT MP IRC

Votre pseudo ...

Srv: irc.moteurprog.com

Chan: #MoteurProg

PARTICIPER

Plus de 3500 emplois.

Visiteur MP

tableaux croisés dynamiques
	Forum : BUREAUTIQUE - EXCEL Sous Catégorie : Excel Type du sujet : Sujet Normale FAQ : FAQ BUREAUTIQUE - EXCEL
		SUIVI PAR MAIL INACTIF
		SUJET RESOLU
		SUJET ACTIF
		N'APPARTIENT PAS A LA FAQ

PAGES : [1] [2]

FORUM BUREAUTIQUE - EXCEL
	Page précedente	Page suivante

RGI
Superviseur :
- Logiciels
Modérateur :
- Visual basic
- Bureautique

Inscrit : 21/08/2006
Messages : 1726

#139168 Posté le 25/07/07 à 12:30

faites un essai comme ceci

Sub essai()
Index = Worksheets(2).PivotTables.Count
MsgBox Index
nom = Worksheets(2).Name
With Worksheets(nom).PivotTables(Index)
For i = 1 To .PivotFields.Count
MsgBox .PivotFields(i).Name
Next
End With
End Sub
__________________________
PS: VBA pour EXCEL est maintenant dans Bureautique Smiley

merci de poser vos questions VBA à cet endroit
salutations

RGI

Un MERCI en retour c'est sympa
et ne pas oublier le tag :

après résolution.

HAUT DE PAGE

Publicité

Inscrit : X
Messages : X

#Aucun

HAUT DE PAGE

Tanguyforest
Nouveau membre

Inscrit : 20/07/2007
Messages : 10

#139183 Posté le 25/07/07 à 13:48

oui, j'ai essayé, ca m'affiche 1 sur une petite fenêtre et puis après "Erreur d'exécution" et bloque sur la ligne:
With Worksheets("Evolution des prix").PivotTables(Index)
:(

J'envisage maintenant une petite macro type:

Sub maj_données()

Sheets(1).Activate
ActiveSheet.PivotTables("Tableau croisé dynamique5").PivotCache.Refresh
End Sub

mais j'ai encore ce pb de nom de tableau

HAUT DE PAGE

RGI
Superviseur :
- Logiciels
Modérateur :
- Visual basic
- Bureautique

Inscrit : 21/08/2006
Messages : 1726

#139187 Posté le 25/07/07 à 14:25

il faut que index représente bien le nombre de pivotTable
Index = ActiveSheet.PivotTables.Count
With ActiveSheet.PivotTables("Tableau croisé dynamique" & Index)").PivotFields("Article")
.Orientation = xlRowField
.Position = 1
End With
__________________________
PS: VBA pour EXCEL est maintenant dans Bureautique Smiley

merci de poser vos questions VBA à cet endroit
salutations

RGI

Un MERCI en retour c'est sympa
et ne pas oublier le tag :

après résolution.

HAUT DE PAGE


	Page précédente	Page suivante
FORUM BUREAUTIQUE - EXCEL

PAGES : [1] [2]

.: Site Web développé par Julien Pichot et l'équipe MPWG avec www.evolvia-web.com :.