Discussion :

[KOUTO]

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

[defluc]

C'est tout à fait possible en utilisant les objets OLE Automation.

[KOUTO]

peux tu m'eclairer un peut plus... aurais tu un exemple?

[markk]

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


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


A+

[KOUTO]

ok je vais voir sa merci

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

[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).

[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 :

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

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?

[Gilbert Geyer]

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.

[defluc]

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 :

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

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 :

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

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