Bonjour tout le monde,
 
Voila je suis actuellement en stage de 1ere année d'informatique de gestion. Je doit réaliser un catalogue informatique de toutes les pièces détachées du service SAV. Le catalogue se fait sous Excel avec beaucoup de feuille excel et beaucoup de liens hypertextes entre les differentes feuilles. Mon catalogue avance trés bien cependant mon maitre de stage, me demande ensuite de faire une macro permettant de generer a partir du fichier excel une version HTML. J'ai commencer quelque chose mais cela ne marche pas il y a une erreur 1004 : La methode 'Publish' de l'objet 'PublishObjet' à échoué.
Pouvez m'aider a couriger mon erreur svp ou bien m'aider a amelliorer ce code  
Merci d'avance  
 
 
 
Sub test2()
Dim i As Byte, Chemin As String, oLink As Hyperlink
Dim Cel As Range, Lien As String, LienFeuille As String
 
Chemin = "C:\test"
 
For i = 1 To Sheets.Count
    For Each Cel In Sheets(i).Range("A1:K50" )
        If Cel.Hyperlinks.Count > 0 Then
            Lien = Cel.Hyperlinks(1).SubAddress
            If Lien <> "" Then
                Cel.Hyperlinks.Delete
                LienFeuille = Split(Lien, "!" )(0)
                Set oLink = Sheets(i).Hyperlinks.Add(Cel, LienFeuille & ".htm" )
            End If
        End If
    Next
 
ActiveWorkbook.PublishObjects.Add(SourceType:=xlSourceSheet, Filename:=Chemin & Sheets(i).Name & ".htm", Sheet:=Sheets(i).Name).Publish
Next
 
End Sub

SVP j'ai vraiment besoin de votre aide  
merci encore