Bonjour !

Hé oui c'est possible du VBA sous FrontPage ^^

Je suis amené parfois à utiliser FrontPage pour developper cetraines pages Web, c'est le seul outil que la boite ait consenti a me payer ...
Bref là n'est pas la question.
J'essaye de me simplifier l'existence et feneant que je suis en programmant des boutons avec des macros pour insérer des blocs de textes tout prêts...
Genre balises script ou css dans le head.

Cependant je butte sur la balise DOCTYPE:
Voici le code
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub addoctype()
lngViewMode = Application.ActivePageWindow.ViewMode
'Switch to Normal view.
  Application.ActivePageWindow.ViewMode = fpPageViewNormal
Dim objElement As IHTMLElement
Dim strTagName As String
Set objElement = ActiveDocument.all.tags("html").Item(0)
 
strTagName = objElement.TagName
objElement.insertAdjacentHTML where:="beforeBegin", _
            HTML:="<" & Chr(33) & "DOCTYPE html PUBLIC " & Chr(34) & "-//W3C//DTD XHTML 1.0 Strict//EN" & Chr(34) & " " & Chr(34) & "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd" & Chr(34) & ">" & vbCrLf & "<html xmlns=" & Chr(34) & "http://www.w3.org/1999/xhtml" & Chr(34) & " xml:lang=" & Chr(34) & "fr" & Chr(34) & " lang=" & Chr(34) & "fr" & Chr(34) & ">" & vbCrLf
 
 Application.ActivePageWindow.ViewMode = lngViewMode
End Sub
le souci se situe au niveau du debut de cette balise
en effet VB n'accepte pas d'insérer lac combinaison "<!
même en "echappant" le ! au moyen de son chr, j'i l'impression que VBA considère ça comme un commentaire et ne le colle pas dans le fichier ...

Une idée ?