Enregistrer sous

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