Dim Ws As Worksheet
Dim Fichier As String, monCode As String
Dim i As Byte
For Each Ws In ThisWorkbook.Worksheets
'adapter le chemin
Fichier = ThisWorkbook.Path & "\" & Ws.Name & ".htm"
ActiveWorkbook.PublishObjects.Add _
(xlSourceSheet, Fichier, Ws.Name, "", xlHtmlStatic, "", "").Publish
'*********** ajout liens hypertextes dans les pages créées *********
Open ThisWorkbook.Path & "\" & Ws.Name & ".htm" For Append As #1
Print #1, "<HTML>"
Print #1, "<HEAD><BODY>"
For i = 1 To Sheets.Count
If Ws.Name <> Sheets(i).Name Then
monCode = "<PR><CENTER><td bgcolor='#FFFFFF' rowspan='2'><a href='" & _
ThisWorkbook.Path & "\" & Sheets(i).Name & ".htm'>" & _
Sheets(i).Name & "</a></td><BR></CENTER>"
Print #1, monCode
End If
Next i
Print #1, "</HEAD></BODY>"
Close #1
Next
'affiche la 1ere page
ThisWorkbook.FollowHyperlink ThisWorkbook.Path & "\" & _
Sheets(1).Name & ".htm", NewWindow:=True