Discussion :

[Delphi-ne]

Bonjour,

Je dois modifier une applciation fonctionnant sous Delpli 7 et pilotant Excel via OLE
Les pages Excel sont dotées de pieds de page.

Avec Office 2003 le code était le suivant

Code :

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

1
2
3
4
5
6
7
8
9
10
     worksheet.PageSetup.RightFooter:= '&''Arial''' 
              + '&8'
              + bloc
              + Chr(13)
              + 'Généré le '+FormatDateTime('dd/mm/yyyy'' à ''hh:mm',Now)
              + Chr(13)
              + bd
              + Chr(13)
              + app_GetInternalName + ' ' +app_GetFileVersion
              + Chr(13);

Sous Office 2010 le nom de la police n'est pas interprêté et apparaît tel quel

Pourtant sous Excel quand je regarde le code VBA pour le nom de police le code est assez semblable

Code :

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

worksheet.PageSetup.RightFooter = "&""Arial,Gras""&8texte du pied de page"

[Delphi-ne]

Si ma question n'est pas claire je peux apporter les précisions nécessaires.
Actuellement ce problème devient bloquant parce que la taille du pied de page étant trop importante cela prose problème pour l'édition

Merci de vos idées

[SergioMaster]

Pourtant sous Excel quand je regarde le code VBA pour le nom de police le code est assez semblable

Bonjour,

Assez semblable oui , mais peut être pas assez : le code delphi fourni la valeur avec des Quotes ' , le code VBA des guillemets "
cela pourrait-il jouer ? as-tu fais un essai ?

[Delphi-ne]

Merci pour le retour SergioMaster.

J'ai réussi à modifier la taille de police avec la syntaxe suivante :

Code :

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

    worksheet.PageSetup.RightFooter:= '&8' + bloc;

Je ne suis pas arrivé à modifier le nom de police.
L'utilisation de " les faisait apparaître tel quel avec les libellés.

Changer la taille de police a résolu de problème de dépassement de marge qui bloquait l'édition du pied de page.
C'est moyen pour la présentation.