Discussion :

[fring]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Léponge85]

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

[fring]

Montre ton code tel que tu l'as écrit

[Léponge85]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[fring]

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.

[Léponge85]

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

[fring]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

[Léponge85]

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

[fring]

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

[Léponge85]

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

[Léponge85]

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

[fring]

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 ?

[Léponge85]

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

[fring]

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 !

[Léponge85]

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

[fring]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Léponge85]

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

[ouskel'n'or]

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

[Léponge85]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[fring]

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é...