Sauvegarde feuille par macro avec le nom de la feuille

Bonjour à tous,

J'ai un fichier excel avec plusieurs feuilles.

J'ai une macro qui me permet de prendre un feuille et de la sauvegarder à un endroit précis en format htm.

Mon souci est que je ne voudrais pas faire une macro pour chaque feuille mais que la macro prenne en compte le nom de la feuille que je sauvegarde comme nom de fichier .htm.

Et la je suis paumé. Pouvez vous m'aider svp ?

Sub test()
'
' test Macro
' Macro enregistrée le 23/03/2011 par Compta
'

'
    With ActiveWorkbook.PublishObjects.Add(xlSourceSheet, _
        "C:\Documents and Settings\srvcompta\Bureau\COTATION.htm", "2010", "", _
        xlHtmlStatic, "COTATION_17386", "")
        .Publish (True)
        .AutoRepublish = False
    End With
    ChDir "C:\Documents and Settings\srvcompta\Bureau"
End Sub

Sur ma macro, par exemple, le nom donné au fichier est equivalent au nom du classeur tout entier (COTATION) et la feuille sauvegardé s'appelle 2010.

Ca serait super si le nom du fichier créer prenait le nom de la feuille ouverte lors de l'execution de la macro

Merci pour votre aide.

Amicalement

-- 23 Mar 2011, 16:20 --

Pas d'idée ?

Un petit up

Amicalement

Bonjour steph 70

Essaie quelque chose comme cela

Sub test()

'

' test Macro

' Macro enregistrée le 23/03/2011 par Compta

'

'

chemin= activeworkbook.path &"\"

nom = activesheet.name & ".htm"

With ActiveWorkbook.PublishObjects.Add(xlSourceSheet, _

chemin & nom"2010", "", _

xlHtmlStatic, "COTATION_17386", "")

.Publish (True)

.AutoRepublish = False

End With

ChDir "C:\Documents and Settings\srvcompta\Bureau"

End Sub