XL 2010 VBA Modification de l’en-tete

BigJose · 25 Février 2022

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

BigJose · 25 Février 2022

Marcel32 à dit:
Il était à l'intérieur du With, ou juste avant le With comme dans la macro que j'ai donnée en exemple ?

C’était avant le With . Comme dans ton code.

Je ne comprend pas pourquoi cela ne fonctionne pas avec cette ligne de code.

TooFatBoy · 25 Février 2022

Hélas, je ne saurais te dire...

Phil69970 · 25 Février 2022

@Marcel32

Marcel32 à dit:
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 · 25 Février 2022

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 · 25 Février 2022

Re

Et pour revenir à

Application.PrintCommunication

Bilou nous dit :

Propriété Application.PrintCommunication (Excel)

Rubrique de référence sur Office VBA

docs.microsoft.com

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

TooFatBoy · 25 Février 2022

Phil69970 à dit:
En clair bloque la com avec l'imprimante puis remets la com avec l'imprimante.

Je me doutais un peu que c'était ça, et c'est pour ça que je m'étais un peu avancé en disant en #6 : "activation de la communication avec l'imprimante".

Merci pour ton lien. Je vais aller le lire avec intérêt.

BigJose · 25 Février 2022

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

XL 2010 VBA Modification de l’en-tete

BigJose

XLDnaute Nouveau

BigJose

XLDnaute Nouveau

TooFatBoy

XLDnaute Barbatruc

Phil69970

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

Phil69970

XLDnaute Barbatruc

Propriété Application.PrintCommunication (Excel)

TooFatBoy

XLDnaute Barbatruc

BigJose

XLDnaute Nouveau

Discussions similaires