arreter une macro a la réouverture

Version imprimable

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

Bonjour,
essaie ceci (qui suppose que ton nom de fichier est en sheets(1).Range("F8"):

Code:

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é. :mrgreen:

06/03/2009, 16h25
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
08/03/2009, 11h01
Godzestla

Citation:

Envoyé par 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

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.