Discussion :

[Ben ali]

Bonjour,

Je souhaite exporter fichier excel avec plusieurs sheets (Feuillets) vers fichier Pdf par programme Delphi.
L'exportation d'un fichier avec un seul sheet (Feuillet) fonctionne très bien, mais pour plusieurs ça ne marche pas du tout.
Vous demande de bien vouloir m'aider avec mes remerciements anticipés.
Cordialement.

[SergioMaster]

Bonjour,

L'exportation d'un fichier avec un seul sheet (Feuillet) fonctionne très bien, mais pour plusieurs ça ne marche pas du tout.

Quel code/composants utilisez-vous ? Il s'agit peut-être simplement d'une navigation entre feuilles que vous ne savez pas faire

[Ben ali]

Bonjour,
J'utilise l'exemple ci_dessus:

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
procedure TForm1.Button1Click(Sender: TObject);
var
  XlApp, XlBook, XlSheet: Variant;
  XlsFile, PdfFile: String;
const
    XlFixedFormatType = $00000000;    //--   xlTypePDF -
    XlQuality              = $00000000;    //--   xlQualityStandard -
begin
  try
    XlsFile  :=  GetCurrentDir+'\Test.xls';   ---------->  Contient trois Sheets (Feuillets)
    PdfFile  :=  GetCurrentDir+'\Test.pdf';

    XlApp                   := CreateOleObject('Excel.Application');
    XlApp.Visible          := False;
    XlApp.DisplayAlerts := False;

    XlBook   := XlApp.WorkBooks.Open(XlsFile);
    XlSheet := XlBook.Sheets[1];
    XlSheet.Activate;

    XlSheet.ExportAsFixedFormat(XlFixedFormatType,PdfFile,XlQuality,True,True,1,3,True);
    XlApp.Quit;
    ShowMessage('Fichier PDF crée !');      --------> en sortie le fichier PDF contient les 3 feuillets dont le 1er contient des informations, les 2 autres sont vides
  except
    ShowMessage('Fichier PDF non crée !');
  end;
  XlSheet := Unassigned;
  XlBook  := Unassigned;
  XlApp   := Unassigned;
end;

Je vous remercie de m'avoir répondu et vous vous êtes intéressé à mon problème.
Avec cet exemple, le fichier PDF ne contient que le premier sheet (Feuillet), les deux autres n'y figurent pas. Remerciements pour votre aide.

[tourlourou]

Bonjour,
Il ne me paraît pas absurde qu'appliquer une méthode à une feuille du classeur n'aille pas chercher les autres.
Une simple recherche sur le nom de la méthode : https://www.qwant.com/?client=brz-mo...edFormat&t=web sort en premier un lien intéressant.
La méthode s'applique également à un classeur, ce qui te permettrait sûrement d'obtenir le résultat voulu.

[SergioMaster]

Code :

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

XlSheet.ExportAsFixedFormat(XlFixedFormatType,PdfFile,XlQuality,True,True,1,3,True);

[Ben ali]

Code :

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

XlSheet.ExportAsFixedFormat(XlFixedFormatType,PdfFile,XlQuality,True,True,1,3,True);

Remerciements pour vos réponses, j'ai modifié la commande XlSheet.ExportAsFixedFormat(XlFixedFormatType,PdfFile,XlQuality,True,True,1,3,True) comme suggérée par SergioMaster, j'obtiens les 3 pages PDF, mais malheureusement, seule la première page contient des informations, les deux autres sont vides.
Ce que je ne comprends dans l'exemple donné que j'ai mis en ligne, on ne sélectionne et on active que le sheet 1:
XlSheet := XlBook.Sheets[1];
XlSheet.Activate;
La question posée, Pourquoi ?

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
var
  XlApp, XlBook, XlSheet, ActiveSheet: Variant;
  XlsFile, PdfFile: String;
const
    XlFixedFormatType = $00000000;       //--  xlTypePDF -
    XlQuality                = $00000000;       //--  xlQualityStandard -
begin
  XlsFile := GetCurrentDir+'\Etat.xlsx';
  PdfFile := GetCurrentDir+'\Etat.pdf';
  try
    XlApp                   := CreateOleObject('Excel.Application');
    XlApp.Visible          := False;
    XlApp.DisplayAlerts := False;
    XlBook  := XlApp.WorkBooks.Open(XlsFile);
 
    XlSheet := XlBook.Sheets[1];   
    XlSheet.Activate;

    try
      XlSheet.ExportAsFixedFormat(XlFixedFormatType,PdfFile,XlQuality,True,False,1,3,True);
      ShowMessage('Fichier PDF crée !');
    finally
    end;
  except
    ShowMessage('Fichier PDF non crée !');
  end;
  XlApp.Quit;
  XlSheet := Unassigned;
  XlBook  :=  Unassigned;
  XlApp   :=  Unassigned;