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

Ben ué je sais c'est trés dur pour moi surtout que je connais rien en VBA. Mais comment je vais pouvoir faire alors afin de convertir le tout en HTML. Connait tu un logiciel gratuit qui me permetterai de faire ce que je veux
Merci encore pour tout l'aide que vous m'avez apporter

J'avoue que ta question

Citation:

---

Range("A1:K50") cela reprend quoi comme plage de cellule

---

me laisse sans voix...

Lis tout haut Range("A1:K50"), cela ne t'inspire rien ?

Dans une feuille vierge, exécute ce petit test

Code:

---

1 2 3

Sub Petit_test() Range("A1:K50").Interior.ColorIndex = 3 End Sub

---

D'accord ok merci
Je suis vraiment dsl je suis vrement nul
Merci encore

non non je ne jetterai pas Bob :mouarf:

Concernant ton erreur "La methode 'Publish' de l'objet 'PublishObject' a échoué" je viens encore de retester le code et il fonctionne bien chez moi, difficile à dire pourquoi tu as cette erreur, tu as bien mis le code dans un module standard, tel quel, sans rien modifier ?

oui oui je les mit tel qu'elle sans rien modifier.
c'est cette ligne qui merde :

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

Est ce que tu a une idée d'ou peut provenir l'erreur ?
Je cherche mais je ne trouve pas
Merci encore pour ton aide

Non aucune idée, de mon côté cela fonctionne, je peux difficilement t'en dire plus :?

Non ben c'est pas grave alors,
Merci beaucoup pour votre aide sa m'a beaucoup aidé.
Merci

RE dsl c'est encore moi,
Grace a vous j'ai réussi a generer les pages html avec les differents liens hypertextes. Le probleme maintenant est que lorsque je clic sur un lien hypertexte il narrive pas a retrouver la bonne page et il me met dans le navigateur : " Internet Explorer ne peut pas afficher cette page Web "
Merci encore

Oui je l'ai constaté aussi, change cette ligne de code

Code:

---

Chemin = "C:\"

---

par celle-ci

Code:

---

Chemin = ActiveWorkbook.Path & "\"

---

Seulement cela va fonctionner chez toi mais ne fonctionnera plus à partir du moment où tu vas envoyer ces fichiers à une autre personne et que cette personne ne les placera pas forcément au même endroit sur son disque que toi.
Lorsqu'il crée le lien hypertexte, il le crée vers le fichier qui va s'enregistrer sur ton disque dur, à un endroit bien précis, avec un chemin bien précis. A partir du moment où tu changes les fichiers de place, les liens ne fonctionnent plus et je n'ai pas de solution à ça :(

Je viens d'essayer ce que tu ma dis et ca me fait la meme chose.
C'est bien comme ca :

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 = ActiveWorkbook.Path & "\"   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

---

non en principe ça ne fait pas la même chose, attention tu vérifies peut-être sur les anciens fichiers qui se trouvent sur ton C, les nouveaux fichiers créés se trouvent dans le même répertoire que ton classeur Excel et plus sur le C

Je viens de réssayer pour etre bien sur et les fichier se trouvent que dans le repertoir ou et excel.
C'est koi ton adresse email comme sa je tenvoye mon fichier excel comme sa tu pourra tester. Si ta envi
Merci encore