enregistrer au format MHT

Question

Bonjour

J'ai un soucis d'enregistrement d'une selection au format .mht.
Dans mon code, lors du click sur un bouton, j'appelle une autre feuille excel pour enregistrer une selection de cellule au format .mht.
Ma feuille en question s'ouvre, la sélection se fait et se referme aussitôt sans faire cet enregistrement.

Voici la macro :

Sub macromhtlml0()
'
' macromhtlml0 Macro
'

Workbooks.Open "C:\Suivi_DLC\Archives_" & Range("C33").Value & "\Batch_BL_N°" & Range("B27").Value & "\Docsuivicharge.xls"
    Range("A1:Z41").Select
    With ThisWorkbook.PublishObjects.Add(xlSourceRange, _
        "C:\Suivi_DLC\Archives_" & Range("C33").Value & "\Batch_BL_N°" & Range("B27").Value & "\Docsuivicharge.mht", "Feuil1", _
        "$A$1:$Z$41", xlHtmlStatic, "Docsuivicharge_10907", "")
        .Publish (True)
        .AutoRepublish = False
    End With
    ChDir "C:\Suivi_DLC\Archives_" & Range("C33").Value & "\Batch_BL_N°" & Range("B27").Value & ""
    ActiveWorkbook.Save
    ActiveWindow.Close
End Sub


Par avance, merci

fabiendag · Answer

Bonjour,
je pense que le problème vient de ton activeworkbook.save
le classeur actif est toujours le premier que tu as ouvert.
essaie a la place de mettre :
workbooks("C:\Suivi_DLC\Archives_" & Range("C33").Value & "\Batch_BL_N°" & Range("B27").Value & "\Docsuivicharge.mht").save

Fabien

sweaty41 · Answer

Bonjour

J'ai modifié et rien ne se passe, de plus le code se bloque sur la ligne que tu as proposé avec cette erreur : erreur d'execution 9, l'indice n'appartient pas à la sélection.

fabiendag · Answer

sinon tu peux essayer

workbooks("C:\Suivi_DLC\Archives_" & Range("C33").Value & "\Batch_BL_N°" & Range("B27").Value & "\Docsuivicharge.mht").activate
activeworkbook.save


Fabien

sweaty41 · Answer

Toujours pareil, j'ai juste la sélection des cellules qui se fait et pas l'enregistrement en .mht.

sweaty41 · Answer

Bonjour

Voilà, j'ai trouvé la solution, j'ai copié les informations des cellules C33 et B27 dans 2 autres cellules lorsque je remplis mon fichier Docsuicharge depuis mon autre fichier .

Sub mht()
'
' mht Macro
' sauvegarde mhtml
'

'
    Workbooks.Open "C:\Suivi_DLC\Archives_" & Range("C33").Value & "\Batch_BL_N°" & Range("B27").Value & "\Docsuivicharge.xls"
    Range("A1:Z41").Select
    With ActiveWorkbook.PublishObjects.Add(xlSourceRange, _
        "C:\Suivi_DLC\Archives_" & Range("A60").Value & "\Batch_BL_N°" & Range("A61").Value & "\Docsuivicharge.mht", "Feuil1", "$A$1:$Z$41", xlHtmlStatic, _
        "Docsuivicharge_22789", "")
        .Publish (True)
        .AutoRepublish = False
    End With
    ActiveWorkbook.Close True
End Sub

Enregistrer au format MHT

5 réponses

Votre réponse

Discussions similaires