Discussion :

[sweaty2]

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

[sweaty2]

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 .