Probleme incrementation auto

Résolu

sebelec16 -
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
Ciel auto entrepreneur - Télécharger - Comptabilité & Facturation
Auto clicker souris - Télécharger - Divers Utilitaires
Camsam android auto - Télécharger - Transports & Cartes
Auto backup - Télécharger - Sauvegarde
Auto refresh - Télécharger - Divers Web & Internet

2 réponses

Réponse 1 / 2

dlt-pan Messages postés 481 Date d'inscription Statut Membre Dernière intervention 67

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

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

Recopier sans incrémenter tous les chiffres

Nettoyer sa Ps4

copier des formules à l' identique .

nettoyage ps4 slim

Votre réponse

Discussions similaires