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 Christian,
Je n'ai pas très bien compris ta question, mais tu peux consever le texte dans une variable ou une cellule et l'ajouter au moment de lancer l'impression.
'------------------------------ Sub Imprimer()
Dim Sh As Worksheet Dim MyVar As String
Set Sh = ActiveSheet MyVar = "Bonjour le monde"
With Sh With .PageSetup .LeftHeader = "&""Tahoma,Gras""&10& " & MyVar .CenterHeader = "&""Tahoma,Gras""&10& " & Sh.Range("A1") .RightHeader = "&""Tahoma,Gras,10" .LeftFooter = "" .CenterFooter = "" .RightFooter = "" End With .PrintPreview End With
End Sub '------------------------------
Salutations!
"Christian.L" a écrit dans le message de news: Bonjour à tous
J'ai enregistrée une macro pour formater mes en têtes de page
With ActiveSheet.PageSetup '.LeftHeader = "&""Tahoma,Gras""&10&" '.CenterHeader = "&""Tahoma,Gras""&10&" '.RightHeader = "&""Tahoma,Gras,10" '.LeftFooter = "" '.CenterFooter = "" '.RightFooter = "" End With
L'inconvénient, c'est qu'après la macro, les textes des en têtes de pages ont été effacés.
Quelqu'un a t'il une idée ?
Merci d'avance
Christian
Bonjour Christian,
Je n'ai pas très bien compris ta question, mais tu peux consever le texte dans une variable ou une cellule et l'ajouter au moment de
lancer l'impression.
'------------------------------
Sub Imprimer()
Dim Sh As Worksheet
Dim MyVar As String
Set Sh = ActiveSheet
MyVar = "Bonjour le monde"
With Sh
With .PageSetup
.LeftHeader = "&""Tahoma,Gras""&10& " & MyVar
.CenterHeader = "&""Tahoma,Gras""&10& " & Sh.Range("A1")
.RightHeader = "&""Tahoma,Gras,10"
.LeftFooter = ""
.CenterFooter = ""
.RightFooter = ""
End With
.PrintPreview
End With
End Sub
'------------------------------
Salutations!
"Christian.L" <christian.lecossier@voila.fr> a écrit dans le message de news: ee9DpOs6FHA.2888@tk2msftngp13.phx.gbl...
Bonjour à tous
J'ai enregistrée une macro pour formater mes en têtes de page
With ActiveSheet.PageSetup
'.LeftHeader = "&""Tahoma,Gras""&10&"
'.CenterHeader = "&""Tahoma,Gras""&10&"
'.RightHeader = "&""Tahoma,Gras,10"
'.LeftFooter = ""
'.CenterFooter = ""
'.RightFooter = ""
End With
L'inconvénient, c'est qu'après la macro, les textes des en têtes de
pages ont été effacés.
Je n'ai pas très bien compris ta question, mais tu peux consever le texte dans une variable ou une cellule et l'ajouter au moment de lancer l'impression.
'------------------------------ Sub Imprimer()
Dim Sh As Worksheet Dim MyVar As String
Set Sh = ActiveSheet MyVar = "Bonjour le monde"
With Sh With .PageSetup .LeftHeader = "&""Tahoma,Gras""&10& " & MyVar .CenterHeader = "&""Tahoma,Gras""&10& " & Sh.Range("A1") .RightHeader = "&""Tahoma,Gras,10" .LeftFooter = "" .CenterFooter = "" .RightFooter = "" End With .PrintPreview End With
End Sub '------------------------------
Salutations!
"Christian.L" a écrit dans le message de news: Bonjour à tous
J'ai enregistrée une macro pour formater mes en têtes de page
With ActiveSheet.PageSetup '.LeftHeader = "&""Tahoma,Gras""&10&" '.CenterHeader = "&""Tahoma,Gras""&10&" '.RightHeader = "&""Tahoma,Gras,10" '.LeftFooter = "" '.CenterFooter = "" '.RightFooter = "" End With
L'inconvénient, c'est qu'après la macro, les textes des en têtes de pages ont été effacés.
Quelqu'un a t'il une idée ?
Merci d'avance
Christian
Christian.L
Bonjour Michdenis
C'est bon, j'ai appliqué ta méthode, ça marche
Merci
Christian
"michdenis" a écrit dans le message de news:
Bonjour Christian,
Je n'ai pas très bien compris ta question, mais tu peux consever le texte dans une variable ou une cellule et l'ajouter au moment de lancer l'impression.
'------------------------------ Sub Imprimer()
Dim Sh As Worksheet Dim MyVar As String
Set Sh = ActiveSheet MyVar = "Bonjour le monde"
With Sh With .PageSetup .LeftHeader = "&""Tahoma,Gras""&10& " & MyVar .CenterHeader = "&""Tahoma,Gras""&10& " & Sh.Range("A1") .RightHeader = "&""Tahoma,Gras,10" .LeftFooter = "" .CenterFooter = "" .RightFooter = "" End With .PrintPreview End With
End Sub '------------------------------
Salutations!
"Christian.L" a écrit dans le message de news: Bonjour à tous
J'ai enregistrée une macro pour formater mes en têtes de page
With ActiveSheet.PageSetup '.LeftHeader = "&""Tahoma,Gras""&10&" '.CenterHeader = "&""Tahoma,Gras""&10&" '.RightHeader = "&""Tahoma,Gras,10" '.LeftFooter = "" '.CenterFooter = "" '.RightFooter = "" End With
L'inconvénient, c'est qu'après la macro, les textes des en têtes de pages ont été effacés.
Quelqu'un a t'il une idée ?
Merci d'avance
Christian
Bonjour Michdenis
C'est bon, j'ai appliqué ta méthode, ça marche
Merci
Christian
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
Ojjxxrw6FHA.1276@TK2MSFTNGP09.phx.gbl...
Bonjour Christian,
Je n'ai pas très bien compris ta question, mais tu peux consever le texte
dans une variable ou une cellule et l'ajouter au moment de
lancer l'impression.
'------------------------------
Sub Imprimer()
Dim Sh As Worksheet
Dim MyVar As String
Set Sh = ActiveSheet
MyVar = "Bonjour le monde"
With Sh
With .PageSetup
.LeftHeader = "&""Tahoma,Gras""&10& " & MyVar
.CenterHeader = "&""Tahoma,Gras""&10& " & Sh.Range("A1")
.RightHeader = "&""Tahoma,Gras,10"
.LeftFooter = ""
.CenterFooter = ""
.RightFooter = ""
End With
.PrintPreview
End With
End Sub
'------------------------------
Salutations!
"Christian.L" <christian.lecossier@voila.fr> a écrit dans le message de
news: ee9DpOs6FHA.2888@tk2msftngp13.phx.gbl...
Bonjour à tous
J'ai enregistrée une macro pour formater mes en têtes de page
With ActiveSheet.PageSetup
'.LeftHeader = "&""Tahoma,Gras""&10&"
'.CenterHeader = "&""Tahoma,Gras""&10&"
'.RightHeader = "&""Tahoma,Gras,10"
'.LeftFooter = ""
'.CenterFooter = ""
'.RightFooter = ""
End With
L'inconvénient, c'est qu'après la macro, les textes des en têtes de
pages ont été effacés.
Je n'ai pas très bien compris ta question, mais tu peux consever le texte dans une variable ou une cellule et l'ajouter au moment de lancer l'impression.
'------------------------------ Sub Imprimer()
Dim Sh As Worksheet Dim MyVar As String
Set Sh = ActiveSheet MyVar = "Bonjour le monde"
With Sh With .PageSetup .LeftHeader = "&""Tahoma,Gras""&10& " & MyVar .CenterHeader = "&""Tahoma,Gras""&10& " & Sh.Range("A1") .RightHeader = "&""Tahoma,Gras,10" .LeftFooter = "" .CenterFooter = "" .RightFooter = "" End With .PrintPreview End With
End Sub '------------------------------
Salutations!
"Christian.L" a écrit dans le message de news: Bonjour à tous
J'ai enregistrée une macro pour formater mes en têtes de page
With ActiveSheet.PageSetup '.LeftHeader = "&""Tahoma,Gras""&10&" '.CenterHeader = "&""Tahoma,Gras""&10&" '.RightHeader = "&""Tahoma,Gras,10" '.LeftFooter = "" '.CenterFooter = "" '.RightFooter = "" End With
L'inconvénient, c'est qu'après la macro, les textes des en têtes de pages ont été effacés.