Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Access Importer doc et xls dans un pdf

Importer doc et xls dans un pdf

3 réponses
Avatar
vgb.benjamin
Bonjour =E0 tous,

Voici mon probl=E8me, j'ai plusieurs fichiers (1 Word et 4 Excel) que je
dois importer dans un pdf.

Voici le code que j'utilise :

wdApp.PrintOut Append:=3DTrue, OutputFileName:=3DsNomFichierPS,
PrintToFile:=3DTrue

If IsEmpty(xlApp.ActiveSheet.UsedRange) Then Exit Sub

xlApp.Sheets("exception_final").PrintOut Copies:=3D1,
preview:=3DFalse, _
ActivePrinter:=3D"Acrobat Distiller", PrintToFile:=3DTrue, _
collate:=3DTrue, prtoFileName:=3DsNomFichierPS

Le seul probl=E8me c'est qu'il cr=E9e bien mon fichier ps avec le word
mais ensuite il =E9crase le mon fichier ps avec le fichier excel.

Je voudrais au fait qu'il passe =E0 la feuille suivante !!

Pourriez-vous me donner un petit coups de main.

D'avance je vous remercie

Benjisan
Signaler un problème avec ce contenu

3 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Fabien
Bonjour à tous,

Voici mon problème, j'ai plusieurs fichiers (1 Word et 4 Excel) que je
dois importer dans un pdf.

Voici le code que j'utilise :

wdApp.PrintOut Append:=True, OutputFileName:=sNomFichierPS,
PrintToFile:=True

If IsEmpty(xlApp.ActiveSheet.UsedRange) Then Exit Sub

xlApp.Sheets("exception_final").PrintOut Copies:=1,
preview:úlse, _
ActivePrinter:="Acrobat Distiller", PrintToFile:=True, _
collate:=True, prtoFileName:=sNomFichierPS

Le seul problème c'est qu'il crée bien mon fichier ps avec le word
mais ensuite il écrase le mon fichier ps avec le fichier excel.

Je voudrais au fait qu'il passe à la feuille suivante !!

Pourriez-vous me donner un petit coups de main.

D'avance je vous remercie

Benjisan

Bonjour vgb

Dans Access j'aurais créé un etat qui rassemble mes 4 documents et c'est
cet etat que j'aurais envoyé vers l'imprimante pdf.
Mais comme là j'ai pas pas l'impression que tu utilises accesss .....

Avatar
vgb.benjamin
On 13 juil, 08:36, Fabien wrote:



Bonjour à tous,

Voici mon problème, j'ai plusieurs fichiers (1 Word et 4 Excel) que je
dois importer dans un pdf.

Voici le code que j'utilise :

wdApp.PrintOut Append:=True, OutputFileName:=sNomFichierPS,
PrintToFile:=True

If IsEmpty(xlApp.ActiveSheet.UsedRange) Then Exit Sub

xlApp.Sheets("exception_final").PrintOut Copies:=1,
preview:úlse, _
ActivePrinter:="Acrobat Distiller", PrintToFile:=True, _
collate:=True, prtoFileName:=sNomFichierPS

Le seul problème c'est qu'il crée bien mon fichier ps avec le word
mais ensuite il écrase le mon fichier ps avec le fichier excel.

Je voudrais au fait qu'il passe à la feuille suivante !!

Pourriez-vous me donner un petit coups de main.

D'avance je vous remercie

Benjisan


Bonjour vgb
Dans Access j'aurais créé un etat qui rassemble mes 4 documents et c' est
cet etat que j'aurais envoyé vers l'imprimante pdf.
Mais comme là j'ai pas pas l'impression que tu utilises accesss .....- Masquer le texte des messages précédents -

- Afficher le texte des messages précédents -


Au fait je pilote excel, word et l'imprimante virtuelle d'adobe via
access en vba.


Avatar
vgb.benjamin
On 13 juil, 08:42, wrote:
On 13 juil, 08:36, Fabien wrote:






Bonjour à tous,

Voici mon problème, j'ai plusieurs fichiers (1 Word et 4 Excel) que je
dois importer dans un pdf.

Voici le code que j'utilise :

wdApp.PrintOut Append:=True, OutputFileName:=sNomFichierPS,
PrintToFile:=True

If IsEmpty(xlApp.ActiveSheet.UsedRange) Then Exit Sub

xlApp.Sheets("exception_final").PrintOut Copies:=1,
preview:úlse, _
ActivePrinter:="Acrobat Distiller", PrintToFile:=True , _
collate:=True, prtoFileName:=sNomFichierPS

Le seul problème c'est qu'il crée bien mon fichier ps avec le word
mais ensuite il écrase le mon fichier ps avec le fichier excel.

Je voudrais au fait qu'il passe à la feuille suivante !!

Pourriez-vous me donner un petit coups de main.

D'avance je vous remercie

Benjisan


Bonjour vgb
Dans Access j'aurais créé un etat qui rassemble mes 4 documents et c'est
cet etat que j'aurais envoyé vers l'imprimante pdf.
Mais comme là j'ai pas pas l'impression que tu utilises accesss ..... - Masquer le texte des messages précédents -

- Afficher le texte des messages précédents -


Au fait je pilote excel, word et l'imprimante virtuelle d'adobe via
access en vba.- Masquer le texte des messages précédents -

- Afficher le texte des messages précédents -


Me revoilà,

Voici ce que je fais, je transfère chaque fichiers dans un documents
pdf différents.
J'ai donc 5 fichiers pdf et ensuite je fusionne mes pdf via pdf
toolkit.
Pour piloter pdf toolkit, il faut utiliser le command dos.

Je crée donc un batch et ensuite je l'excéute via le shell.

Et voilà, le tour est joué.

Merci d'avooir pris le temps de lire mon post.

A très bientôt

Benjisan