XL 2010 VBA Modification de l’en-tete

[BigJose]

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 ?

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]

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]

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

 

[Phil69970]

@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]

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]

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]

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]

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