XL 2010 VBA Modification de l’en-tete

BigJose

XLDnaute Nouveau
Bonjour,

premier message sur ce forum.

j’ai un soucie avec l’en tête sur une feuille Excel.

le but est de de récupérer le numéro et la version du doc dans les casses du fichiers Excel.

Le truc étrange c’est que cela fonctionne en mode pas à pas mais pas quand je lance la macro.

Sachant que c’est les derniers lignes de mon programme.

Auriez-vous une idée ?

VB:
With ActiveSheet.PageSetup
    .LeftHeader = "N° : " + CStr(Cells(1, 2).Value) + " Iss : " + CStr(Cells(2, 2).Value)
    .RightHeader = "Page : &P/&N"
    .LeftMargin = Application.InchesToPoints(0.7)
    .RightMargin = Application.InchesToPoints(0.7)
    .TopMargin = Application.InchesToPoints(0.75)
    .BottomMargin = Application.InchesToPoints(0.75)
    .HeaderMargin = Application.InchesToPoints(0.3)
    .FooterMargin = Application.InchesToPoints(0.3)
    .Zoom = 100
    .PrintErrors = xlPrintErrorsDisplayed
    .OddAndEvenPagesHeaderFooter = False
    .DifferentFirstPageHeaderFooter = False
    .ScaleWithDocHeaderFooter = True
    .AlignMarginsHeaderFooter = True
End With
Application.PrintCommunication = True

End Sub
 

Phil69970

XLDnaute Barbatruc
@Marcel32

Pardon @Phil69970, mais tu lui as dit de supprimer Application.PrintCommunication = True en fin de configuration.

Lui, dit qu'il a supprimé Application.PrintCommunication = False en début de configuration.

Dans le code du post #1 ...
Application.PrintCommunication
.... est juste en fin de macro c'est pourquoi je lui ai dit de le supprimer et j'ai donné 2 lignes de code à lui substituer
-1 pour la prévisualisation (optionnel)
-1 pour l'impression

Si j'avais eu la totalité de son code je lui aurais dit de supprimer l'autre;)
Application.PrintCommunication

D’où l’intérêt du demandeur de mettre à disposition la totalité des éléments plutôt que de feuilletonné sa demande.

@Phil69970
 

TooFatBoy

XLDnaute Barbatruc
Je voulais seulement dire que supprimer un True en fin de macro et supprimer un False en début de macro sont deux choses totalement différentes. C'est tout.
Ce n'était pas une critique. Aucun jugement de ma part sur l'aide que tu as apportée.

Et je suis bien sûr d'accord avec toi qu'il vaut mieux avoir toutes les données au départ et même qu'un petit classeur anonymisé est toujours le bienvenu. ;)
 

Phil69970

XLDnaute Barbatruc
Re

Et pour revenir à
Application.PrintCommunication

Bilou nous dit :

1645790166731.png



En clair bloque la com avec l'imprimante puis remets la com avec l'imprimante.

Perso j'ai jamais vu de ligne de code avec cette commande.

@Phil69970
 

BigJose

XLDnaute Nouveau
C’est en fessant un nouveau fichier sans contenue professionnel que je me suis rendue compte que le code simple fonctionnait

J’ai fait plusieurs essais avec plus ou moins de code. C’est comme ça que j’ai trouvé la ligne qui me posait problème.

Merci pour votre aide :)
 

Discussions similaires

Statistiques des forums

Discussions
311 725
Messages
2 081 949
Membres
101 851
dernier inscrit
vaiata