arreter une macro a la réouverture
salut
j'ai se code qui fonctionne tres bien , mais si j'ouvre le classeur enregistrer sous le nom de la cellule f8 , le # fature change encore , car il y a un autre code qui dit a l'ouverture f8+1
comment empecher cette action pour une nouvelle ouverture mais seulement pour les classeur enreistrer f8 ????
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22
| Sub enregistrer_classeurfacture()
Dim chemin As String, fichier As String
chemin = ThisWorkbook.Path
fichier = chemin & "\" & Range("f8") & ".xls"
ActiveWorkbook.SaveAs Filename:=fichier
Range("c9").Select
Selection.ClearContents
Range("a21:b44").Select
Selection.ClearContents
Range("e10").Select
Dim N As Long
N = Sheets(1).Range("F9").Value
N = N + 1
Sheets(1).Range("F9").Value = N
Dim Numfacture As Long
Numfacture = Sheets(1).Range("F9").Value
Numfacture = Numfacture + 1
Sheets(1).Range("F8").Value = "FE-" & Format(Date, "yymm") & Numfacture
End Sub |
et le code a l'ouverture :
Code:
1 2 3 4 5 6 7 8 9 10 11
| Private Sub Workbook_open()
Dim N As Long
N = Sheets(1).Range("F9").Value
N = N + 1
Sheets(1).Range("F9").Value = N
Dim Numfacture As Long
Numfacture = Sheets(1).Range("F9").Value
Numfacture = Numfacture + 1
Sheets(1).Range("F8").Value = "FE-" & Format(Date, "yymm") & Numfacture
End Sub |
merci