Bonjour,

Comme l'indique le titre, avec une macro, j'aimerai générer une page html avec l'adresse de toutes mes cellules, et ceci pour chaque feuilles de mon classeur. Je sais le faire pour une adresse, mais quand il s'agit d'afficher plusieurs adresse dans mon fichier html, c'est là que ça devient compliqué.

Voici mon code :
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
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
 
Sub Html1()
 
Dim fs As Object
Dim i As Byte
Dim j As Byte
 
 
For i = 1 To Sheets.Count
For j = 7 To 10
 
Set fs = CreateObject("Scripting.FileSystemObject")
 
Dim f As Object
 
Set f = fs.opentextfile("myFile" & i & ".html", 2, True)
Sheets(i).Activate
 
f.writeline "<html>"
 
f.writeline "<head>"
 
f.writeline "<title>Macro</title>"
 
f.writeline "</head>"
 
f.writeline "<body>"
 
f.writeline "  <a href=""" & Cells(j, 10) & """>" & Cells(j, 7) & "</a>"
 
f.writeline "</body>"
 
f.writeline "</html>"
 
f.Close
Next j
Next i
End Sub
Dans mon fichier excel, j'ai dans une colonne, un nom, et en face, dans une autre colonne, une adresse. Ce nom pointe en fait vers cette adresse. Dans mon code, J'ai alors essayé de rajouter une boucle j pour qu'il y ait 4 adresses dans mon fichier html. Malheureusement, on ne voit toujours qu'une seule adresse, et c'est la dernière qu'il prend en compte, donc la cellule (10,7) associé à son adresse de la cellule (10,10).

Quelqu'un aurait-il une idée?

Merci d'avance