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.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub CommandButton2_Click()
 
 
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("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
Je n'ai que quelques notions VBA, merci à vous