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
