Discussion :

[essais]

Bonjour,

Je souhaite, sur une feuille excel, progammer un bouton de lancement associé à une macro qui permet d'imprimer cette feuille excel en utilisant une imprimante pdf.
De plus, je souhaite surtout nommer le document (exemple : nom-date-heure.pdf) et le diriger vers le dossier de sauvegarde (exemple : C:/sauvegarde/nom-date-heure.pdf) et enfin fermer automatiquement si possible adobe reader (ou l'empêcher de s'ouvrir).

Merci à ceux qui consacreront du temps à réflêchir à mon problème.

[kiki29]

Salut,voir pour PDFCreator http://www.developpez.net/forums/d10...n-pdf-creator/
ou pour Acrobat Distiller http://www.developpez.net/forums/d43...bat-distiller/
Godzestla avait donné une solution pour CutePdf, il me semble, je ne retrouve plus le lien
Si tu as Excel 2007 SP2 celui ci intègre le format PDF et XPS en natif

[casefayere]

Comme le dit kiki29 et comme je t'avais demandé de préciser ta version excel, si tu as excel 2007 sp2, un exemple à adapter :

Code :

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

1
2
3
4
5
Dim nomfeuil
nomfeuil = ActiveSheet.Name & "_" & Now
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
       "C:\sauvegarde\" & nomfeuil, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
        :=False, OpenAfterPublish:=True

[Godzestla]

A Kiki29,

Godzestla avait donné une solution pour CutePdf, il me semble, je ne retrouve plus le lien

Quelle mémoire. Wawww.

Il n'y a pas vraiment de lien, car le code est un peu volumineux pour rester dans mes attachement sur ce site.

Si quelqu'un peut me donner un site pour le Hosting de mon code je l'y transfère très volontier.

Ou si quelqu'un le souhaite, il n'y a qu'à le demander en me transmettant une adresse email par mp..

[essais]

Bonjour,

C'est sur Excel 2007. Je vais faire des tentatives ce soir.

Peut-on générer via la macro un nom de fichier incluant la date réelle du moment d'impression pdf ( exemple : C:\sauvegarde\nom-28-02-11-17-40.pdf)?

A bientôt et merci pour les réponses.

[casefayere]

avec mes excuses, il faut adapter Now à cause des "/"

en résumé :

Code :

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

1
2
3
4
Dim nomfeuil
nomfeuil = ActiveSheet.Name & "_" & Format(Now, "d_m_yyyy h-mm;@") ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
       "C:\sauvegarde\" & nomfeuil, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
        :=False, OpenAfterPublish:=True

[essais]

No problémo! Je comprend mieux mes soucis pendant mes tentatives d'hier soir. Je reprend ma caisse à outils ( et à neuronnes!!) et me lance à fond sur le chantier.

Merci pour la réponse.

[essais]

Bonjour à tous,

J'ai réussi à obtenir le résultat escompté en utilisant la sauvegarde PDF d'excel.

Un grand merci à tous les intervenants pour leur participation!!