Discussion :

[saou85]

Bonjour ,

Je me retourne vers vous après avoir lu plusieurs tutos et bouquins sur les macro...

J'arrive pas à les réussir ... même les plus simples !!!! pourtant c'est simple !!!

Et même quand je fais un enregistrement de macro ...Ca ne marche pas ...

Je veux commencer juste par une macro qui fait créer des TCD du même format et que je pourrai utiliser pour plusieurs tableaux et qui sera associé à un bouton !!!!!

Je n'y arrive pas ... rien ne marche !!! je suis nulle ça je le sais mais je croyais en cherchant l'information que j'apprendrai mais la c'est pas le cas !!!

Quelqu'un pourrai trouver une solution à mon cas et m'aider à avancer ????

[jordane45]

Bonjour,
Le " Ca ne marche pas" reste toujours une notion un peu vague

Pourrais-tu nous dire sur quoi tu bloques exactement ?

Tu indiques que tu as essayé de passer par l'enregistreur de macro... As tu obtenu du code ? Le comprends-tu ou désires-tu des explications ?

Si tu as commencé à écrire du code.. peux tu nous le partager en indiquant sur quelle(s) ligne(s) ton programme bloque ?

Cordialement,
jordane.

[aalex_38]

Bonjour,


La question n'est pas d'être nul ou pas, comme toute chose il faut apprendre :

Pour débuter un bon lien ici

[saou85]

merci pour vos réponses.

effectivement , avant de poster j'ai lu plusieurs tuto et bouquins...

mais la question reste , comment je pourrais utiliser une macro que j'ai fais pour un classeur spécifque , dans un autre classeur ...

par exemple , une macro qui fais créer un TCD à une format donnée à partir d'une base qui change chaque mois ...

comment je pourrais utiliser la macro que j'ai deja créer le mois dernier ?

Si vous avez un exemple ca serai excellent !

je vous remercie encore une fois

[patricktoulon]

bonjour

quand je lis ton post depuis le debu j'ai du mal a cerner ce que tu veux

il serai peut etre interessant pour toi de nous envoyer un peu ton code que tu a essayer meme si il ne fonctionne pas
a partir de ce momment on pourra peu etre t'aider


au plaisir

[athos7776]

Effectivement, la moindre des choses est de copier ton code dans la discussion pour qu'on puisse t'aider. C'est aussi simple que ça.

Ensuite, d'expérience, quand on commence avec les macros et que rien ne fonctionne, surtout quand on veut générer des graphiques ou des TCD par exemple, le problème est souvent le nom du graphique ou du TCD que génére automatiquement Excel dans le Code VBA de ta Macro (par exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveSheet.ChartObjects("Graphique 7").Activate

). Il faut absolument (ou presque) que tu changes ou que tu supprimes ces types de commandes. Sinon, chaque fois que tu feras fonctionner ta macro, elle va toujours tenter de chercher ce graphique.... qui dans le fond n'existera plus puisque tu l'aurais supprimé ou qu'Excel et ta macro auraient généré un autre graphique automatiquement (par exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveSheet.ChartObjects("Graphique 7").Activate

).

Entre temps, je te souhaite bonne chance.

[saou85]

vous avez raison , j etais bete sur ce coup la , voila le code de la macro que j'ai enregistré

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
Sub TCD_EVS()
'
' TCD_EVS Macro
' TABLEAU CROISE DYNAMIQUE POUR LES EXTRACTIONS DES EVS
'
 
'
    Cells.Select
    ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
        "'EVS CMGA PDL 09 2010'!C1:C31").CreatePivotTable TableDestination:="", _
        TableName:="Tableau croisé dynamique13", DefaultVersion:= _
        xlPivotTableVersion10
    ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1)
    ActiveSheet.Cells(3, 1).Select
    With ActiveSheet.PivotTables("Tableau croisé dynamique13").PivotFields( _
        "mois_comptable")
        .Orientation = xlColumnField
        .Position = 1
    End With
    With ActiveSheet.PivotTables("Tableau croisé dynamique13").PivotFields( _
        "libelle_uc")
        .Orientation = xlRowField
        .Position = 1
    End With
    ActiveSheet.PivotTables("Tableau croisé dynamique13").AddDataField ActiveSheet. _
        PivotTables("Tableau croisé dynamique13").PivotFields("debit"), _
        "Nombre de debit", xlCount
    ActiveSheet.PivotTables("Tableau croisé dynamique13").AddDataField ActiveSheet. _
        PivotTables("Tableau croisé dynamique13").PivotFields("credit"), _
        "Nombre de credit", xlCount
    ActiveSheet.PivotTables("Tableau croisé dynamique13").PivotSelect _
        "'Nombre de credit'", xlDataAndLabel, True
    ActiveSheet.PivotTables("Tableau croisé dynamique13").PivotFields( _
        "Nombre de credit").Function = xlSum
    ActiveSheet.PivotTables("Tableau croisé dynamique13").PivotSelect _
        "'Nombre de debit'", xlDataAndLabel, True
    ActiveSheet.PivotTables("Tableau croisé dynamique13").PivotFields( _
        "Nombre de debit").Function = xlSum
    ActiveSheet.PivotTables("Tableau croisé dynamique13").PivotSelect _
        "'Somme de credit'", xlDataAndLabel, True
    ActiveSheet.PivotTables("Tableau croisé dynamique13").CalculatedFields.Add _
        "solde", "=debit -credit", True
    ActiveSheet.PivotTables("Tableau croisé dynamique13").PivotFields("solde"). _
        Orientation = xlDataField
    ActiveSheet.PivotTables("Tableau croisé dynamique13").PivotFields( _
        "Somme de debit").Orientation = xlHidden
    ActiveSheet.PivotTables("Tableau croisé dynamique13").PivotFields( _
        "Somme de credit").Orientation = xlHidden
    With ActiveSheet.PivotTables("Tableau croisé dynamique13").PivotFields( _
        "libelle_uc")
        .PivotItems("(vide)").Visible = False
    End With
    ActiveWorkbook.ShowPivotTableFieldList = False
End Sub

donc ce code génére un TCB13 pour la base "'EVS CMGA PDL 09 2010"

la question c'est comment rendre cette marco utilsable pour n'importe qu'elle base qui ressemble à la base mentionné si dessus ( le classeur n aura pas le meme nom biensur ) et que me génére d autre TCD

[Yolak]

"Tableau croisé dynamique13"

C'est ceci qui pose problème...
Tu écris en "dur" le nom de ton fichier dans le code. Il faut utiliser une variable qui va chercher le nom de la table.

Je ne suis plus trop dans le VBA en ce moment donc je ne vais pas mettre des mauvaises info de code mais suit cette piste :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Dim maTable as string
maTable=Nom_de_la_pivot_table

Ensuite tu remplaces tous les

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

"Tableau croisé dynamique13"

par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

maTable

[saou85]

voila j'ai essay" et ca amrceh pas
pourtant c'est simple ... mais c'est pas le cas pour les nul comme moi

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
Sub TCD_EVS()
'
' TCD_EVS Macro
' Tableau croisé dynamique EVS
'
 
'Déclaration de variable
Dim maTable As String
maTable = PivotTables.Name
 
    Cells.Select
    ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
        "'EVS CMGA LIM 09 2010'!C1:C31").CreatePivotTable TableDestination:="", _
        TableName:="maTable", DefaultVersion:= _
        xlPivotTableVersion10
    ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1)
    ActiveSheet.Cells(3, 1).Select
    With ActiveSheet.PivotTables("maTable").PivotFields( _
        "mois_comptable")
        .Orientation = xlColumnField
        .Position = 1
    End With
    ActiveSheet.PivotTables("maTable").AddDataField ActiveSheet. _
        PivotTables("maTable").PivotFields("debit"), _
        "Nombre de debit", xlCount
    ActiveSheet.PivotTables("maTable").AddDataField ActiveSheet. _
        PivotTables("maTable").PivotFields("credit"), _
        "Nombre de credit", xlCount
    With ActiveSheet.PivotTables("maTable").PivotFields( _
        "libelle_uc")
        .Orientation = xlRowField
        .Position = 1
    End With
    ActiveWorkbook.ShowPivotTableFieldList = False
    With ActiveSheet.PivotTables("maTable").PivotFields( _
        "libelle_uc")
        .PivotItems("(vide)").Visible = False
    End With
    ActiveSheet.PivotTables("maTable").PivotSelect _
        "'Nombre de debit'", xlDataAndLabel, True
    Range("B5").Select
    ActiveSheet.PivotTables("maTable").PivotFields( _
        "Nombre de debit").Function = xlSum
    Range("B6").Select
    ActiveSheet.PivotTables("maTable").PivotFields( _
        "Nombre de credit").Function = xlSum
    Range("C6").Select
End Sub

[patricktoulon]

bonjour
on t a bien renseigner mais la variable "matable" ne dois pas etre entre guillemet


au plaisir

[Yolak]

Il faut enlever les guillements avant et après maTable

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
Sub TCD_EVS()
'
' TCD_EVS Macro
' Tableau croisé dynamique EVS
'
 
'Déclaration de variable
Dim maTable As String
maTable = PivotTables.Name
 
    Cells.Select
    ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
        "'EVS CMGA LIM 09 2010'!C1:C31").CreatePivotTable TableDestination:="", _
        TableName:=maTable, DefaultVersion:= _
        xlPivotTableVersion10
    ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1)
    ActiveSheet.Cells(3, 1).Select
    With ActiveSheet.PivotTables(maTable).PivotFields( _
        "mois_comptable")
        .Orientation = xlColumnField
        .Position = 1
    End With
    ActiveSheet.PivotTables(maTable).AddDataField ActiveSheet. _
        PivotTables(maTable).PivotFields("debit"), _
        "Nombre de debit", xlCount
    ActiveSheet.PivotTables(maTable).AddDataField ActiveSheet. _
        PivotTables(maTable).PivotFields("credit"), _
        "Nombre de credit", xlCount
    With ActiveSheet.PivotTables(maTable).PivotFields( _
        "libelle_uc")
        .Orientation = xlRowField
        .Position = 1
    End With
    ActiveWorkbook.ShowPivotTableFieldList = False
    With ActiveSheet.PivotTables(maTable).PivotFields( _
        "libelle_uc")
        .PivotItems("(vide)").Visible = False
    End With
    ActiveSheet.PivotTables(maTable).PivotSelect _
        "'Nombre de debit'", xlDataAndLabel, True
    Range("B5").Select
    ActiveSheet.PivotTables(maTable).PivotFields( _
        "Nombre de debit").Function = xlSum
    Range("B6").Select
    ActiveSheet.PivotTables(maTable).PivotFields( _
        "Nombre de credit").Function = xlSum
    Range("C6").Select
End Sub

maTable est une variable de type String (chaine de caractère)
"maTable" est une chaine de caractère

[saou85]

Je vous remercie pour vos réponses ... décidemment ca veut aps marcher !! j'ai enlever les guillemets mais en vain!!

voila vous avez le code je vous envoi le fichier type ...normalement c'est un jeux d'enfant mais pour moi non je bloque !!

je veux associer cette macro a un bouton pour automatiser la creation des tcd pour 38 fichier !!!

ca me met comme erreur objet requis!

[LouiMz]

Bonjour,

Pour ma part j'ai essayé le fichier, en rencontrant deux problèmes majeurs:

- La déclaration de maTable

- Le nom de la feuille n'est pas la même que dans le fichier joint (Remplacement de LIM par ALP):

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
        "'EVS CMGA ALP 09 2010'!C1:C31").CreatePivotTable TableDestination:="", _
 TableName:=maTable, DefaultVersion:= xlPivotTableVersion10

- Pour le bouton utilisez directement les User Forms d'Excel.

Si possible communiquez le message d'erreur et la ligne posant problème.

Cordialement

[saou85]

merci pour votre réponse ,
l objectif est d appliquer cette macro a n importe quel fichier et pas seuleument au fichier "alp" donc la question comment la généraliser afin de pouvoir l appliquer sans prendre considération du nom du fichier?