Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
michdenis
Bonjour LC,
Dans le ThisWorkbook de ton classeur, tu peux utiliser ceci :
J'ai supposé que ton TDC était dans une feuille nommée "Feuil1" et que ton TDC s'appelait "Denis" et que tu voulais afficher dans le bas de page au centre, le nom du premier champ de ton TDC
'------------------------- Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim Sh As Worksheet For Each Sh In ActiveWindow.SelectedSheets If Sh.Name = "Feuil1" Then With Sh .PageSetup.CenterFooter = _ .PivotTables("Denis").PivotFields(1).Name End With End If Next End With
End Sub '-------------------------
Salutations!
"LC" a écrit dans le message de news: Bonjour,
est il possible d'insérer un nom de champ (d'un tableau croisé dynamique) dans le pied de page d'une impression excel?
Merci, loic
Bonjour LC,
Dans le ThisWorkbook de ton classeur, tu peux utiliser ceci :
J'ai supposé que ton TDC était dans une feuille nommée "Feuil1"
et que ton TDC s'appelait "Denis" et que tu voulais afficher dans
le bas de page au centre, le nom du premier champ de ton TDC
'-------------------------
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim Sh As Worksheet
For Each Sh In ActiveWindow.SelectedSheets
If Sh.Name = "Feuil1" Then
With Sh
.PageSetup.CenterFooter = _
.PivotTables("Denis").PivotFields(1).Name
End With
End If
Next
End With
End Sub
'-------------------------
Salutations!
"LC" <silensloic@hotmail.com> a écrit dans le message de news: Obqa0aaUGHA.2444@TK2MSFTNGP14.phx.gbl...
Bonjour,
est il possible d'insérer un nom de champ (d'un tableau croisé dynamique)
dans le pied de page d'une impression excel?
Dans le ThisWorkbook de ton classeur, tu peux utiliser ceci :
J'ai supposé que ton TDC était dans une feuille nommée "Feuil1" et que ton TDC s'appelait "Denis" et que tu voulais afficher dans le bas de page au centre, le nom du premier champ de ton TDC
'------------------------- Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim Sh As Worksheet For Each Sh In ActiveWindow.SelectedSheets If Sh.Name = "Feuil1" Then With Sh .PageSetup.CenterFooter = _ .PivotTables("Denis").PivotFields(1).Name End With End If Next End With
End Sub '-------------------------
Salutations!
"LC" a écrit dans le message de news: Bonjour,
est il possible d'insérer un nom de champ (d'un tableau croisé dynamique) dans le pied de page d'une impression excel?
