Probleme incrementation auto

Résolu/Fermé

sebelec16 - 10 févr. 2014 à 09:41
sebelec16 - 10 févr. 2014 à 13:56

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

A voir également:

Probleme incrementation auto
Auto click - Télécharger - Divers Utilitaires
Auto keyboard - Télécharger - Divers Utilitaires
Auto refresh - Télécharger - Divers Web & Internet
Logiciel auto-entrepreneur gratuit télécharger - Télécharger - Comptabilité & Facturation
Yandex auto - Télécharger - Web & Internet

2 réponses

Réponse 1 / 2

dlt-pan Messages postés 481 Date d'inscription jeudi 17 mai 2007 Statut Membre Dernière intervention 23 décembre 2014 67
Modifié par dlt-pan le 10/02/2014 à 13:40

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.

Réponse 2 / 2

sebelec16
10 févr. 2014 à 13:56

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.

Discussions similaires

recopier une formule sans décalage

Cmt avoir 1000 like sur ma photo de profil

Nettoyer sa Ps4

Discussions similaires

Newsletters