Discussion :

[lebeniste]

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

[Godzestla]

Bonjour,
essaie ceci (qui suppose que ton nom de fichier est en sheets(1).Range("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
 
Private Sub Workbook_open()
Dim N As Long
if sheets(1).Range("F8") = thisworkbook.name then
   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
endif
 
End Sub

Je n'ai pas testé.

[lebeniste]

ca semble bien fonctionner.

en faite le workbook s'applique au classeur et dans ton code il s'applique a la feuille ????

(j'essais de comprendre)

merci

[Godzestla]

ca semble bien fonctionner.

en faite le workbook s'applique au classeur et dans ton code il s'applique a la feuille ????

(j'essais de comprendre)

merci

Ce n'est pas cela.
A l'ouverture on vérifie que le nom du classeur (Thisworkbook.name) est bien égal au contenu de la cellule F8, ce que j'ai compris que tu as demandé.
Si c'est la ces, on incrémente la facture, sinon, on ne fait rien.

Bonne journée.