Résolu Sauver plusieurs feuilles excel en html

[cdriess]

Bonjour,

Je me heurte à un problème que je n'arrives pas à résoudre.

En fait, j'ai un fichier excel avec 5 feuilles de calcul. Je voudrais faire une macro qui me permettrait de générer 3 fichier html distincts avec 3 de ces 5 feuilles.

Actuellement, j'arrives à générer 1 fichier avec l'une de ces feuilles avec la macro suivante:

[cpp]
With ActiveWorkbook.Worksheets("Sheet1").PublishObjects.Add(xlSourceSheet, _
"C:\Documents and Settings\cdriess\Desktop\Book1.htm", "Sheet1", "", _
xlHtmlStatic, "Book1_1278", "")
.Publish (True)
.AutoRepublish = False
End With
[/cpp]

Cependant je n'arrives pas à l'adapter pour faire de même pour les 2 autres feuilles.

Ou peut-être existe-t-il une solution plus adaptée?

Pouvez-vous m'aider?

Merci d'avance en tout cas.

 

[Thore]

Et si tu en cree 3 avec le nom de chacune et que tu cree une commande pour activer les une apres les autres ?
a+

 

[cdriess]

Meilleure réponse sélectionnée par cdriess.

 

[zeb]

Dis-donc Thore, t'as pas plus laid comme solution. Ici c'est programmation, donc la solution se programme.

Voici ce que je te propose cdriess. Les indices à changer sont bien ceux des deux "Sheet1" ? Alors :

Dim i As integer
For i = 1 To 3
    With ActiveWorkbook.Worksheets("Sheet"  & i).PublishObjects.Add(xlSourceSheet, _
        "C:\Documents and Settings\cdriess\Desktop\Book1.htm", "Sheet" & i, "", _
        xlHtmlStatic, "Book1_1278", "" )
            .Publish (True)
            .AutoRepublish = False
    End With
Next

N'est-ce pas plus joli ?