a/s Export fichier Excel avec plusieurs sheets vers fichier Pdf via Delphi

Version imprimable

12/05/2021, 23h02
Ben ali

a/s Export fichier Excel avec plusieurs sheets vers fichier Pdf via Delphi

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.
13/05/2021, 09h31
SergioMaster

Bonjour,

Citation:

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

A/S export fichier excel vers PDF

Bonjour,
J'utilise l'exemple ci_dessus:

Code:

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.

13/05/2021, 16h58
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.
13/05/2021, 17h23
SergioMaster

Code:

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

a/s export xls to Pdf

Citation:

Envoyé par SergioMaster

Code:

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:

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;

13/05/2021, 20h58
jbrosse
Citation:

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 !');

Voici ma proposition (fonctionne avec Delphi 10.4 et Excel 2016) :
Utiliser XlBook au lieu de XlSheet!
Code:

1 2 3 4 5 XlBook := XlApp.WorkBooks.Open(XlsFile); try XlBook.ExportAsFixedFormat(XlFixedFormatType, PdfFext, XlQuality, True, False, 1, 3, True);
13/05/2021, 23h25
Ben ali

a/s export Excel vers Pdf
Citation:
Envoyé par jbrosse

Voici ma proposition (fonctionne avec Delphi 10.4 et Excel 2016) :
Utiliser XlBook au lieu de XlSheet!

Code:

1 2 3 4 5 XlBook := XlApp.WorkBooks.Open(XlsFile); try XlBook.ExportAsFixedFormat(XlFixedFormatType, PdfFext, XlQuality, True, False, 1, 3, True);
Remerciements, à jbrosse et à ceux qui ont contribué en donnant des solutions ou des idées allant dans le sens de l'amélioration de la solution, le problème est résolu
en remplaçant comme demandé par jbrosse, XlSheet.ExportAsFixedFormat(....) par XlBook.ExportAsFixedFormat(.......).
Merci pour toute votre aide.
17/05/2021, 14h17
Ben ali

a/s export fichier excel vers pdf

Bonjour,
la solution données par jbrosse me permet de convertir tous les feuillets Excel, mais si le feuillet dépasse un certain nombre de lignes (plus de 48 lignes), la conversion se fait uniquement sur les 48 premières lignes, le reste n'est pas converti vers PDF, donc j'obtiens un état incomplet en Pdf. Souhaite votre aide pour pouvoir convertir et obtenir l'image complète du fichier Excel quelque soit le nombre de lignes. Remerciements anticipés.
18/05/2021, 12h53
jbrosse
Citation:

Envoyé par Ben ali

Bonjour,
la solution donnée par jbrosse me permet de convertir tous les feuillets Excel, mais si le feuillet dépasse un certain nombre de lignes (plus de 48 lignes), la conversion se fait uniquement sur les 48 premières lignes, le reste n'est pas converti vers PDF, donc j'obtiens un état incomplet en Pdf. Souhaite votre aide pour pouvoir convertir et obtenir l'image complète du fichier Excel quelque soit le nombre de lignes. Remerciements anticipés.

Hypothèse : la commande

XlBook.ExportAsFixedFormat(XlFixedFormatType, PdfFext, XlQuality, True, False, 1, 3, True);
demande d'imprimer de la page 1 à la page 3

Essaie ceci (fonctionne chez moi) :
Code:

1 2 XlBook.ExportAsFixedFormat(XlFixedFormatType, PdfFext, XlQuality, True, False, 1, , True);
ou encore :
Code:

1 2 XlBook.ExportAsFixedFormat(XlFixedFormatType, PdfFext, XlQuality, True, False, 1, 9999, True);
Le nombre de pages à imprimer est géré par Excel (y compris les sauts de pages manuels) . Pour le moment, je ne sais pas le calculer depuis Delphi.

Cordialement
Jacques
18/05/2021, 13h12
Ben ali

a/s export fichier excel vers pdf

Bonjour,
merci pour votre réponse.
Je m'explique dans ce qui suit:
- Supposons que j'ai une fichier Excel contenant qu'un seul feuillet de 70 lignes, la conversion Excel vers PDF se passe bien mais ne contient
qu'une page de 50 lignes, le reste des lignes (51 à 70) n'existe pas, donc j'obtiens une état incomplet d'une seule page de 50 lignes.
Ce que je souhaite si possible d'obtenir le feuillet complet de deux (02) pages en PDF.

Remerciements anticipés avec l'espoir de ne pas vous avoir trop importuné.

Cordialement
Benali
18/05/2021, 16h07
jbrosse

1 pièce(s) jointe(s)

Citation:

Envoyé par Ben ali

Bonjour,
Je m'explique dans ce qui suit:
- Supposons que j'ai une fichier Excel contenant qu'un seul feuillet de 70 lignes, la conversion Excel vers PDF se passe bien mais ne contient
qu'une page de 50 lignes, le reste des lignes (51 à 70) n'existe pas, donc j'obtiens une état incomplet d'une seule page de 50 lignes.
Ce que je souhaite si possible d'obtenir le feuillet complet de deux (02) pages en PDF.

Je n'ai pas ce genre de problème d'affichage (ex. 100 lignes avec 3 sauts de pages -> 4 pages créées dans le fichier PDF)
Peut-être s'agit-il d'un problème de définition de la zone d'impression dans le fichier Excel lui-même?

Voici l'étude que j'ai faite : Pièce jointe 598085, peut-être pourra-t-elle t'être utile (c'est mon premier essai d'envoi, j'espère ne rien avoir oublié!)

Cordialement
Jacques
18/05/2021, 18h36
jbrosse

1 pièce(s) jointe(s)

Citation:

Envoyé par jbrosse

(c'est mon premier essai d'envoi, j'espère ne rien avoir oublié!)

Visiblement l'essai n'était pas encore parfait.

Je retente un envoi : Pièce jointe 598105

Jacques
19/05/2021, 00h24
Ben ali

a/s export fichier excel vers pdf

Bonjour monsieur Jacques,

Vous remercie pour votre aide, votre exemple "EsExcel.zip" me donne les résultats souhaités et je tiens encore à vous remercier pour votre disponibilité et de m'avoir consacré un moment de votre précieux temps pour solutionner le problème.
Remerciements anticipés.

Cordialement.

Ben ali.