Macro pour générer une page html avec l'adresse de toutes mes cellules

**josep-t** · 10/04/2017, 10h28

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

**josep-t** · 11/04/2017, 13h52

J'ai réussi à boucler sur les 4 lignes contenant mes adresses. Cependant je ne sais pas comment appliquer cela à toutes mes cellules qui ne sont pas vide. J'ai essayé avec "Cells.Value" sans succès.
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
39
40
41
42
 
Sub Html1()
 
Dim fs As Object
Dim i As Byte
Dim j As Long
 
For i = 1 To Sheets.Count
 
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>"
 
For j = 7 To Cells.Value
 
f.writeline "<br>"
f.writeline "  <a href=""" & Cells(j, 10) & """>" & Cells(j, 7) & "</a>"
Next j
f.writeline "</br>"
 
f.writeline "</body>"
 
f.writeline "</html>"
 
f.Close
Next i
End Sub

**unparia** · 11/04/2017, 14h21

Bonjour

Code :

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

For j = 7 To Cells.Value

? --->> Ah bon ? Tu es certain de cela ? !!! Affiche donc cells.value et médite ...

**josep-t** · 11/04/2017, 14h31

On me dit en fait que la mémoire est insuffisante. Mais finalement je ne sais pas si c'est la bonne façon de faire, il y aurait pas moyen de faire quelque chose comme :

Code :

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

1
2
 
For j = 7 To Not (IsEmpty(ActiveCell))

Mais je ne sais pas comment m'y prendre.

Macro pour générer une page html avec l'adresse de toutes mes cellules

Macros et VBA Excel

Discussions similaires

Partager

Partager