Conversion des données des cellules d'un fichier Excel en HTML

Je tente depuis plusieurs jours de trouver un moyen de convertir le formatage (gras, couleur, italique...) de l'intégralité des cellules d'un document en html. J'ai donc cherché une macro qui permettrait de convertir, cellule par cellule, son contenu en code html. J'ai trouvé un code ici : [URL="https://social.msdn.microsoft.com/Forums/en-US/626a351a-de17-4389-9ad6-a2be20ce2fd9/convert-contents-of-a-formatted-excel-cell-to-html-format"] mais je ne parviens pas à le faire fonctionner. En particulier, je ne comprends pas où placer la ligne "End sub" car si on la place à la fin, l'exécution de la macro échoue et indique qu'il manque cette ligne "End Sub"

Je vous serais très reconnaissant si vous pouviez m'aider à réussir à faire fonctionner ce petit macro, car elle me serait extrêmement utile pour mes études. :D

Pièce jointe 587836

Bonjour,

Citation:

---

Envoyé par ABROLLET1602

En particulier, je ne comprends pas où placer la ligne "End sub" car si on la place à la fin, l'exécution de la macro échoue et indique qu'il manque cette ligne "End Sub"

---

Le lien que tu donnes utilise des fonctions qui se terminent par 'End Function'
Il te faut donc les intégrer dans ton code à toi, peut-être dans une événementielle comme 'Change' pour formater la cellule modifiée.

Merci pour votre réponse. J'ai essayé de créer une macro évènementielle et d'y intégrer mon code mais j'ai toujours le même message d'erreur.

Je ne voudrais pas abuser de votre temps évidemment mais peut-être que la solution est simple pour quelqu'un qui a plus de recul sur la création de macros (ce n'est clairement pas mon domaine de prédilection, je suis étudiant en santé...)

Je joins à ce message là où j'en suis. Je ne sais pas si cela peut aider. Je veux bien faire l'effort de comprendre le principe néanmoins !

Captures : https://i.imgur.com/ymeGXQM.png
https://i.imgur.com/KAHeIeZ.png

Pièce jointe 587893

Bonsoir,

Citation:

---

Envoyé par ABROLLET1602

Je joins à ce message là où j'en suis. Je ne sais pas si cela peut aider. Je veux bien faire l'effort de comprendre le principe néanmoins !

---

Une macro évènementielle doit être structurée comme ceci par exemple :

Code:

---

1 2 3 4 5

Private Sub Worksheet_Change(ByVal Target As Range) If Target.CountLarge = 1 And Not Intersect(Target, Range("A:A")) Is Nothing Then Target = fnConvert2HTML(Target) End If End Sub

---

Ainsi tu vas traiter la cellule que tu modifies en colonne A (F2 + Entrée)
Si cela fonctionne, mais j'en doute car je ne sais pas ce que doivent faire tes fonctions, pour traiter toutes tes cellules tu peux le faire avec cette procédure :

Code:

---

1 2 3 4 5 6

Public Sub conv_html() Dim cel As Range For Each cel In ActiveSheet.UsedRange.Cells If cel.Value <> "" Then cel = fnConvert2HTML(cel) Next cel End Sub

---

Je vous suis extrêmement reconnaissant pour toutes vos explications ! Je comprends mieux la logique maintenant. J'ai réussi à faire fonctionner le code comme je le souhaitais.

C'est quelque chose que je vais utiliser tous les jours dans le cadre de mes études donc merci du fond du cœur !!