Numéroation automatique. j'y arrive pas

[emp06]

Bonjour à tout le monde
Voila plusieurs heures que je parcours les forums et je n'arrive pas à trouver ma première solution. Jusqu'a présente j'utilise un systéme de numéroation automatique, mais sur le meme classeur, avec création de base donnée sur la meme feuille également.
Le systéme fonctionne bien. Le point négatif et qu'il est très difficile de modifier un bon une fois enregistré.
C'est une chose qui arrive fréquement et qui me pousse à vouloir tout modifier
Merci de votre aide

Numérotation AUTOMATIQUE avec incrementation à chaque création d'un nouveau classeur
1 classeur=1commande
A chaque ouverture d'un nouveau classeur, je souhaite qu'il s'incremente de +1
Je souhaite également que la liste des clients contenant au moins les informations notés se place dans un classeur diférent intitutlé par ex : Base

 

[MuscatMimi]

Re : Numéroation automatique. j'y arrive pas

Bonjour

Je ne sais pas si j'ai compris ta demande mais voici une proposition

Private Sub Workbook_Open()
Dim Nouvelle As Integer
Nouvelle = MsgBox("Est-ce une nouvelle facture ?", vbOKCancel, "Nouvelle facture")
If Nouvelle = vbOK Then
    If Range("H1") = Month(Now) And Range("H2") = CInt(Right(Year(Now), 2)) Then
        Range("H3") = Range("H3") + 1
    Else
        Range("H1") = Month(Now)
        Range("H2") = Right(Year(Now), 2)
        Range("H3") = 1
    End If
End If
End Sub

dis-moi si ça te convient

Cordialement

 

[emp06]

Re : Numéroation automatique. j'y arrive pas

Merci
je te joints mon fichier en ayant introduit ton code
je l'ai enregistre comme modele
et ensuite ouvert normalement
apparemment j'ai du oublié une étape
Merci de ton aide précieuse

 

[MuscatMimi]

Re : Numéroation automatique. j'y arrive pas

Bonsoir

regarde ce fichier il doit corresponde a ce que tu souhaite

bonne soirée

 

[emp06]

Re : Numéroation automatique. j'y arrive pas

Merci, mais je n'arrive pas ouvrir le dernier fichier envoyé
merci de ton aide

 

[MuscatMimi]

Re : Numéroation automatique. j'y arrive pas

Bonsoir

pour extraire le fichier
Cliq droit Extraire,et voila

Sinon explique ce que tu n'arrive pas a faire

Cordialement

 

[emp06]

Re : Numéroation automatique. j'y arrive pas

oui je l'ai ouvert. le systeme de telechargement que j'utilise pour d'autre application provoque une erreur.
cela correspondt bien en grande partie à ce que je souhaite faire.
merci beaucoup
A cette application je souhaite :
travailler avec des clients nouveaux à chaque fois. ce qui implique sans doute une création en simultanée de la fiche client.
de pouvoir avoir une base de donnée sur un classeur externe
joindre une image à chaque fiche article

je vais montée le départ de cela grace à ton aide préciseuse et te l'enverai
sans doute pour une aide futur prochaine, si tu le veux bien

cordialement

 

[MuscatMimi]

Re : Numéroation automatique. j'y arrive pas

ok pas de soucis,mais ,surtout explique bien ce que souhaite
obtenir

bonne soirée a Antibes

d'ailleurs ,j'y vais ce week-end a antibes