[VBA] génération de page HTML à partir d'un classeur

Bonjour tlm,

Deux solutions éventuelles à tester

La première va sauvegarder tout le classeur en 1 seul fichier html en gardant la structure des onglets

Code:

---

1 2 3

Sub TestHtml1() ActiveWorkbook.SaveAs Filename:="C:\test1.htm", FileFormat:=xlHtml End Sub

---

La seconde solution va sauvegarder chaque page du classeur en fichier html

Code:

---

1 2 3 4 5 6 7 8 9

Sub TestHtml2() Dim i As Byte   For i = 1 To Sheets.Count ActiveWorkbook.PublishObjects.Add(xlSourceSheet, _ "C:\Pagetest" & i & ".htm", Sheets(i).CodeName, _ "", xlHtmlStatic, "test" & i, "").Publish (True) Next End Sub

---

Je viens de l'essayer et sa me met " Erreur definie par l'application ou par l'objet"
peut-tu encore m'aider stp
merci

Montre ton code tel que tu l'as écrit

Code:

---

1 2 3 4 5 6 7 8 9

Sub TestHtml2() Dim i As Byte   For i = 1 To Sheets.Count ActiveWorkbook.PublishObjects.Add(xlSourceSheet, _ "C:\Pagetest" & i & ".htm", Sheets(i).CodeName, _ "", xlHtmlStatic, "test" & i, "").Publish (True) Next End Sub

---

Et j'ai creer un fichier Page test sur le C

Citation:

---

Envoyé par Léponge85

Et j'ai creer un fichier Page test sur le C

---

euuh ? pourquoi faire ?

j'explique en 2 mots le code:
il boucle sur toutes les feuilles du classeur et va enregistrer chaque feuille, à la racine du disque C (on peut choisir un autre disque, répertoire, sous répertoire,...), au format html en nommant chaque fichier PageTest1.htm, PageTest2.htm........PageTest36.htm.

Tu dois juste copier le code dans un module standard et il s'occupe du reste.

Je l'ai testé et no problem.

Je comprend pas du tout ou le mettre (dans kel module) je suis DSL mais je suis un peu nul :?.
Ce code permet-il de faire un lien entre les differentes page HTML parce que j'ai des lien hypertexte entre les feuilles.
Merci pour ton aide et ta patience

Dans un module standard = dans ton éditeur visual basic, insertion --> Module, ça c'est un module standard. A leur création ils sont nommés Module1, Module2, Module3, etc...

Ci-dessous le code écrit différement pour plus de compréhension

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub test2() Dim i As Byte, Chemin As String, NomFich As String   Chemin = "D:\Divers\Macro\tests\" NomFich = "Page_test"   For i = 1 To Sheets.Count ActiveWorkbook.PublishObjects.Add(SourceType:=xlSourceSheet, Filename:=Chemin & NomFich & i, Sheet:=Sheets(i).Name).Publish Next   End Sub

---

Citation:

---

Ce code permet-il de faire un lien entre les differentes page HTML parce que j'ai des lien hypertexte entre les feuilles

---

Forcément...non ! Au départ tu as des liens hypertexte interne dans un classeur, ceux-ci ne fonctionneront plus puisque tu éclates ce classeur en différentes pages html. Je n'ai jamais jonglé avec ça mais d'après moi il faudra renommer les liens

Merci beaucoup pour avoir refait avec plus de clarter.
J'ai fait comme tu ma dit le mettre dans un module mais ca ma fait toujours la même erreur. " Erreur d'exécution '1004' "
Merci encore pr tout

Je suppose que tu as adapté le Chemin et que tu n'as pas laissé D:\Divers\Macro\tests\ ?

Oups :?
non je suis vraiment nul
C'est le chemin de quoi ?

C'est bon merci sa marche.
Mais par contre les lien hypertextes ne marche pas
Crois tu que a partir de sa il serai possible de mettre en plus le lien entre les differentes page.
Merci encore pr tout

mmmmmm...franchement...D:\Divers\Macro\tests\...cela ne t'inspire pas quelque chose ?

C'est le chemin où il va enregistrer, sur ton pc, toutes tes pages html

Remplace D:\Divers\Macro\tests\ par C:\
Tu devines où les pages seront enregistrées ?

Oui c'est bon sa marche
merci beaucoup
Mais par contre tu avai reson sa n'a pas du tout garder les liens hypertextes.
Croi tu qu'a partir de se code il serai possible de faire le liens entre les pages pour pouvoir retrouver les liens hypertexte au format html

Désolé, je ne sais pas comment récupérer les liens et les modifier, ça entraîne d'après moi la construction d'une usine à gaz...!

1. il faut parcourir toutes les cellules et vérifier celles qui contiennent une sous-adresse
2. arriver à récupérer dans cette sous-adresse le nom de la feuille renseignée
3. convertir cette sous-adresse vers une adresse html en renseignant la bonne page

Bon courage !

Wow
j'ai pas tout compris lol
sa m'a l'aire compliquer tout ca!!
j'ai travaillé dessus toute l'aprem la et j'ai toujours pas avancé donc je vais voir ce que tu me propose.
Mais j'ai pas tout saisie lol
Merci encore

Bon...après quelques essais, ceci devrait se rapprocher de ce que tu souhaites obtenir.

Fais le test avec une copie de ton fichier parce que les liens vont être renommés !

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

Sub test2() Dim i As Byte, Chemin As String, oLink As Hyperlink Dim Cel As Range, Lien As String, LienFeuille As String   Chemin = "C:\"   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

---

Salut je viens d'embauché et je viens de voir ton message
Merci encore je vais tester sa et je te tien au courant.
Merci encore pr tout

RE c'est deja moi lol
Je viens d'essayer le code et il y a une erreur qui me dit:

"Erreur d'execution '1004'":
La methode 'Publish' de l'objet 'PublishObject' a échoué

Merci encore pour ta patience et ton aide

Le plus souvent, c'est bien d'indiquer la ligne de l'erreur, ça aide :mouarf:
Merci.

J'ai encore une question, Range("A1:K50") cela reprend quoi comme plage de cellule? parceque moi je dessen parfoi jusque presque 2000 cellules.
Merci encore

DSL
l'erreur est ici :

Code:

---

ActiveWorkbook.PublishObjects.Add(SourceType:=xlSourceSheet, Filename:=Chemin & Sheets(i).Name & ".htm", Sheet:=Sheets(i).Name).Publish

---

Citation:

---

Envoyé par Léponge85

J'ai encore une question, Range("A1:K50") cela reprend quoi comme plage de cellule?

---

Désolé, sans vouloir te vexer, mais là...laisse tombé, cela va être impossible à gérer, on ne peux pas te demander de faire ce genre d'acrobatie si tu n'as pas la moindre base en VBA.

Ou montre un minimum de bonne volonté...