Bonjour Ti, BigTony, Lpp, Dop, le Forum
Je viens de passer un peu de temps sur ton travail, Ti et c'est vraiment super. Je te remercie beaucoup. C'est vrai que celà permet de "piloter" PdfMaker depuis une application VBA, sans intervention.
Je suis sûr que ton programme aura beaucoup d'utilité pour pas mal d'entre nous. Je viens de faire toutes sortes de tests avec Excel 2000 et Acrobat 5.0 tout marche très bien.
Tes "Switch" Boolean sont très pratiques et facilement manipulables depuis la macro de lancement :
Sub Test()
CreePDF True, False, False, False
End Sub
(Settings, par exemple pour ne convertir que la feuille active)
Par contre pour mes besoins, il me faudrait pouvoir avoir le contrôle du Path et du Nom de Fichier PDF...
A ces fins, j'ai "trafiqué" ton code comme suit :
Option Explicit
'Ti xlti@wanadoo.fr
'juin 04
'ce fichier doit référencer AcrobatPDFMaker.xla
Const ThePath As String = "C:\Mes Documents\XLD-PDF\" 'Ici en Constantes mais, of course pourraient être Variable
Const TheFile As String = "TheTestingFile.PDF"
Sub Test()
CreePDF True, False, False, True '(Last Boolean = PromptForPDFName)
End Sub
'cette procédure permet de regrouper toutes les options
'en un seul appel
Sub CreePDF(Optional ActiveSheetOnly As Boolean, _
Optional ViewInAcrobat As Boolean, _
Optional EmailThen As Boolean, _
Optional PromptForPDFName As Boolean)
OnlyActiveSheet ActiveSheetOnly
ActiveAcrobat ViewInAcrobat
If EmailThen Then
CreePDFAndMail PromptForPDFName
Else
CreePDFOnly PromptForPDFName
End If
End Sub
'comme son nom l'indique... elle aussi avec option du Path et PDFFileName
Sub CreePDFOnly(Optional PromptForPDFName As Boolean)
If ActiveWorkbook.Saved And Not PromptForPDFName Then
SendKeys "~"
ConvertToPDFA
ElseIf ActiveWorkbook.Saved And PromptForPDFName Then
SendKeys ThePath & TheFile + "~"
ConvertToPDFA
End If
End Sub
Je suis, of course, comme toi, on force la validation par un simple SendKeys pour le chemin et nom... Mais ça semble marcher correctement.
Voilà je te remercie encore Ti.
Pour Christophe (BigTony), je confirme après tests aussi, la Procédure de LPP (post du 04-06-04 12:56) Fonctionne aussi sous Acrobat 5.0, mais il faut avoir les Droit d'Adminstrateur de la Machine comme tu l'as très justement précisé.
Voilà, je suis content, on a enfin un fil assez complet pour jouer avec les PDF que ce soit depuis PDFWriter, PDFDistiller, et grace à Ti PDFMaker.
Bon Week End à Tous et Toutes
@+Thierry