Effacer le contenu des cellules apres enregistrement
sebelec16
Messages postés
2
Statut
Membre
-
Zoul67 Messages postés 2001 Statut Membre -
Zoul67 Messages postés 2001 Statut Membre -
Bonjour,
j'aimerais integrer dans ce code un code permettant d'effacer des cellules prédéfinies ( ex : cellule A20:A25 ) après chaque réouverture de fichier.
Merci de votre aide.
Sebelec16.
Option Explicit
Private Sub Workbook_Open()
If Left(ActiveWorkbook.Name, 4) = "BTFI" Then Exit Sub
Range("R4") = Range("R4") + 1
ActiveWorkbook.Save
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim Chemin As String, Numéro_Facture As Integer
If Left(ActiveWorkbook.Name, 4) = "BTFI" Then Exit Sub
Chemin = ActiveWorkbook.Path
Numéro_Facture = Range("R4")
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:= _
Chemin & "\BTFI " & Numéro_Facture & ".xls", FileFormat:=xlWorkbookNormal, CreateBackup:=False
End Sub
j'aimerais integrer dans ce code un code permettant d'effacer des cellules prédéfinies ( ex : cellule A20:A25 ) après chaque réouverture de fichier.
Merci de votre aide.
Sebelec16.
Option Explicit
Private Sub Workbook_Open()
If Left(ActiveWorkbook.Name, 4) = "BTFI" Then Exit Sub
Range("R4") = Range("R4") + 1
ActiveWorkbook.Save
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim Chemin As String, Numéro_Facture As Integer
If Left(ActiveWorkbook.Name, 4) = "BTFI" Then Exit Sub
Chemin = ActiveWorkbook.Path
Numéro_Facture = Range("R4")
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:= _
Chemin & "\BTFI " & Numéro_Facture & ".xls", FileFormat:=xlWorkbookNormal, CreateBackup:=False
End Sub
