Discussion :

[DenisMada]

Bonjour le Forum
Depuis VBA Excel, pour enregistrer un document word en html, on procède ainsi :

Code :

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

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

[SilkyRoad]

bonsoir


Tu peux utiliser :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
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

[DenisMada]

Bonjour 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