Discussion :

[ABROLLET1602]

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.

html.xlsm

[anasecu]

Bonjour,

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.

[ABROLLET1602]

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

Convert to html.xlsm

[anasecu]

Bonsoir,

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 :

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

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 :

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

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

[ABROLLET1602]

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 !!