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 : Sélectionner tout - Visualiser dans une fenêtre à part
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 : Sélectionner tout - Visualiser dans une fenêtre à part
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