Création d'une nouvelle feuille avec du code

[Titouu]

Bonjour,

Tout d'abord, bravo pour ce site/forum regorgeant de précieuses informations!

Voici mon problème:
J'ai mis en place une macro créant une nouvelle feuille avec un tableau croisé dynamique (puis un graphique croisé dynamique).
Afin d'actualiser mon graphique à chaque changement de champ, je souhaiterais inclure automatique le code suivant lors de la création de la feuille:

Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)
Application.Run "Miseenforme"
End Sub

Auriez-vous une idée de comment procéder ? 😕

Merci de votre aide!

 

[Pierrot93]

Re : Création d'une nouvelle feuille avec du code

Bonjour,

à placer dans le module "thisworkbook" :

Private Sub Workbook_SheetPivotTableUpdate(ByVal Sh As Object, ByVal Target As PivotTable)
Application.Run "Miseenforme"
End Sub

bonne journée
@+

 

[Titouu]

Re : Création d'une nouvelle feuille avec du code

Merci pour cette réponse, cela marche très bien!

Pour la compléter, pourriez vous m'indiquer s'il est possible d'inclure ces 3 lignes automatiquement dans Thisworkbook lors du démarrage d'une macro ?

Merci!

 

[Pierrot93]

Re : Création d'une nouvelle feuille avec du code

Re,

Pour la compléter, pourriez vous m'indiquer s'il est possible d'inclure ces 3 lignes automatiquement dans Thisworkbook lors du démarrage d'une macro ?

pas tout compris, là...

 

[Titouu]

Re : Création d'une nouvelle feuille avec du code

En fait, la macro globale est à lancer à tous les mois sur un nouveau fichier. Ainsi, je voudrais que la partie servant à actualiser mon graphique dans Thisworkbook soit copier automatiquement au lancement de la macro globale du fichier, pour ne pas avoir à le faire "manuellement".

 

[Pierrot93]

Re : Création d'une nouvelle feuille avec du code

Re,

bah... pas clair tout ca.... met peut être ceci :

Application.Run "Miseenforme"

au début ou à la fin de ta procédure... selon....

 

[Titouu]

Re : Création d'une nouvelle feuille avec du code

Je reprends avec plus de détails 😀 :

-Chaque mois, je dois retraiter un nouveau fichier excel (de données différentes mais de forme fixe). Pour cela j'ai créé une macro me créant plusieurs choses comme de nouvelles feuilles ou des graphiques croisés dynamique.

Du coup, pour mettre à jour notamment ces graphiques (grâce à " Private Sub Workbook_SheetPivotTableUpdate(ByVal Sh As Object, ByVal Target As PivotTable)
Application.Run "Miseenforme"
End Sub" dans Thisworkbook), je voudrais que ma macro l'écrive toute seule dans Thisworkbook. (Donc que je n'ai pas à le faire moi même mais que cela soit fait systèmatiquement à l'aide de la macro)

Est ce mieux ainsi ?

 

[Pierrot93]

Re : Création d'une nouvelle feuille avec du code

Re,

je voudrais que ma macro l'écrive toute seule dans Thisworkbook

bah.... besoin de l'écrire qu'une seule fois dans le module "thisworkbook".... c'est le classeur, pas la feuille nouvellement créée....

 

[Titouu]

Re : Création d'une nouvelle feuille avec du code

Re,



bah.... besoin de l'écrire qu'une seule fois dans le module "thisworkbook".... c'est le classeur, pas la feuille nouvellement créée....

Oui, mais je voudrais que cela soit le cas dans chaque nouveau classeur mensuel ?

 

[Pierrot93]

Re : Création d'une nouvelle feuille avec du code

Re,

essaye ceci :

Option Explicit
Sub test()
Dim wb As Workbook, code As String, n As Integer
Set wb = Workbooks.Add
    code = "Private Sub Workbook_SheetPivotTableUpdate(ByVal Sh As Object, ByVal Target As PivotTable)" & vbCrLf
    code = code & "Application.Run ""Miseenforme""" & vbCrLf
    code = code & "End Sub"
    With wb.VBProject.VBComponents("ThisWorkbook").CodeModule
        n = .CountOfLines + 1
        .InsertLines n, code
    End With
End Sub

 

[Titouu]

Re : Création d'une nouvelle feuille avec du code

Re,

essaye ceci :

Option Explicit
Sub test()
Dim wb As Workbook, code As String, n As Integer
Set wb = Workbooks.Add
    code = "Private Sub Workbook_SheetPivotTableUpdate(ByVal Sh As Object, ByVal Target As PivotTable)" & vbCrLf
    code = code & "Application.Run ""Miseenforme""" & vbCrLf
    code = code & "End Sub"
    With wb.VBProject.VBComponents("ThisWorkbook").CodeModule
        n = .CountOfLines + 1
        .InsertLines n, code
    End With
End Sub

Super c'est exactement ça, simplement dans le classeur courant et non dans un nouveau

 

[Pierrot93]

Re : Création d'une nouvelle feuille avec du code

Re,

Super c'est exactement ça, simplement dans le classeur courant et non dans un nouveau

bah... tu disais....

Oui, mais je voudrais que cela soit le cas dans chaque nouveau classeur mensuel ?

le principale, c'est que ce soit solutionné....