Private Sub xlsObj2HTM(F As Worksheet, NomFic$, Optional XPath$ = "C:\Temp\IMGS")
'Changer C:\Temp\IMGS par le nom de dossier de votre choix
'le chemin doit être valide et donc les dossiers déjà existants
ActiveWorkbook.WebOptions.UseLongFileNames = False
ActiveWorkbook.PublishObjects.Add(1, XPath & NomFic & ".htm", F.Name, "", 0).Publish (True)
End Sub
Sub testII()
Dim nom$
nom = InputBox("Saisir le nom du fichier d'export", "XL Export Objets en Images", Format(Date, "ddmmyyyy"))
If StrPtr(nom) = 0 Then
Exit Sub
ElseIf Len(nom) Then
xlsObj2HTM ActiveSheet, nom
Else
Exit Sub
End If
End Sub