Code ne fonctionne plus Résolu

[jacky49]

Bonsoir le forum,

j'ai ce code ci-dessous :

Sub ImprimerVeterans_S()
Application.ScreenUpdating = False
Dim Ws As Worksheet
Dim MaPlage As Range
    Set Ws = Worksheets("VeteransHommes")
    Derlig = Ws.Range("W" & Ws.Rows.Count).End(xlUp).Row
    Set MaPlage = Ws.Range("T1:Z" & Derlig)
    Ws.PageSetup.PrintArea = MaPlage.Address
       '.LeftFooter = ""
       .CenterFooter = "Ecrire ce que je veux"
'        .RightFooter = ""

    
    Ws.PrintOut Copies:=4, Collate:=True
Application.ScreenUpdating = True
Call insertionImage_EntetePage2
End Sub

qui fonctionnait bien et j'ai ajouté des colonne avant ce tableau et j'ai donc remis les lettres des colonnes mais depuis il me met :Erreur de compilation: Référence incorrect ou non qualifié et il me surligne la ligne :

.CenterFooter =

et dans celui-ci, je demande qu'il me mette une image de chaque coté mail ne me met l'image qu'en haut à droite

Sub insertionImage_EntetePage2()
Application.ScreenUpdating = False
With ActiveSheet.PageSetup.LeftHeaderPicture 'emplacement à gauche
With ActiveSheet.PageSetup.RightHeaderPicture 'emplacement à droite
.Filename = "C:\Users\Jacky\Documents\Logo Trois à 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

merci de votre aide
jacky

 

[Pierrot93]

Re : Code ne fonctionne plus

Bonjour,

vois pas le "with" à laquelle doit s'appliquer cette instruction :

With ActiveSheet.PageSetup

ne pas omettre aussi le "end with"..

bon après midi
@+

 

[jacky49]

Re : Code ne fonctionne plus

Re Pierrot,

Il y a bien end with 2 fois et les codes fonctionnait avant que je n'ajoute des colonnes
merci
jacky

 

[Pierrot93]

Re : Code ne fonctionne plus

Re,

Il y a bien end with 2 fois

pas dans ce que tu monttres dans le premier code....

 

[jacky49]

Re : Code ne fonctionne plus

Re Pierrot,

dans ce code

Sub ImprimerVeterans_S()
Application.ScreenUpdating = False
Dim Ws As Worksheet
Dim MaPlage As Range
    Set Ws = Worksheets("VeteransHommes")
    Derlig = Ws.Range("W" & Ws.Rows.Count).End(xlUp).Row
    Set MaPlage = Ws.Range("T1:Z" & Derlig)
    Ws.PageSetup.PrintArea = MaPlage.Address
       '.LeftFooter = ""
       '.CenterFooter = "Ecrire ce que je veux"
'        .RightFooter = ""

    
    Ws.PrintOut Copies:=4, Collate:=True
Application.ScreenUpdating = True
Call insertionImage_EntetePage2
End Sub

il n'y a pas de with ou end with
et dans celui ci, il y a bien les 2

Sub insertionImage_EntetePage2()
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

merci

 

[Pierrot93]

Re : Code ne fonctionne plus

Re,

bah..; c'esdt bien ce que je dit... et pourtant tu as cette ligne :

.CenterFooter = "Ecrire ce que je veux"

 

[jacky49]

Re : Code ne fonctionne plus

Re,
je viens de remettre les codes dans le message #5 car je ne comprends pas ou est l'oubli
merci

 

[Pierrot93]

Re : Code ne fonctionne plus

Re,

la ligne en question est en commentaire cette fois....

 

[jacky49]

Re : Code ne fonctionne plus

re,

je ne comprends pas ??
merci

 

[Pierrot93]

Re : Code ne fonctionne plus

Re,

essaye ceci :

Sub ImprimerVeterans_S()
Application.ScreenUpdating = False
Dim Ws As Worksheet
Dim MaPlage As Range
    Set Ws = Worksheets("VeteransHommes")
    Derlig = Ws.Range("W" & Ws.Rows.Count).End(xlUp).Row
    Set MaPlage = Ws.Range("T1:Z" & Derlig)
with Ws.PageSetup
.PrintArea = MaPlage.Address
       '.LeftFooter = ""
       .CenterFooter = "Ecrire ce que je veux"
'        .RightFooter = ""

end With    
    Ws.PrintOut Copies:=4, Collate:=True
Application.ScreenUpdating = True
Call insertionImage_EntetePage2
End Sub

 

[Pierrot93]

Re : Code ne fonctionne plus

Re,

pour ton 2ème problème, 2 blocs "with" bien distincts :

With ActiveSheet.PageSetup.LeftHeaderPicture
.Filename = "C:\Users\Jacky\Documents\Logo Trois à 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 'emplacement à droite
.Filename = "C:\Users\Jacky\Documents\Logo Trois à moi.jpg"
.Height = 40 ' redéfinit la largeur de l'image
.Width = 80 ' redéfinit la hauteur de l'image
End With

 

[jacky49]

Re : Code ne fonctionne plus

Re Pierrot,

Merci beaucoup, cela fonctionne impeccable
bon réveillon
jacky

 

[Pierrot93]

Re : Code ne fonctionne plus

Re,

merci, à toi également.