Probleme incrementation auto [Résolu/Fermé]

Signaler
-
 sebelec16 -
Bonjour à Tous,

J'ai besoin d'un peu d'aide sur une macro que j'ai faite il y a quelques temps, jusqu'à présent dès que je fermai le fichier excel et que je le réouvrai , le numéro s'incrémentait automatiquement depuis ce matin le numéro reste figé.

Je mets la macro en copie.

merci d'avance.
Private Sub Workbook_Open()

If Left(ActiveWorkbook.Name, 4) = "BTFI" Then Exit Sub
Range("V4") = Range("V4") + 1
ActiveWorkbook.Save
Range("NOM").ClearContents
Range("demande").ClearContents
Range("c16").ClearContents
Range("a47:a58").ClearContents
Range("h47:h58").ClearContents
Range("d61:d67").ClearContents
Range("date").MergeArea.ClearContents
Range("c11").MergeArea.ClearContents
Range("b12").MergeArea.ClearContents
Range("b13").MergeArea.ClearContents
Range("b14").MergeArea.ClearContents
Range("b15").MergeArea.ClearContents
Range("b32").MergeArea.ClearContents
Range("b33").MergeArea.ClearContents
Range("b34").MergeArea.ClearContents
Range("b35").MergeArea.ClearContents
Range("b36").MergeArea.ClearContents
Range("b37").MergeArea.ClearContents
Range("b38").MergeArea.ClearContents
Range("b39").MergeArea.ClearContents
Range("b40").MergeArea.ClearContents
Range("b42").MergeArea.ClearContents
Range("b43").MergeArea.ClearContents
Range("b44").MergeArea.ClearContents
Range("b47").MergeArea.ClearContents
Range("b48").MergeArea.ClearContents
Range("b49").MergeArea.ClearContents
Range("b50").MergeArea.ClearContents
Range("b51").MergeArea.ClearContents
Range("b52").MergeArea.ClearContents
Range("b53").MergeArea.ClearContents
Range("b54").MergeArea.ClearContents
Range("b55").MergeArea.ClearContents
Range("b56").MergeArea.ClearContents
Range("b57").MergeArea.ClearContents
Range("b58").MergeArea.ClearContents
Range("c41").MergeArea.ClearContents
Range("n48").MergeArea.ClearContents
Range("p48").MergeArea.ClearContents



End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)


Dim Chemin As String, Numéro_Facture As Integer, Nom_tech As String

Chemin = ActiveWorkbook.Path
Numéro_Facture = Range("V4")
Nom_tech = Range("W4").Value
Application.DisplayAlerts = False

ActiveWorkbook.SaveAs Filename:= _
Chemin & "\BTFI " & Numéro_Facture & " " & Nom_tech & ".xls", FileFormat:=xlWorkbookNormal, CreateBackup:=False

End Sub








2 réponses

Messages postés
481
Date d'inscription
jeudi 17 mai 2007
Statut
Membre
Dernière intervention
23 décembre 2014
55
bonjour
est ce que le nom de fichier que vous ouvrez commence par BTFI ?

If Left(ActiveWorkbook.Name, 4) = "BTFI" Then Exit Sub

si c'est le cas la macro s'arrete

nota : il me semble qu'il manque un else et un end if.. ???


Ce que l'on conçoit bien s'énonce clairement,
Et les mots pour le dire arrivent aisément.
Bonjour dlt-pan,

Merci de ta réponse rapide et effectivement mon fichier avait été renommé BTFI.


J'ai remodifié le nom et donc Sujet résolu.

Cordialement SEBELEC16.