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.
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.
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
Tu aurais un exemple de code car la, je suis completement perdue...
Je vais essayer de te créer un exemple avec OLE d'ici 30minutes
Voici l'exemple:
il faut décalrer dans la section uses
comObj, ComCtrls
initialisation:
et le code proprement dit:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3 var MsExcel: Variant; var NomDoc:string;
j'ai testé ça marche
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);
Bon courage
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager