pagesetup centerheader

Le
mboileau
Bonjour,

Je voudrais insérer un vlookup dans mon .centerheader de ma macro
"pagesetup".

Comment dois-je écrire le code?

Merci
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
michdenis
Le #20568581
Bonjour,

Tu peux copier ceci dans le ThisWorkbook de ton classeur :

Si tu veux obtenir et écrire le résultat de la formule plutôt que ta formule
tu peux utiliser la propriété "Evaluate" de l'objet Application" pour
évaluer ta formule

X = Evaluate(TaFormule)
.CenterHeader = x

'---------------------------------
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim Sh As Worksheet
For Each Sh In ActiveWindow.SelectedSheets
With Sh
With .PageSetup
.CenterHeader = "TaFormule"
End With
End With
Next
End Sub
'---------------------------------



"mboileau"
Bonjour,

Je voudrais insérer un vlookup dans mon .centerheader de ma macro
"pagesetup".

Comment dois-je écrire le code?

Merci
Publicité
Poster une réponse
Anonyme