automatisation

Bonjour,

je publie un tableau Excel directement en html par la fonction Print

voici un extrait du code que j'utilise

- début du code -

Print #1, Chr$(13) & " <tr>"
Print #1, Chr$(13) & " <td width='166'>" & Range("a2").Value & "</td>"
Print #1, Chr$(13) & " <td width='127'>" & Range("b2").Value & "</td>"
Print #1, Chr$(13) & " <td width='307'>" & Range("c2").Value & "</td>"
Print #1, Chr$(13) & " </tr>"
Print #1, Chr$(13) & " <tr>"
Print #1, Chr$(13) & " <td width='166'>" & Range("a3").Value & "</td>"
Print #1, Chr$(13) & " <td width='127'>" & Range("b3").Value & "</td>"
Print #1, Chr$(13) & " <td width='307'>" & Range("c3").Value & "</td>"
Print #1, Chr$(13) & " </tr>"
Print #1, Chr$(13) & " <tr>"
Print #1, Chr$(13) & " <td width='166'>" & Range("a4").Value & "</td>"
Print #1, Chr$(13) & " <td width='127'>" & Range("b4").Value & "</td>"
Print #1, Chr$(13) & " <td width='307'>" & Range("c4").Value & "</td>"
Print #1, Chr$(13) & " </tr>"
- fin du code

sachant que mes données vont de la ligne 2 à 15

y'aurait il moyen d'optimiser mon code : du style
pour I=2 to 15 et ensuite le code en lui disant de reprendre comme num=
éro de ligne la valeur de I

j'ai testé plusieurs truc, mais je m'y perd dans les if then et dans la s=
yntaxe.

MErci de l'aide que vous pourriez m'apporter

---

• Partager ce contenu :