Super merci c'est génial j'ai testé mais j'ai un soucis!!!!
En fait je voudrais que ca fonctionne pareil mais quand je copie l'onglet
car mon premier devis est un modèle .

Est ce que c'est faisable ? mon fichier devis s'appelle devis.xls et
l'onglet d-08-00

Mille fois merci

Picsounet
"Youky" <nospam.bruno.jeune***wanadoo.fr> a écrit dans le message de news:
eKPOXD36IHA.1592***TK2MSFTNGP04.phx.gbl...
> Bonsoir ,
> essai ceci, il faut enregistrer le fichier avant de lancer la macro.
> Attention la macro va créer un fichier N°facture.txt dans le même
> répertoire
> que ton fichier actuel. Si cela ne conviens pas tu peux le supprimer.
> Ce fichier txt peut être modifié avec le bloc note.....
> Ici dans cette macro en F12 tu auras D/les 2 dernier chiffres de l'année/
> et 001
> incrémenté à chaque ajout d'onglet. A chaque nouvelle année on repart à
> 001
> Donc 999 factures par an sinon faut modifier la macro.
> Je pense qu'il est plus sage de faire comme ça que de toucher la base de
> registre.
> Cette macro est à placer en ThisWorkbook et en NewSheet.
> Youky
>
> Private Sub Workbook_NewSheet(ByVal Sh As Object)
> fichier = ThisWorkbook.Name
> Dim nf As String
> an = Right(Year(Now), 2)
> chemin = ThisWorkbook.Path
> On Error Resume Next
> canal = FreeFile
> Open chemin & "\N°facture.txt" For Input As #canal
> Input #canal, nf
> Close #canal
> If Left(nf, 2) = an Then
> nf = CStr(an) & CStr(Right(nf + 1001, 3))
> Else
> nf = CStr(an) & CStr("001")
> End If
> [F12] = "D/" & an & "/" & Right(nf + 1001, 3)
> Open chemin & "\N°facture.txt" For Output As #canal
> Print #canal, nf
> Close #canal
> End Sub
>
> "picsounet" <picsounet***hotmail.com> a écrit dans le message de news:
> OUyYL3y6IHA.3696***TK2MSFTNGP04.phx.gbl...
>> Bonjour ,
>>
>> J'ai plein de codes à créer mais bien entendu en tant que bon débutant le
>> VBA est du langage inconnu !!
>> J'ai un gros livre de 500 pages qui me donne quelques indications mais
>> quand j'essai ca ne marche pas!!
>>
>> Alors voilà ce qui me gène en premier :
>>
>> J'ai une gestion sur Excel avec des Devis , Feuille d'intervention et des
>> Factures , chacune ayant un numéro qui se suit :
>>
>> pour le devis : le premier sera D/08/01 et lorsque je créé un nouvel
>> onglet je devrais voir apparaitre en F12 :d/08/01
>>
>> J'ai trouvé un code dans mon livre mais je dois l'écrire dans le registre
>> Windows , je ne sais pas ou c'est et en plus il y a des choses que je ne
>> comprend pas dans le code :
>>
>> Compteur = Getsetting ("Entreprise XYZ", " Numfacture", "Compte", 0)
>> Compteur = Compteur +1
>> Savesetting "entreprise XYZ" , "Numfacture" , "Compte" , Compteur
>>
>> Donc j'ai compris qu'à la place de entreprise XYZ je devais mettre le nom
>> de ma société FTP
>> Mais à la place de numfacture et compte ???,
>>
>> Merci beaucoup pour votre réponse
>>
>> Et est ce que je pourrais abusés gentillement de vos conseils pour
>> d'autres codes ??!!
>>
>> Mille fois merci
>>
>> Picsounet
>>
>
>