Enregistrer un document .pub en .htm via vba

[Denis]

Bonjour le Forum
Depuis VBA Excel, pour enregistrer un document word en html, on procède ainsi :
DocExcel.SaveAs FileName:="Chemin" & NomFichier & ".htm", FileFormat:=xlHtml
Mais pour enregistrer un document .pub, je ne trouve pas le "FileFormat" correspondant pour Publisher
Quelqu'un peut-il me dépanner ?
Merci à tous
Denis

 

[tototiti2008]

Re : Enregistrer un document .pub en .htm via vba

Bonjour Denis,

Tu es le premier que je vois essayer de faire du VBA sous Publisher... Courageux ou téméraire 😉 ? Malheureusement je n'ai pas Publisher sur ce poste....

 

[Denis]

Re : Enregistrer un document .pub en .htm via vba

Bonjour tototiti2008
non, c'est l'inverse, j'ouvre un document publisher sous VBA Excel, puis je voudrais, toujours sous excel, l'enregistrer en "htm" pour le passer en webbrowser.

Ma sub est comme ceci :
Dim AppMsPub As Publisher.Application
Set AppMsPub = CreateObject("publisher.Application")
AppMsPub.Open Wb 'DocMsPub
'Set DocMsPub = GetObject(Wb, 1)
AppMsPub.ActiveDocument.SaveAs FileName:=:="Chemin" & NomFichier & ".htm", FileFormat:=xlHtml
et le problème est dans la dernière ligne

Merci et à +
Denis

 

[tototiti2008]

Re : Enregistrer un document .pub en .htm via vba

Re,

désolé, comme je n'ai pas publisher, je ne peux pas t'aider... il me semble que tu as la version 2007, peut-être en essayant d'ouvrir un fil sur le forum spécial Excel 2007...

 

[MichelXld]

Re : Enregistrer un document .pub en .htm via vba

bonsoir


tu peux tester :

Dim AppMsPub As Publisher.Application
Dim DocMsPub As Publisher.Document

Set AppMsPub = CreateObject("publisher.Application")
AppMsPub.ActiveWindow.Visible = False
Set DocMsPub = AppMsPub.Open("C:\Composition1.pub")

DocMsPub.SaveAs Filename:="C:\NomcopieWeb", _
    Format:=pbFileHTMLFiltered

DocMsPub.Close
AppMsPub.Quit

bonne soirée
michel
Microsoft Excel MVP

 

[Denis]

(Résolu) Enregistrer un document .pub en .htm via vba

Bonjour Tototiti, Michel et le Forum
merci Michel, tu viens de m'enlever mon dernier soucis. Grâce à toi mon appli est finie !
Visu de différents documents de toutes extensions (Office bien sûr) dans webbrowser sans possibilité de modif ou copie.
Encore merci et à +
Denis