Se connecter avec
S'enregistrer | Connectez-vous

Sauver plusieurs feuilles excel en html

Dernière réponse : dans Programmation

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:

  1. With ActiveWorkbook.Worksheets("Sheet1").PublishObjects.Add(xlSourceSheet, _
  2. "C:\Documents and Settings\cdriess\Desktop\Book1.htm", "Sheet1", "", _
  3. xlHtmlStatic, "Book1_1278", "")
  4. .Publish (True)
  5. .AutoRepublish = False
  6. End With


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.
Lassé par la pub ? Créez un compte
Expert Programmation

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 :

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


N'est-ce pas plus joli ?
Lassé par la pub ? Créez un compte