Discussion :

[jacfld49]

Bonsoir le forum,

j'ai ce code ci-dessous ou je voudrais inséerer une image dans l'en tête mais il bug
merci de votre aide

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Sub PlacementSurLaLigne(ByVal WsName As String)
        Dim MaPlage As Range
        Dim Derlig As Long
 
        With ThisWorkbook.Worksheets(WsName)
            Derlig = .Range("EL" & .Rows.Count).End(xlUp).Row
        Columns("EM:EM").EntireColumn.Hidden = True
        Columns("EO:EY").EntireColumn.Hidden = True
             With .PageSetup
                .PrintArea = "EI1:EY" & Derlig
LeftHeaderPicture.Filename = "C:\Users\Jacky\Logo.jpg"
                .CenterHeader = "Times New Roman"
                .CenterHeader = [EN5]
                .RightHeader = "Essai 2"
        '        .LeftFooter = ""
                .CenterFooter = ""
        '        .RightFooter = ""
            End With
            .PrintOut Copies:=4, Collate:=True
        End With
        End Sub

[Invité]

Bonjour

il bug où ? Sur quelle ligne ? Un message d'erreur ?

Comment on peut deviner

Philippe

[jacfld49]

Bonjour le forum,Philippe,

oui il bug sur cette ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

LeftHeaderPicture.Filename = "C:\Users\Jacky\Logo.jpg"

J'ai vérifié le chemin d'accès en faisant propriété sur l'image donc je ne vois pas pourquoi
merci de votre aide
jac

j'ai essayé d'adapter ce code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Sub InsertImage()
 
    With ActiveSheet.PageSetup.LeftHeaderPicture
        .FileName = "C:\Sample.jpg
    End With
    ActiveSheet.PageSetup.LeftHeader = "&G"
 
End Sub

en le changeant un peu mais des que je l'adapte , il me surligne la 1ère ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Sub PlacementSurLaLigne(ByVal WsName As String)

merci de votre aide
jac

Voici ce que j'ai essayé de faire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Sub PlacementSurLaLigne(ByVal WsName As String)
Dim MaPlage As Range
Dim Derlig As Long
 
With ThisWorkbook.Worksheets(WsName)
    Derlig = .Range("EL" & .Rows.Count).End(xlUp).Row
Columns("EM:EM").EntireColumn.Hidden = True
Columns("EO:EY").EntireColumn.Hidden = True
     With .PageSetup.LeftHeaderPicture
        .PrintArea = "EI1:EY" & Derlig
        .Filename = "C:\Utilisateurs\Jacky\Mes Images\Logo.jpg"
        .CenterHeader = "Times New Roman"
        .CenterHeader = [EN5]
        .RightHeader = ""
'        .LeftFooter = ""
        .CenterFooter = ""
'        .RightFooter = ""
.PrintArea = "EI1:EY" & Derlig
    End With
    .PageSetup.LeftHeader = "&G"
    .PrintOut Copies:=4, Collate:=True
End With
End Sub

mais qui ne fonctionne pas, soit ça me surligne la 1ère ligne la ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

.PrintArea = "EI1:EY" & Derlig

merci

[jacfld49]

Bonsoir le forum,
Donc, je suis passé par une autre solution pour pouvoir me servir du code insertImage et je souhaiterais maintenant mettre l'image à Gauche et à Droite mais j'essaie en vain, je vous joins le code que j'ai essayé d'adapter

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub insertionImage_EntetePage()
 
With ActiveSheet.PageSetup.LeftHeaderPicture
    .Filename = "C:\Users\Jacky\Documents\Logo à moi.jpg"
'    .Height = 40 '<-- redéfinit la largeur de l'image
'    .Width = 80 '<-- redéfinit la hauteur de l'image
End With
With ActiveSheet.PageSetup.RightHeaderPicture
    .Filename = "C:\Users\Jacky\Documents\Logo à moi.jpg"
'    .Height = 40 '<-- redéfinit la largeur de l'image
'    .Width = 80 '<-- redéfinit la hauteur de l'image
End With
ActiveSheet.PageSetup.LeftHeader = "&G" '<-- ajout du code &G
ActiveSheet.PageSetup.RightHeader = "&D" '<-- ajout du code &D
 
End Sub

merci de votre aide
jac
Edit: j'ai oublier de dire que cela ne bug pas mais l'image ne s'affiche quà gauche et pas à Droite
merci

[jacfld49]

Bonsoir,

Donc , j'ai réussi , cela fonctionne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub insertionImage_EntetePage()
Application.ScreenUpdating = False
With ActiveSheet.PageSetup.LeftHeaderPicture 'emplacement à gauche
With ActiveSheet.PageSetup.RightHeaderPicture 'emplacement à droite
.Filename = "C:\Users\Jacky\Documents\Logo à moi.jpg"
.Height = 40 ' redéfinit la largeur de l'image
.Width = 80 ' redéfinit la hauteur de l'image
End With
 
'Remarque Il est nécessaire que « &G » fasse partie de la chaîne
'de la propriété LeftHeader afin que l'image s'affiche dans l'en-tête gauche
'info issue de l'aide en ligne Excel
ActiveSheet.PageSetup.LeftHeader = "&G" 'emplacement à gauche
ActiveSheet.PageSetup.RightHeader = "&G" 'emplacement à droite
End With
Application.ScreenUpdating = True
End Sub

mais est il possible d'avoir dans le code ci-dessous l'ecriture en gras ,italique et en grosseur 14 dans la ligne: centerheader

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Sub PlacementSurLaLigne(ByVal WsName As String)
Application.ScreenUpdating = False
Dim MaPlage As Range
Dim Derlig As Long
 
 
With ThisWorkbook.Worksheets(WsName)
    Derlig = .Range("EL" & .Rows.Count).End(xlUp).Row
Columns("EM:EM").EntireColumn.Hidden = True
Columns("EO:EY").EntireColumn.Hidden = True
     With .PageSetup
        .PrintArea = "EI1:EY" & Derlig
'        .LeftHeader = ""
        .CenterHeader = "Times New Roman"
        .CenterHeader = [EN5]
'        .RightHeader = ""
'        .LeftFooter = ""
        .CenterFooter = ""
'        .RightFooter = ""
    End With
    .PrintOut Copies:=4, Collate:=True
End With
Call insertionImage_EntetePage
Application.ScreenUpdating = True
End Sub

merci d'avance
jac

[jacfld49]

Bonsoir le forum,

une idée pour mettre en gras et une grosseur de police de 14
merci
jac