Enregistrer sous

[LeTophe]

Bonjour à toutes et tous.

Je suis à la recherche d'une macro me permettant de :

Depuis mon classeur Excel.

Je Souhaite enregistré au format html (sans ouvrir) un autre classeur existant sur mon disque .

Sauvegarde en .html au meme emplacement que le fichier .xls, avec le meme nom.

Par avance, merci pour vos conseils.

LeTophe

 

[myDearFriend!]

Bonsoir LeTophe, le Forum.


Si j'ai bien compris la question :

Sub CopieEnHtml()
Dim CheminXLS As String, CheminHTM As String
With ThisWorkbook
Application.ScreenUpdating = False
'Sauvegarde d'abord en xls
.Save
'Sauvegarde ensuite en htm
CheminXLS = .FullName
CheminHTM = Left(CheminXLS, Len(CheminXLS) - 3) & 'htm'
.SaveAs Filename:=CheminHTM, FileFormat:=xlHtml
'Réouvre le fichier xls original
Workbooks.Open CheminXLS
'Ferme le fichier htm
.Close
Application.ScreenUpdating = True
End With
End Sub


Cordialement

Message édité par: myDearFriend!, à: 01/03/2005 01:52