Enregistrer un document .pub en .htm via vba

tototiti2008

XLDnaute Barbatruc

• 18 Décembre 2008

• #2

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....

 

Vote positif 0 Vote négatif

D

Denis

Guest

• 18 Décembre 2008

• #3

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

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 18 Décembre 2008

• #4

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...

 

Vote positif 0 Vote négatif

M

MichelXld

XLDnaute Barbatruc

• 18 Décembre 2008

• #5

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

bonsoir


tu peux tester :

Code:

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

 

Vote positif 0 Vote négatif

D

Denis

Guest

• 19 Décembre 2008

• #6

(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

 

Vote positif 0 Vote négatif