Discussion :

[Safra]

Bonjour à tous,

Je développe un module complémentaire pour le service commercial dans lequel je travail et j'ai besoin de pouvoir éditer les fichiers au format PDF.
J'arrive très bien à sortir le soit la feuille soit le document complet au format PDF de manière automatique (sans demander l'emplacement et les options).
Le chemin + nom de fichier serait prédéfini mais celà je sais le faire.

Ce que j'aimerais pouvoir faire c'est ouvrir la fenêtre "Enregistrer sous" avec le bouton "options" comme lorsqu'on va dans "Fichier>Enregistrer sous" et qu'on choisi PDF comme type de fichier.
Je souhaite pouvoir laisser à l'utilisateur la possibilité d'aller choisir le nombre de page, le contenu à publier etc...
Et c'est là que je bloque. Comme faire apparaitre cette fenêtre?

J'ai déjà testé

Code :

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

Application.FileDialog(msoFileDialogSaveAs)

Mais...
1. Le bouton d'options n'apparait pas
2. La fonction .Filters.Add "Document PDF", "*.pdf" n'est pasreconnue (.Filters tout court en fait lar même .filters.clear ne marche pas)

Des génies parmi vous auraient des idées?


Merci d'avance pour toute l'aide que vous pourriez m'apporter.

[jackborogar]

Bonjour,

Tu as quelle version d'Excel?
Car dans les nouvelles versions tu peux utiliser ce code:

Code :

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

1
2
3
c = Application.Dialogs(xlDialogSaveAs).Show
 
Repertoire = ThisWorkbook.Path

Dans les anciennes version comme Excel 2003, tu dois passer par la fenêtre Imprimer pour enregistrer au format PDF

Cdt,

[Safra]

Salut,

Version 2010 comme indiqué dans le titre du post
Ca ouvre la fenêtre que je souhaite, merci!!

J'ai deux questions complémentaire :
1. Comment je gère mon filtre du coup? Je ne trouve pas de propriété .filter ou équivalent
2. Est ce valable sur 2007? Mon poste est équipé avec Excel 2010 mais d'autres ont Excel 2007.

[jackborogar]

Concernant le filtre je ne sais pas du tout... peut être en créer un avant d'afficher cette fenêtre...

Sinon oui cette fonction fonctionne sur Excel 2007, sinon tu fais un
"On Error ". Ce qui permet de dire si ton code fait erreur (car pas bonne version ) alors GOTO et la tu affiches la fenêtre "Imprimer".

[Safra]

Le filtre avant n'a pas d’intérêt pour moi, en fait je veux forcer le format d'enregistrement à PDF et filtrer les données affichées d'ou le filtre dans la fenêtre.

Hmmm comment j'ouvre la fenêtre "imprimer"?

[jackborogar]

Enfaite dans les version antérieur (comme la mienne) le PDF se trouve dans le choix de l'imprimante. Il faut donc utiliser cette fonction :

Code :

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

1
2
Application.Dialogs(Excel.XlBuiltInDialog.xlDialogPrinterSetup).Show
ActiveWindow.SelectedSheets.PrintOut

Mais je ne comprends pas trop ton filtre, ça existe pas le filtre dans le "enregistrer sous" de toute façon.
Eclaire moi sur ce sujet et vite (j'ai plus que 25 après wkend)

Cdt,