J'ai trouvé sur le site de Jacques Boisgontier des infos mais je n'ai pas
encore trouvé comment indiquer des enpieds et non des entetes.
Comment indiquer la date du jour sous VBA ?
Comment faire en sorte que cette macro se lance automatiquement à
l'ouverture de ce fichier.
Voilà mes essais :
Sub ModifieEnTete()
Dim n
For i = 1 To Sheets.Count
Sheets(i).Select
ActiveSheet.PageSetup.RightHeader = "Droite"
ActiveSheet.PageSetup.LeftHeader = "Gauche"
ActiveSheet.PageSetup.CenterHeader = "Au centre"
'ActiveWindow.ActiveSheet.PrintPreview
Next i
End Sub
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
isabelle
bonjour Calou,
remplace Header par Footer
isabelle
Calou a écrit :
Bonjour !
J'ai trouvé sur le site de Jacques Boisgontier des infos mais je n'ai pas encore trouvé comment indiquer des enpieds et non des entetes.
Comment indiquer la date du jour sous VBA ? Comment faire en sorte que cette macro se lance automatiquement à l'ouverture de ce fichier.
Voilà mes essais :
Sub ModifieEnTete() Dim n For i = 1 To Sheets.Count Sheets(i).Select ActiveSheet.PageSetup.RightHeader = "Droite" ActiveSheet.PageSetup.LeftHeader = "Gauche" ActiveSheet.PageSetup.CenterHeader = "Au centre" 'ActiveWindow.ActiveSheet.PrintPreview Next i End Sub
Un grand merci à vous.
Bonne soirée.
bonjour Calou,
remplace Header par Footer
isabelle
Calou a écrit :
Bonjour !
J'ai trouvé sur le site de Jacques Boisgontier des infos mais je n'ai pas
encore trouvé comment indiquer des enpieds et non des entetes.
Comment indiquer la date du jour sous VBA ?
Comment faire en sorte que cette macro se lance automatiquement à
l'ouverture de ce fichier.
Voilà mes essais :
Sub ModifieEnTete()
Dim n
For i = 1 To Sheets.Count
Sheets(i).Select
ActiveSheet.PageSetup.RightHeader = "Droite"
ActiveSheet.PageSetup.LeftHeader = "Gauche"
ActiveSheet.PageSetup.CenterHeader = "Au centre"
'ActiveWindow.ActiveSheet.PrintPreview
Next i
End Sub
J'ai trouvé sur le site de Jacques Boisgontier des infos mais je n'ai pas encore trouvé comment indiquer des enpieds et non des entetes.
Comment indiquer la date du jour sous VBA ? Comment faire en sorte que cette macro se lance automatiquement à l'ouverture de ce fichier.
Voilà mes essais :
Sub ModifieEnTete() Dim n For i = 1 To Sheets.Count Sheets(i).Select ActiveSheet.PageSetup.RightHeader = "Droite" ActiveSheet.PageSetup.LeftHeader = "Gauche" ActiveSheet.PageSetup.CenterHeader = "Au centre" 'ActiveWindow.ActiveSheet.PrintPreview Next i End Sub
Un grand merci à vous.
Bonne soirée.
isabelle
et pour la date :
ActiveSheet.PageSetup.RightHeader = Date ou ActiveSheet.PageSetup.RightHeader = Now ou ActiveSheet.PageSetup.RightHeader = Format(Date, "dd-mmmm-yyyy")
isabelle
Calou a écrit :
Bonjour !
J'ai trouvé sur le site de Jacques Boisgontier des infos mais je n'ai pas encore trouvé comment indiquer des enpieds et non des entetes.
Comment indiquer la date du jour sous VBA ? Comment faire en sorte que cette macro se lance automatiquement à l'ouverture de ce fichier.
Voilà mes essais :
Sub ModifieEnTete() Dim n For i = 1 To Sheets.Count Sheets(i).Select ActiveSheet.PageSetup.RightHeader = "Droite" ActiveSheet.PageSetup.LeftHeader = "Gauche" ActiveSheet.PageSetup.CenterHeader = "Au centre" 'ActiveWindow.ActiveSheet.PrintPreview Next i End Sub
Un grand merci à vous.
Bonne soirée.
et pour la date :
ActiveSheet.PageSetup.RightHeader = Date
ou
ActiveSheet.PageSetup.RightHeader = Now
ou
ActiveSheet.PageSetup.RightHeader = Format(Date, "dd-mmmm-yyyy")
isabelle
Calou a écrit :
Bonjour !
J'ai trouvé sur le site de Jacques Boisgontier des infos mais je n'ai pas
encore trouvé comment indiquer des enpieds et non des entetes.
Comment indiquer la date du jour sous VBA ?
Comment faire en sorte que cette macro se lance automatiquement à
l'ouverture de ce fichier.
Voilà mes essais :
Sub ModifieEnTete()
Dim n
For i = 1 To Sheets.Count
Sheets(i).Select
ActiveSheet.PageSetup.RightHeader = "Droite"
ActiveSheet.PageSetup.LeftHeader = "Gauche"
ActiveSheet.PageSetup.CenterHeader = "Au centre"
'ActiveWindow.ActiveSheet.PrintPreview
Next i
End Sub
ActiveSheet.PageSetup.RightHeader = Date ou ActiveSheet.PageSetup.RightHeader = Now ou ActiveSheet.PageSetup.RightHeader = Format(Date, "dd-mmmm-yyyy")
isabelle
Calou a écrit :
Bonjour !
J'ai trouvé sur le site de Jacques Boisgontier des infos mais je n'ai pas encore trouvé comment indiquer des enpieds et non des entetes.
Comment indiquer la date du jour sous VBA ? Comment faire en sorte que cette macro se lance automatiquement à l'ouverture de ce fichier.
Voilà mes essais :
Sub ModifieEnTete() Dim n For i = 1 To Sheets.Count Sheets(i).Select ActiveSheet.PageSetup.RightHeader = "Droite" ActiveSheet.PageSetup.LeftHeader = "Gauche" ActiveSheet.PageSetup.CenterHeader = "Au centre" 'ActiveWindow.ActiveSheet.PrintPreview Next i End Sub
Un grand merci à vous.
Bonne soirée.
michdenis
Dans ce cas ici, ce serait un peu plus long... moi, je n'ai pas vu de commande susceptible de lancer l'impression du fichier. Le demandeur avait une ligne de code comme ceci dans son propos : ActiveWindow.ActiveSheet.PrintPreview Je me demande bien à quoi elle pouvait servir ???
Ceci étant, il y a cet événement situé dans le ThisWorkbook qui peut rendre de fiers services.
Private Sub Workbook_BeforePrint(Cancel As Boolean)
End Sub
;-))
"garnote" a écrit dans le message de groupe de discussion : u$ Ou en plus chic ;-) :
Sub En_Pieds() For i = 1 To Sheets.Count With Sheets(i).PageSetup .LeftFooter = "Le " & Format(Date, "dddd") .CenterFooter = Format(Date, "dd mmmm") .RightFooter = Format(Date, "yyyy") End With Next i End Sub
Peut-on faire plus court ?
Serge
"garnote" a écrit dans le message de news:
Salut Calou,
Un exemple à adapter :
Sub En_Pieds() For i = 1 To Sheets.Count With Sheets(i) .PageSetup.LeftFooter = "Le " & Format(Date, "dddd") .PageSetup.CenterFooter = Format(Date, "dd mmmm") .PageSetup.RightFooter = Format(Date, "yyyy") End With Next i End Sub
Private Sub Workbook_Open() Call En_Pieds End Sub
Serge
"Calou" a écrit dans le message de news:
Bonjour !
J'ai trouvé sur le site de Jacques Boisgontier des infos mais je n'ai pas encore trouvé comment indiquer des enpieds et non des entetes.
Comment indiquer la date du jour sous VBA ? Comment faire en sorte que cette macro se lance automatiquement à l'ouverture de ce fichier.
Voilà mes essais :
Sub ModifieEnTete() Dim n For i = 1 To Sheets.Count Sheets(i).Select ActiveSheet.PageSetup.RightHeader = "Droite" ActiveSheet.PageSetup.LeftHeader = "Gauche" ActiveSheet.PageSetup.CenterHeader = "Au centre" 'ActiveWindow.ActiveSheet.PrintPreview Next i End Sub
Un grand merci à vous.
Bonne soirée.
Dans ce cas ici, ce serait un peu plus long...
moi, je n'ai pas vu de commande susceptible de lancer l'impression du fichier.
Le demandeur avait une ligne de code comme ceci dans son propos :
ActiveWindow.ActiveSheet.PrintPreview
Je me demande bien à quoi elle pouvait servir ???
Ceci étant, il y a cet événement situé dans le ThisWorkbook
qui peut rendre de fiers services.
Private Sub Workbook_BeforePrint(Cancel As Boolean)
End Sub
;-))
"garnote" <garnote3RIEN@videotron.ca> a écrit dans le message de groupe de discussion :
u$pYsa1dJHA.5420@TK2MSFTNGP02.phx.gbl...
Ou en plus chic ;-) :
Sub En_Pieds()
For i = 1 To Sheets.Count
With Sheets(i).PageSetup
.LeftFooter = "Le " & Format(Date, "dddd")
.CenterFooter = Format(Date, "dd mmmm")
.RightFooter = Format(Date, "yyyy")
End With
Next i
End Sub
Peut-on faire plus court ?
Serge
"garnote" <garnote3RIEN@videotron.ca> a écrit dans le message de news:
utWswT1dJHA.3792@TK2MSFTNGP02.phx.gbl...
Salut Calou,
Un exemple à adapter :
Sub En_Pieds()
For i = 1 To Sheets.Count
With Sheets(i)
.PageSetup.LeftFooter = "Le " & Format(Date, "dddd")
.PageSetup.CenterFooter = Format(Date, "dd mmmm")
.PageSetup.RightFooter = Format(Date, "yyyy")
End With
Next i
End Sub
Private Sub Workbook_Open()
Call En_Pieds
End Sub
Serge
"Calou" <ws@trol.com> a écrit dans le message de news:
uVAioD1dJHA.3520@TK2MSFTNGP05.phx.gbl...
Bonjour !
J'ai trouvé sur le site de Jacques Boisgontier des infos mais je n'ai pas encore trouvé
comment indiquer des enpieds et
non des entetes.
Comment indiquer la date du jour sous VBA ?
Comment faire en sorte que cette macro se lance automatiquement à l'ouverture de ce
fichier.
Voilà mes essais :
Sub ModifieEnTete()
Dim n
For i = 1 To Sheets.Count
Sheets(i).Select
ActiveSheet.PageSetup.RightHeader = "Droite"
ActiveSheet.PageSetup.LeftHeader = "Gauche"
ActiveSheet.PageSetup.CenterHeader = "Au centre"
'ActiveWindow.ActiveSheet.PrintPreview
Next i
End Sub
Dans ce cas ici, ce serait un peu plus long... moi, je n'ai pas vu de commande susceptible de lancer l'impression du fichier. Le demandeur avait une ligne de code comme ceci dans son propos : ActiveWindow.ActiveSheet.PrintPreview Je me demande bien à quoi elle pouvait servir ???
Ceci étant, il y a cet événement situé dans le ThisWorkbook qui peut rendre de fiers services.
Private Sub Workbook_BeforePrint(Cancel As Boolean)
End Sub
;-))
"garnote" a écrit dans le message de groupe de discussion : u$ Ou en plus chic ;-) :
Sub En_Pieds() For i = 1 To Sheets.Count With Sheets(i).PageSetup .LeftFooter = "Le " & Format(Date, "dddd") .CenterFooter = Format(Date, "dd mmmm") .RightFooter = Format(Date, "yyyy") End With Next i End Sub
Peut-on faire plus court ?
Serge
"garnote" a écrit dans le message de news:
Salut Calou,
Un exemple à adapter :
Sub En_Pieds() For i = 1 To Sheets.Count With Sheets(i) .PageSetup.LeftFooter = "Le " & Format(Date, "dddd") .PageSetup.CenterFooter = Format(Date, "dd mmmm") .PageSetup.RightFooter = Format(Date, "yyyy") End With Next i End Sub
Private Sub Workbook_Open() Call En_Pieds End Sub
Serge
"Calou" a écrit dans le message de news:
Bonjour !
J'ai trouvé sur le site de Jacques Boisgontier des infos mais je n'ai pas encore trouvé comment indiquer des enpieds et non des entetes.
Comment indiquer la date du jour sous VBA ? Comment faire en sorte que cette macro se lance automatiquement à l'ouverture de ce fichier.
Voilà mes essais :
Sub ModifieEnTete() Dim n For i = 1 To Sheets.Count Sheets(i).Select ActiveSheet.PageSetup.RightHeader = "Droite" ActiveSheet.PageSetup.LeftHeader = "Gauche" ActiveSheet.PageSetup.CenterHeader = "Au centre" 'ActiveWindow.ActiveSheet.PrintPreview Next i End Sub
Un grand merci à vous.
Bonne soirée.
Calou
Bonjour,
Un grand merci à vous pour vos réponses aussi précises que rapides. J'ai trouvé exactement ce que je voulais.
Bonne journée.
"michdenis" a écrit dans le message de news:
Dans ce cas ici, ce serait un peu plus long... moi, je n'ai pas vu de commande susceptible de lancer l'impression du fichier. Le demandeur avait une ligne de code comme ceci dans son propos : ActiveWindow.ActiveSheet.PrintPreview Je me demande bien à quoi elle pouvait servir ???
Ceci étant, il y a cet événement situé dans le ThisWorkbook qui peut rendre de fiers services.
Private Sub Workbook_BeforePrint(Cancel As Boolean)
End Sub
;-))
"garnote" a écrit dans le message de groupe de discussion : u$ Ou en plus chic ;-) :
Sub En_Pieds() For i = 1 To Sheets.Count With Sheets(i).PageSetup .LeftFooter = "Le " & Format(Date, "dddd") .CenterFooter = Format(Date, "dd mmmm") .RightFooter = Format(Date, "yyyy") End With Next i End Sub
Peut-on faire plus court ?
Serge
"garnote" a écrit dans le message de news:
Salut Calou,
Un exemple à adapter :
Sub En_Pieds() For i = 1 To Sheets.Count With Sheets(i) .PageSetup.LeftFooter = "Le " & Format(Date, "dddd") .PageSetup.CenterFooter = Format(Date, "dd mmmm") .PageSetup.RightFooter = Format(Date, "yyyy") End With Next i End Sub
Private Sub Workbook_Open() Call En_Pieds End Sub
Serge
"Calou" a écrit dans le message de news:
Bonjour !
J'ai trouvé sur le site de Jacques Boisgontier des infos mais je n'ai pas encore trouvé comment indiquer des enpieds et non des entetes.
Comment indiquer la date du jour sous VBA ? Comment faire en sorte que cette macro se lance automatiquement à l'ouverture de ce fichier.
Voilà mes essais :
Sub ModifieEnTete() Dim n For i = 1 To Sheets.Count Sheets(i).Select ActiveSheet.PageSetup.RightHeader = "Droite" ActiveSheet.PageSetup.LeftHeader = "Gauche" ActiveSheet.PageSetup.CenterHeader = "Au centre" 'ActiveWindow.ActiveSheet.PrintPreview Next i End Sub
Un grand merci à vous.
Bonne soirée.
Bonjour,
Un grand merci à vous pour vos réponses aussi précises que rapides. J'ai
trouvé exactement ce que je voulais.
Bonne journée.
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
06146E8D-DD5C-4991-A3FB-3FBCF0CD8999@microsoft.com...
Dans ce cas ici, ce serait un peu plus long...
moi, je n'ai pas vu de commande susceptible de lancer l'impression du
fichier.
Le demandeur avait une ligne de code comme ceci dans son propos :
ActiveWindow.ActiveSheet.PrintPreview
Je me demande bien à quoi elle pouvait servir ???
Ceci étant, il y a cet événement situé dans le ThisWorkbook
qui peut rendre de fiers services.
Private Sub Workbook_BeforePrint(Cancel As Boolean)
End Sub
;-))
"garnote" <garnote3RIEN@videotron.ca> a écrit dans le message de groupe de
discussion :
u$pYsa1dJHA.5420@TK2MSFTNGP02.phx.gbl...
Ou en plus chic ;-) :
Sub En_Pieds()
For i = 1 To Sheets.Count
With Sheets(i).PageSetup
.LeftFooter = "Le " & Format(Date, "dddd")
.CenterFooter = Format(Date, "dd mmmm")
.RightFooter = Format(Date, "yyyy")
End With
Next i
End Sub
Peut-on faire plus court ?
Serge
"garnote" <garnote3RIEN@videotron.ca> a écrit dans le message de news:
utWswT1dJHA.3792@TK2MSFTNGP02.phx.gbl...
Salut Calou,
Un exemple à adapter :
Sub En_Pieds()
For i = 1 To Sheets.Count
With Sheets(i)
.PageSetup.LeftFooter = "Le " & Format(Date, "dddd")
.PageSetup.CenterFooter = Format(Date, "dd mmmm")
.PageSetup.RightFooter = Format(Date, "yyyy")
End With
Next i
End Sub
Private Sub Workbook_Open()
Call En_Pieds
End Sub
Serge
"Calou" <ws@trol.com> a écrit dans le message de news:
uVAioD1dJHA.3520@TK2MSFTNGP05.phx.gbl...
Bonjour !
J'ai trouvé sur le site de Jacques Boisgontier des infos mais je n'ai
pas encore trouvé
comment indiquer des enpieds et
non des entetes.
Comment indiquer la date du jour sous VBA ?
Comment faire en sorte que cette macro se lance automatiquement à
l'ouverture de ce
fichier.
Voilà mes essais :
Sub ModifieEnTete()
Dim n
For i = 1 To Sheets.Count
Sheets(i).Select
ActiveSheet.PageSetup.RightHeader = "Droite"
ActiveSheet.PageSetup.LeftHeader = "Gauche"
ActiveSheet.PageSetup.CenterHeader = "Au centre"
'ActiveWindow.ActiveSheet.PrintPreview
Next i
End Sub
Un grand merci à vous pour vos réponses aussi précises que rapides. J'ai trouvé exactement ce que je voulais.
Bonne journée.
"michdenis" a écrit dans le message de news:
Dans ce cas ici, ce serait un peu plus long... moi, je n'ai pas vu de commande susceptible de lancer l'impression du fichier. Le demandeur avait une ligne de code comme ceci dans son propos : ActiveWindow.ActiveSheet.PrintPreview Je me demande bien à quoi elle pouvait servir ???
Ceci étant, il y a cet événement situé dans le ThisWorkbook qui peut rendre de fiers services.
Private Sub Workbook_BeforePrint(Cancel As Boolean)
End Sub
;-))
"garnote" a écrit dans le message de groupe de discussion : u$ Ou en plus chic ;-) :
Sub En_Pieds() For i = 1 To Sheets.Count With Sheets(i).PageSetup .LeftFooter = "Le " & Format(Date, "dddd") .CenterFooter = Format(Date, "dd mmmm") .RightFooter = Format(Date, "yyyy") End With Next i End Sub
Peut-on faire plus court ?
Serge
"garnote" a écrit dans le message de news:
Salut Calou,
Un exemple à adapter :
Sub En_Pieds() For i = 1 To Sheets.Count With Sheets(i) .PageSetup.LeftFooter = "Le " & Format(Date, "dddd") .PageSetup.CenterFooter = Format(Date, "dd mmmm") .PageSetup.RightFooter = Format(Date, "yyyy") End With Next i End Sub
Private Sub Workbook_Open() Call En_Pieds End Sub
Serge
"Calou" a écrit dans le message de news:
Bonjour !
J'ai trouvé sur le site de Jacques Boisgontier des infos mais je n'ai pas encore trouvé comment indiquer des enpieds et non des entetes.
Comment indiquer la date du jour sous VBA ? Comment faire en sorte que cette macro se lance automatiquement à l'ouverture de ce fichier.
Voilà mes essais :
Sub ModifieEnTete() Dim n For i = 1 To Sheets.Count Sheets(i).Select ActiveSheet.PageSetup.RightHeader = "Droite" ActiveSheet.PageSetup.LeftHeader = "Gauche" ActiveSheet.PageSetup.CenterHeader = "Au centre" 'ActiveWindow.ActiveSheet.PrintPreview Next i End Sub
