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.

Autres pages sur : sauver plusieurs feuilles excel html

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

Créer un nouveau sujet