Ecrire dans Microsoft ExcelRésolu

Question

bonjour, 
je voudrais savoir si il est possible de remplir un tableau exel grace aux donn&#233;es d'une base de donn&#233;e ? quel sont les commandes ? peut on agir sur la commande "imprimer" d'exel (voila le genre  de commande)

sous DELPHI 7 !

merci d'avance !
xpmich

DGPat · Accepted Answer

Hello,

Il y a d&#233;j&#224; plusieurs fois que le sujet a &#233;t&#233; trait&#233;, le mieux c'est de r&#233;cup&#233;rer le code de JMP77 le soft c'est DataConvertor, il est sur ce site, il est tr&#232;s bien fait et il fonctionne tr&#232;s bien, et correspond &#224; ce que tu veux faire.

Bon courage

Ce n'est pas parce qu'on d&#233;bute que l'on est forcement idiot
DGPat

dominique.stock · Answer

Bonjour,

Oui

Cela d&#233;pend de la version d'excel et de ce que tu veux faire.
Si c'est juste &#233;crire des donn&#233;es dans un tableau sans plus de mise en forme que &#231;a, je te conseille pour un maximum de portabilit&#233; de cr&#233;er un fichier ".xls" et de le remplir en utilisant le s&#233;parateur de colonne "#9" et de fin de ligne "#13".

Pour l'impression, un shellexecute sur le fichier cr&#233;&#233; et une commande 'print' devraient suffire.

Bon courage.

   

Dom

stu76 · Answer

Bonjour,

J'ai d&#233;j&#224; fait ce genre de manipulation &#224; partir d'une base de donn&#233;es que j'avais cr&#233;&#233;e en paradox, si tu veux plus d'info dit moi simplement quel type de base tu utilises est qu'elles sont tes objectifs. J'ai d&#233;j&#224; vu dans autre toppic que des personnes faisait la m&#234;me manoeuvre avec OPENOFFICE si ca t'interesse. Tu peux &#233;ventuellement faire une recherche sur le site dans ce sens, si tu veux &#233;viter les licences microsoft. (Juste &#224; titre d'info ).

Sinon je suis du m&#234;me avis que dominique.stock. 

@+ et bonne prog

Stu76

xpmich · Answer

re
je travaille avec une base de donn&#233;e paradox, mais je connais pas trop la manier, tout comme DELPHI et EXEL. je suis curieux de voir l'appli faite par Stu76.
Par rapport au fichier "xls", je connais mais je ne suis pas pour, je voudrais en effet un petit mise en forme qui  donne l'image de ma base de donn&#233;e.

merci
xmpich

stu76 · Answer

No prob xpmich, envoi moi un mail ou je peux t'envoy&#233; le code qui t'int&#233;resse, faut juste me laisser le temps de le retrouver.

@+

Stu76

stu76 · Answer

Voici un exemple de source d'exportation de donn&#233;es vers excel, c'est un source que j'avais trouver dans un book et que j'avais modifier pour l'adapter &#224; mon application qui est &#233;galement en paradox.
Ce source n'est peut-&#234;tre pas parfait mais toujours est-il qu'il r&#233;pondait &#224; ma demande de l'&#233;poque. Voil&#224; si ca peut aider temps mieux. Sinon si tu cherche une commande encore plus pr&#233;cise ou plus sp&#233;cifique dit moi quoi et je cherche dans mais autre source si je trouve quelque chose qui se rapproche plus &#224; tes attentes.

Code :

procedure TForm1.Exporter1Click(Sender: TObject);
var
  XLApp : Variant;
  NbLigne : Integer;
begin
     if MessageDlg('CONFIRMEZ EXPORTATION DE VOTRE FICHIER VERS EXCEL ?', mtConfirmation, [mbOK, mbCancel], 0) = mrOk then
        begin
             try
                XLApp := CreateOleObject('Excel.Application');
             except
                ShowMessage('D&#233;marrage de Microsoft Excel impossible');
                Exit;
             end;
      XLApp.Visible := True;
      XLApp.Workbooks.Add;


   XLApp.Cells[1,1].Value := 'NOM';
   XLApp.Cells[1,2].Value := 'PRENOM';
   XLApp.Cells[1,3].Value := 'ADRESSE PERSO';
   XLApp.Cells[1,4].Value := 'ADRESSE PROF';
   XLApp.Cells[1,5].Value := 'CODE';
   XLApp.Cells[1,6].Value := 'VILLE';
   XLApp.Cells[1,7].Value := 'TELEPHONE';
   XLApp.Cells[1,8].Value := 'FAX';
   XLApp.Cells[1,9].Value := 'GSM';
   XLApp.Cells[1,10].Value := 'CIVILITE';
   XLApp.Cells[1,11].Value := 'EMAIL';
   XLApp.Cells[1,12].Value := 'CELIBATAIRE';
   XLApp.Cells[1,13].Value := 'PROFESSION';



     NbLigne :=2;
     with Table1 do
          begin
              first;
               while not(Eof) do
                     begin
                          XLApp.Cells[NbLigne,1].Value  := FieldByName('NOM').AsString;
                          XLApp.Cells[NbLigne,2].Value  := FieldByName('PRENOM').AsString;
                          XLApp.Cells[NbLigne,3].Value  := FieldByName('ADRESSE PERSO').AsString;
                          XLApp.Cells[NbLigne,4].Value  := FieldByName('ADRESSE PROF').AsString;
                          XLApp.Cells[NbLigne,5].Value  := FieldByName('CODEPOSTAL').AsString;
                          XLApp.Cells[NbLigne,6].Value  := FieldByName('VILLE').AsString;
                          XLApp.Cells[NbLigne,7].Value  := FieldByName('TELEPHONE').AsString;
                          XLApp.Cells[NbLigne,8].Value  := FieldByName('FAX').AsString;
                          XLApp.Cells[NbLigne,9].Value  := FieldByName('GSM').AsString;
                          XLApp.Cells[NbLigne,10].Value := FieldByName('CIVILITE').AsString;
                          XLApp.Cells[NbLigne,11].Value := FieldByName('EMAIL').AsString;
                          XLApp.Cells[NbLigne,12].Value := FieldByName('CELIBATAIRE').AsBoolean;
                          XLApp.Cells[NbLigne,13].Value := TClient.FieldByName('NOM_PROFESSION').AsString;
                          inc(NbLigne);
                          Next;
                    end;
        end;
 end;
end;

end;

@+

Stu76

Ecrire dans Microsoft Excel

6 réponses

Votre réponse

Discussions similaires