Boujour tout le monde,
Voila je doit réaliser une macro permettant de generer des pages web a partir de mon fichier Excel. Ce fichier Excel comporte beauceaup de feuilles ains que beaucoup de lien hypertextes.
J'ai commencer un peu de code cependant cela ne marche pas je n'arrive pas a récuperer les liens entre les pages web comme sur l'excel.
Voila le code :
Pouvez vous m'aider svp a le corriger et a le rendre plus performant puisque une fois lancer tous les liens hypertextes du fichiers XLS sont supprimer.
Merci d'avance pour votre aide.
Voila je doit réaliser une macro permettant de generer des pages web a partir de mon fichier Excel. Ce fichier Excel comporte beauceaup de feuilles ains que beaucoup de lien hypertextes.
J'ai commencer un peu de code cependant cela ne marche pas je n'arrive pas a récuperer les liens entre les pages web comme sur l'excel.
Voila le code :
Code:
Sub HTML()
Dim i As Byte, Chemin As String, oLink As Hyperlink
Dim Cel As Range, Lien As String, LienFeuille As String
Chemin = ActiveWorkbook.Path & "C:\test"
For i = 1 To Sheets.Count
For Each Cel In Sheets(i).Range("A1:Q2000")
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
Pouvez vous m'aider svp a le corriger et a le rendre plus performant puisque une fois lancer tous les liens hypertextes du fichiers XLS sont supprimer.
Merci d'avance pour votre aide.