Super merci cela fonctionne ,
Est ce que vous auriez une solution pour ce nouveau problème ???

j'aimerais créer dans une cellule B9 un menu déroulant ou il y aura le choix
entre devis , intervention et facture
De ce menu ressortira dans le tableau en dessous tous les devis par exemple
..

Je vais essayer d'être plus claire : J'ai un historique client avec : mon
client Alpha et son site 27 je voudrais un menu déroulant pour voir tous les
devis fait sur ce client

mon tableau en dessous sera comme ca les infos sont dans liste devis , liste
intervention et liste facture!!!:

DATE TYPE DE DOC (devis ...) N° DOC CONTENU (type d'intervention)
MONTANT REGLE


J'espère que c'est clair!!!! bon courage et mille fois merci vous me
dépannez ENORMEMENT




"Youky" <nospam.bruno.jeune***wanadoo.fr> a écrit dans le message de news:
ujLGb086IHA.5820***TK2MSFTNGP04.phx.gbl...
> Le rajout indiqué hier soir n'était pas correct, voici avec amélioration.
> Si tu n'as pas d'onglets de masqué il te faut supprimer le -1 à
> Sheets(Sheets.Count - 1).......aux 2 lignes
> Youky
>
> Sheets("Feuil1").Copy After:=Sheets(Sheets.Count)
> 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
> Sheets(Sheets.Count - 1).[F12] = "D/" & an & "/" & Right(nf + 1001, 3)
> Sheets(Sheets.Count - 1).Name = "D" & an & "_" & Right(nf + 1001, 3)
> Open chemin & "\N°facture.txt" For Output As #canal
> Print #canal, nf
> Close #canal
>
>>
>>
>
>