probleme incrementation auto Résolu/Fermé

Question

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








Configuration: Windows 7 / Firefox 26.0

dlt-pan · Answer

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.

sebelec16 · Answer

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.

Probleme incrementation auto

2 réponses

Discussions similaires