Discussion :

[ms91fr]

Bonjour,

J'utilise un composant, le TExcelApplication et j'aimerais avoir si il y a un moyen de redefinir les marges de la mise en page avec ce composant...ou un autre...

Merci a tous de votre aide.

[cprogil]

Souvent, lorsque j'ai besoin de réaliser des opérations dans excel, je crée une macro dans le tableau et je l'exécute

[ms91fr]

Tu aurais un exemple de code car la, je suis completement perdue...

[cprogil]

Je vais essayer de te créer un exemple avec OLE d'ici 30minutes

[cprogil]

Voici l'exemple:
il faut décalrer dans la section uses
comObj, ComCtrls

initialisation:

Code :

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

1
2
3
 
var MsExcel: Variant;
var NomDoc:string;

et le code proprement dit:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
    nomdoc := Nomdoc + '.xlt';
    try
     MsExcel := CreateOleObject('Excel.Application.9');
    except
     ShowMessage('Impossible de lancer Excel');
     Screen.Cursor := crDefault;
    exit;
    end;
    msExcel.workbooks.add (template:= NomDoc);
    // valeur des marges données en pouces dans l'exemple 1cm
    msExcel.ActiveSheet.PageSetup.LeftMargin :=       msExcel.Application.InchesToPoints(0.393700787401575);
        msExcel.ActiveSheet.PageSetup.RightMargin := msExcel.Application.InchesToPoints(0.393700787401575);

j'ai testé ça marche

Bon courage