Creer un document word

Version imprimable

04/06/2007, 21h51
KOUTO

Creer un document word

Bonsoir à tous et à toutes.

Voila j'ai une fiche Word qui et un devis vierge que l'on doit renseigner et envoyer à des utilisaterus de la société qui souhaite changer de pc.

Je souhaiterais savoir si il est possible via des Tedit ou combobox ou listbox de remplir dans une application les champs et de les exportés vers mon documents word et enregistré celui-ci?

l'envoi par mail de ce fichier serait en mieux mais je n'en suis pas la ... lol quelqu'un sait si cela est réalisable?

Merci de vos réponses.

Kouto
04/06/2007, 22h27
defluc

C'est tout à fait possible en utilisant les objets OLE Automation.
04/06/2007, 22h36
KOUTO

peux tu m'eclairer un peut plus... aurais tu un exemple?
04/06/2007, 22h39
markk

Slt, regarde un peu la FAQ, tout y est expliqué....

http://delphi.developpez.com/faq/?page=msoffice

A+
04/06/2007, 22h56
KOUTO

ok je vais voir sa merci

en tout cas si quelqu'un à des exemple je suis preneur !

:king:
05/06/2007, 11h15
Gilbert Geyer

Si tu cherches un exemple d'application d'un pilotage de Word avec une appli-Delphi tu peux télécharger ici sur ce forum le fichier PiloterWord.zip
Y'a-k'a utiliser la fonction "recherche dans ce forum" (page 1 du forum) avec le mot-clef PiloterWord.zip le fichier est joint au message du 15/03/2007, 13h07.

L'exemple traité est relativement pédagique et couvre de plus pas mal de possibilités ... et en prime il marche !(lol).
05/06/2007, 12h03
KOUTO
c'est bon j'ai regarder et en fait c'est avec ole excel que je travail mais j'ai un soucis:

je sais que l'on doit declarer: ComObj et Variants
(je suis sous delphi 2006)

des que je tape OleApplication. et la j'attend des proposition de delphi il me marque rien?! alors je le fait a la main.
Code:

1 2 3 4 var oleapplication : variant OleApplication.range['A11'].select;
mais il me souligne constamment select par contre le programme tourne sans problème?:roll:
05/06/2007, 16h20
Gilbert Geyer

Citation:

en fait c'est avec ole excel que je travail

... dans ce cas places le tag [Résolu] devant l'intitulé " .. créer un document Word" de cette discussion pour en ouvrir une autre avec un intitulé qui nomme clairement ton besoin. Vaut mieux appeler un chat un chat ce sera plus clair pour tout le monde.

Place Excel_Tlb dans la clause use de ta fiche.
Le code de l'unité Excel_TLB.pas est généré par la bibliothèque
EXCEL8.OLB (pour Excel 97)
EXCEL9.OLB (pour Excel 2000)
EXcel10....
Utilise les déclarations suivantes :

Code:

1
2
3
4
5
6
7
8
9
10
11
var
Var
  XlApp : _Application;
  Sheetheets: Sheets;
  Sheet : _WorkSheet;
  Wbk : _WorkBook;
  Lcid : Integer;
  Unknown: IUnknown;
  Result: HResult;
  ClassID: TCLSID;
  strOLEObject: string;

Et c'est parti :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
  strOLEObject := 'Excel.Application';
  if (CLSIDFromProgID(PWideChar(WideString(strOLEObject)), ClassID) <> S_OK)
then
  begin
       MessageBox(0,PChar('Microsoft Excel n''est pas installé.'),'ExcelApplication',MB_ICONEXCLAMATION);
       exit;
  end;
  lcid := LOCALE_USER_DEFAULT;
   Result := GetActiveObject(CLASS_Application_, nil, Unknown);
    if (Result = MK_E_UNAVAILABLE) then  //  Excel est ouvert
      XlApp := CoApplication_.Create
                                   else  //  Excel n'est pas ouvert
    begin
      OleCheck(Result);
      OleCheck(Unknown.QueryInterface(_Application, XlApp));
    end;

Tape XlApp suivi du point et les propositions de Delphi s'affichent.

Bon Courage