Listes,arborescence.vb excel
Fermé
mia1987
Messages postés
49
Date d'inscription
lundi 4 août 2008
Statut
Membre
Dernière intervention
10 mai 2011
-
12 août 2008 à 10:56
mia1987 Messages postés 49 Date d'inscription lundi 4 août 2008 Statut Membre Dernière intervention 10 mai 2011 - 13 août 2008 à 15:27
mia1987 Messages postés 49 Date d'inscription lundi 4 août 2008 Statut Membre Dernière intervention 10 mai 2011 - 13 août 2008 à 15:27
A voir également:
- Listes,arborescence.vb excel
- Liste déroulante excel - Guide
- Formule excel - Guide
- Si et excel - Guide
- Aller à la ligne excel - Guide
- Mise en forme conditionnelle excel - Guide
5 réponses
Ciao !
DOS
Sub Main() Dim fd As FileDialog, vrtSelection As Variant, strMes As String Set fd = Application.FileDialog(msoFileDialogFilePicker) strMes = "" With fd ' Définir le répertoire par défaut à l'ouverture. .InitialFileName = "C:\Documents local\Excel" 'Utiliser la méthode [ Show ] pour afficher la boite de dialogue. ' Si l'utilisateur n'utilise pas la touche [ ESC ] If .Show = -1 Then For Each vrtSelection In .SelectedItems strMes = strMes & vbLf & "Chemin d'accès de la sélection: " & vrtSelection Next vrtSelection End If End With MsgBox strMes Set fd = Nothing End Sub
DOS
re:
Je n'ai que travaillé peu avec les TCDs, voici comment je procède :
exemple :
DOS
Je n'ai que travaillé peu avec les TCDs, voici comment je procède :
exemple :
Sub Test() Dim Adr As String ' Localiser la source des données With Worksheets("Feuil1") Adr = .Name & "!" & .Range("A1:V13661").Address End With 'Création du PivotTable With ThisWorkbook.PivotCaches.Add(SourceType:=xlDatabase, _ SourceData:=Range(Adr)) ' Dépot sur la feuille 2 à l'adresse C4 avec le nom TCD1 Set PT = .CreatePivotTable(TableDestination:= _ Worksheets("Feuil2").Range("C4"), _ TableName:="TCD1") End With End Sub
DOS
mia1987
Messages postés
49
Date d'inscription
lundi 4 août 2008
Statut
Membre
Dernière intervention
10 mai 2011
13 août 2008 à 10:38
13 août 2008 à 10:38
thks Dos!
j'arrive tjrs pas à resoudre el blem du tcd ..:(
anyway if u any other idea,tell me!
j'arrive tjrs pas à resoudre el blem du tcd ..:(
anyway if u any other idea,tell me!
re :
quand j'utilise [ Adr = .Name & "!" & .Range("A1:B7").Address ] :
Sub Creer()
Dim Adr As String
' Localiser la source des données
With ActiveWorkbook.ActiveSheet
Adr = .Name & "!" & .Range("A1:B7").Address
End With
ActiveWorkbook.PivotCaches.Add _
(SourceType:=xlDatabase, SourceData:=Adr).CreatePivotTable _
TableDestination:="", TableName:="Tableau croisé dynamique1", _
DefaultVersion:=xlPivotTableVersion10
End Sub
'
ça fonctionne correctement, mais je n'ai pas ton data !
par contre avec cette adresse [ Adr = .Name & "!" & .Range("A1:V13661").Address ]
ça ne fonctionne pas, vérifie ta plage de données !
DOS
quand j'utilise [ Adr = .Name & "!" & .Range("A1:B7").Address ] :
Sub Creer()
Dim Adr As String
' Localiser la source des données
With ActiveWorkbook.ActiveSheet
Adr = .Name & "!" & .Range("A1:B7").Address
End With
ActiveWorkbook.PivotCaches.Add _
(SourceType:=xlDatabase, SourceData:=Adr).CreatePivotTable _
TableDestination:="", TableName:="Tableau croisé dynamique1", _
DefaultVersion:=xlPivotTableVersion10
End Sub
'
ça fonctionne correctement, mais je n'ai pas ton data !
par contre avec cette adresse [ Adr = .Name & "!" & .Range("A1:V13661").Address ]
ça ne fonctionne pas, vérifie ta plage de données !
Sub Creer() Dim Adr As String ' Localiser la source des données With ActiveWorkbook.ActiveSheet Adr = .Name & "!" & .Range("A1:V13661").Address End With ActiveWorkbook.PivotCaches.Add _ (SourceType:=xlDatabase, SourceData:=Adr).CreatePivotTable _ TableDestination:="", TableName:="Tableau croisé dynamique1", _ DefaultVersion:=xlPivotTableVersion10 End Sub '
DOS
re :
quand j'utilise [ Adr = .Name & "!" & .Range("A1:B7").Address ] :
ça fonctionne correctement, mais je n'ai pas ton data !
par contre avec cette adresse [ Adr = .Name & "!" & .Range("A1:V13661").Address ]
ça ne fonctionne pas, vérifie ta plage de données !
DOS
quand j'utilise [ Adr = .Name & "!" & .Range("A1:B7").Address ] :
Sub Creer() Dim Adr As String ' Localiser la source des données With ActiveWorkbook.ActiveSheet Adr = .Name & "!" & .Range("A1:B7").Address End With ActiveWorkbook.PivotCaches.Add _ (SourceType:=xlDatabase, SourceData:=Adr).CreatePivotTable _ TableDestination:="", TableName:="Tableau croisé dynamique1", _ DefaultVersion:=xlPivotTableVersion10 End Sub '
ça fonctionne correctement, mais je n'ai pas ton data !
par contre avec cette adresse [ Adr = .Name & "!" & .Range("A1:V13661").Address ]
ça ne fonctionne pas, vérifie ta plage de données !
Sub Creer() Dim Adr As String ' Localiser la source des données With ActiveWorkbook.ActiveSheet Adr = .Name & "!" & .Range("A1:V13661").Address End With ActiveWorkbook.PivotCaches.Add _ (SourceType:=xlDatabase, SourceData:=Adr).CreatePivotTable _ TableDestination:="", TableName:="Tableau croisé dynamique1", _ DefaultVersion:=xlPivotTableVersion10 End Sub '
DOS
mia1987
Messages postés
49
Date d'inscription
lundi 4 août 2008
Statut
Membre
Dernière intervention
10 mai 2011
13 août 2008 à 15:27
13 août 2008 à 15:27
merci infiniment , je crois que le bout de programme a avancé,seulmt jai autre petit blem, à ce niveau ci :
With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("avec")
.Orientation = xlRowField
.Position = 1
End With
With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("sans")
.Orientation = xlDataField
.Position = 1
End With
on me envoie l'erreur suivante :
impossible de lire la propriété pivotfields de la classe pivot table
merci encore Dos
With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("avec")
.Orientation = xlRowField
.Position = 1
End With
With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("sans")
.Orientation = xlDataField
.Position = 1
End With
on me envoie l'erreur suivante :
impossible de lire la propriété pivotfields de la classe pivot table
merci encore Dos
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
mia1987
Messages postés
49
Date d'inscription
lundi 4 août 2008
Statut
Membre
Dernière intervention
10 mai 2011
12 août 2008 à 16:50
12 août 2008 à 16:50
merci!sinn vs vs connaissze un peu en tableaux dynamiques croisés?
j'ai enregistré une macro pr mn programme, ms ca bloque au niveau dse instructions concernant le tableau croisé dynamique!je suppose qu'il est necessaire de faire une actualisation ou truc du genre...ms moi je ne ss qu'une debutante,dc j'en sais vrmt d'ou l'aborder,merci bcp de bien vouloir m'aider , et ceci est le bout du programme ou j'ai blem
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"mine!R1C1:R13661C22").CreatePivotTable TableDestination:="", _
TableName:="Tableau croisé dynamique1"
j'ai enregistré une macro pr mn programme, ms ca bloque au niveau dse instructions concernant le tableau croisé dynamique!je suppose qu'il est necessaire de faire une actualisation ou truc du genre...ms moi je ne ss qu'une debutante,dc j'en sais vrmt d'ou l'aborder,merci bcp de bien vouloir m'aider , et ceci est le bout du programme ou j'ai blem
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"mine!R1C1:R13661C22").CreatePivotTable TableDestination:="", _
TableName:="Tableau croisé dynamique1"