enrgistrement auto sur macro

[matt31]

Bonjour,

j'ai la macro suivante que je veux appliquer à la fermeture du fichier.
Elle permet d'effacer des lignes vides et de tracer les lignes sur des cellules non vides.
Par contre, je voudrais qu'une fois la macro appliquée le fichier s'enregistre automatiquement.

Actuellement, à chaque fermeture il me demande si je veux enregistrer les modifications.

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim Lig As Long
With Sheets("Relances cumulées")
  If .Range("A3") = "" Then Exit Sub
    Application.EnableEvents = False
      Lig = .Cells(Rows.Count, 1).End(xlUp).Row
      .Range(.Cells(Lig + 1, 1), .Cells(Lig + 1, 23).End(xlDown)).Delete Shift:=xlUp
      On Error Resume Next
      With .Range("A4:A" & Lig).SpecialCells(xlCellTypeBlanks).EntireRow
          .Delete Shift:=xlUp
      End With
      On Error GoTo 0
      Lig = .Range("A" & Rows.Count).End(xlUp).Row
      With .Range("A3:W" & .Range("A" & Rows.Count).End(xlUp).Row).Borders
        .LineStyle = xlLineStyleNone
        .Weight = xlThin
      End With
      .Range("A3:Y3").Borders(xlEdgeTop).Weight = xlThick
      .Range("J3:J" & Lig & ",K3:K" & Lig & ",K3:K" & Lig & ",W3:W" & Lig & ",X3:X" & Lig & ",Y3:Y" & Lig).Borders(xlEdgeRight).Weight = xlThick
      Application.EnableEvents = True
  End With

Merci de bien vouloir m'aider.

 

[Pierrot93]

Re : enrgistrement auto sur macro

Bonjour,

peut être un "save" en fin de procédure...

ThisWorkbook.Save

bon après midi
@+