Bonjour à tous,
Je cherche a insérer par VBA des logos sur mon classeur, et qu'ils soient différenciés entre la première page et les suivantes.
Je brode autour du code ci-après, mais les logos s'insèrent à l'entier du document et non pas selon mon besoin..
J'ai vu qu'il existe: PageSetup.FirstPage.RightHeader mais je ne sais pas en tirer partie.
- Est-ce que quelqu'un pourrait me venir en aide ?
Je vous remercie d'avance pour votre aide et vous souhaite une très bonne journée.
--------------------------------------------------
MonChemin = "C:\Users\xxxx\Pictures\"
MonPetitLogo = "Logo_300dpi.JPG"
MonGrandLogo = "Logo Grand.jpg"
EmplacementMonPetitLogo = MonChemin & MonPetitLogo
EmplacementMonGrandLogo = MonChemin & MonGrandLogo
Application.PrintCommunication = False
With ActiveSheet.PageSetup.RightHeaderPicture ' ici: ActiveSheet.PageSetup.FirstPage.RightHeader ne fonctionne pas
.Filename = EmplacementMonGrandLogo
.Height = 51 'hauteur
.Width = 123.75 'largeur
End With
ActiveSheet.PageSetup.RightHeader = "&G"' A quoi sert exactement ce code et est-ce qu'on ne peur pas l'intégrer directement dans le With ci-dessus?
ActiveSheet.PageSetup.LeftHeaderPicture.Filename = EmplacementMonPetitLogo
With ActiveSheet.PageSetup.LeftHeaderPicture
.Height = 24 'hauteur
.Width = 17.25 'largeur
End With
ActiveSheet.PageSetup.LeftHeader = "&G"'actualise l'en-tête
Application.PrintCommunication = True
ActiveWindow.SelectedSheets.PrintPreview
-------------------------------------------------------------------------------------------------------------
Je cherche a insérer par VBA des logos sur mon classeur, et qu'ils soient différenciés entre la première page et les suivantes.
Je brode autour du code ci-après, mais les logos s'insèrent à l'entier du document et non pas selon mon besoin..
J'ai vu qu'il existe: PageSetup.FirstPage.RightHeader mais je ne sais pas en tirer partie.
- Est-ce que quelqu'un pourrait me venir en aide ?
Je vous remercie d'avance pour votre aide et vous souhaite une très bonne journée.
--------------------------------------------------
MonChemin = "C:\Users\xxxx\Pictures\"
MonPetitLogo = "Logo_300dpi.JPG"
MonGrandLogo = "Logo Grand.jpg"
EmplacementMonPetitLogo = MonChemin & MonPetitLogo
EmplacementMonGrandLogo = MonChemin & MonGrandLogo
Application.PrintCommunication = False
With ActiveSheet.PageSetup.RightHeaderPicture ' ici: ActiveSheet.PageSetup.FirstPage.RightHeader ne fonctionne pas
.Filename = EmplacementMonGrandLogo
.Height = 51 'hauteur
.Width = 123.75 'largeur
End With
ActiveSheet.PageSetup.RightHeader = "&G"' A quoi sert exactement ce code et est-ce qu'on ne peur pas l'intégrer directement dans le With ci-dessus?
ActiveSheet.PageSetup.LeftHeaderPicture.Filename = EmplacementMonPetitLogo
With ActiveSheet.PageSetup.LeftHeaderPicture
.Height = 24 'hauteur
.Width = 17.25 'largeur
End With
ActiveSheet.PageSetup.LeftHeader = "&G"'actualise l'en-tête
Application.PrintCommunication = True
ActiveWindow.SelectedSheets.PrintPreview
-------------------------------------------------------------------------------------------------------------