Excel et SaveDialog

**revsys** · 26/04/2007, 10h44

Bonjour,

Je cherche à utiliser un SaveDialog pour permettre à l'utilisateur de choisir un nom de fichier Excel puis de l'enregistrer où il le souhaite.
Je pensais tout d'abord utiliser la technique OLE qui peut créer un fichier Excel par défaut dans un endroit donné du disque, mais cela ne permet pas de demander le nom du fichier sous lequel l'utilisatuer souhaite l'enregistrer.

Voici le code por créer le fichier Excel avec OLE :

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
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
 
unit UExcel;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, OleServer, Excel97, ComObj, StdCtrls;
 
type
  Texcel = class
 
  procedure Creer(nom : string);
 
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;
 
var
  Excel : Texcel; 
  OleApplication : variant;
  OleWorkbook : variant;
 
implementation
 
{$R *.dfm}
 
{********* Crée un fichier excel **********}
 
procedure Texcel.Creer(nom : string);
 
        begin
        OleApplication:=CreateOleObject('Excel.Application');
        OleApplication.Visible:=false;
        OleWorkbook:=OleApplication.workBooks.Add;
        OleApplication.ActiveWorkBook.Save;
        OleApplication.Quit;
        OleApplication:=Unassigned;
        end;
 
end.

Est-il possible d'utiliser un SaveDialog pour réaliser ce que je souhaite ?
Si oui quelqu'un aurait-il un exemple à me proposer ?

Merci d'avance.

**anapurna** · 26/04/2007, 11h22

salut

Code :

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

1
2
3
4
5
If SaveDialog.execute Then
  begin
     ExcelApp.DisplayAlerts := False;// pour ne pas voir la fenetre d'enregistrer sous
     ExcelApp.ActiveWorkbook.SaveAs(Filename:=SaveDialog. Filename);
  end;

@+ Phil

PS c'est quand meme bizard de desactive l'alerte d'ecxel pour le remplacer par un savedialog

**revsys** · 26/04/2007, 12h00

Merci beaucoup pour ta réponse, mais j'ai des erreurs qui apparaissent.
J'utilise les composants SaveDialog1, ExcelApplication1 et ExcelWorkbook1.Mon code est alors :

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
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
 
unit Exp;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, StdCtrls, jpeg, ExtCtrls, OleServer, UExcel, Excel2000;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    Fichier1: TMenuItem;
    Nouvelleexprience1: TMenuItem;
    Quitter1: TMenuItem;
    TMainMenu: TMainMenu;
    Button3: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Image1: TImage;
    Image2: TImage;
    N1: TMenuItem;
    SaveDialog1: TSaveDialog;
    ExcelApplication1: TExcelApplication;
    RadioGroup1: TRadioGroup;
    RadioButton5: TRadioButton;
    RadioButton6: TRadioButton;
    RadioButton7: TRadioButton;
    RadioButton8: TRadioButton;
    Panel1: TPanel;
    Label3: TLabel;
    ExcelWorkbook1: TExcelWorkbook;
    procedure Quitter1Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Nouvelleexprience1Click(Sender: TObject);
 
  private
    { Private declarations }
    Filename : string;
 
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Quitter1Click(Sender: TObject);
begin
        close;
end;
 
procedure TForm1.Button3Click(Sender: TObject);
begin                
        close;
end;
 
procedure TForm1.Nouvelleexprience1Click(Sender: TObject);
begin   
        if SaveDialog1.execute Then
                begin
                        ExcelApplication1.DisplayAlerts := False;
                        ExcelApplication1.ActiveWorkbook.SaveAs(Filename:=SaveDialog1. Filename);
                end;
end;
 
end.

J'obtiens les erreurs suivantes :
[Error] Exp.pas(93): '[' expected but ':=' found
[Error] Exp.pas(94): Not enough actual parameters
[Error] Exp.pas(94): 'END' expected but ')' found
[Error] Exp.pas(98): '.' expected but ';' found
[Fatal Error] Projetexp.dpr(6): Could not compile used unit 'Exp.pas'

Désolé je débute