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 ????
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
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
merci
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
Partager