Bonsoir ,

Merci pour le code

J'ai d'abord une question est ce que tout ces codes s'executent à
l'ouverture du fichier ???

Et pour le numéro de facture à chaque fois je fais insérer une feuille ça me
copie mon onglet et me crée une nouvelle feuille??? J'ai recopier les codes
pour mes factures et intervention en modifiant la cellule et le nom et à
chaque fois que je créé un onglet pour tester ca me reprend le numéro
d'avant : dans devis j'ai testé 6 fois quand jai testé pour facture ca ma
sorti f-08-007 et 008 et pour intervention i-08-009 en plus j'ai toujours
fait enregistrer ! j'ai fait une boulette quelque part ???

Alors pour ma liste on va commencer par le début !!

J'ai 4 fichier : devis.xls ; facture.xls ; feuille d'intervention.xls ; et
gestion sur excel.xls

Dans ma gestion sur excel j'ai une liste de chaque document liste devis ,
liste facture , liste feuille d'intervention , historique client /site)

Je m'explique :

1- je crée mon onglet devis (qui maintenant à son numéro tout seul)
j'aimerais qu'il s'enregistre en tant que ligne dans ma liste devis

2 - Ma liste devis va recencé tous les devis qui ont été créér quelque soit
le client les infos qui ressortent de cette liste sont le n° devis , la date
du devis , le client , l'adresse du site , le montant ht et ttc , la date
d'envoi et la date d'acceptation . donc chaque onglet dans devis.xls sera
une ligne dans liste devis sur gestionsurexcel.xls
(je recopierai le code pour facture et feuille d'inter)

3- Je veux interroger les documents émis pour 1 client et sur 1 site de ce
client ; donc je vais renseigner la raison sociale le code site après c'est
là que mon menu déroulant m'indiquant le type de document apparait !!
Dans mon tableau vont ressortir toutes les docs donc si je veux tout les
devis du client ALpha sur le site 27 je vais écrire dans la cellule B5 : 27
et B7 Alpa
En cellule B9 je vais choisir devis mon menu déroulant qu mindique devis ,
facture , feuille d'intervention.

Donc dans mon tableau je vais voir tous les devis qui ont été fait pour ce
client sur ce site , et j'aurai comme information la date , le type de doc
qui est le devis ...

en ligne 13 j'ai les entêtes que je vous ai donné et j'aimerai qu'en
fonction des paramètres au dessus apparaissent tous les devis pour ce site
pour ce client .
Les informations seront récupérées dans le même classeur gestion sur
excel.xls dans les onglets liste devis , liste facture et liste feuille
d'intervention.

J'espère que je me suis bien expliquée!!! en tout cas merci mille fois vous
me rendez un IMMMMMENSE service !



"Youky" <nospam.bruno.jeune***wanadoo.fr> a écrit dans le message de news:
u3bcuqD7IHA.1196***TK2MSFTNGP05.phx.gbl...
> For k = 1 To Sheets.Count
> If Sheets(k).Visible = True Then x = x + 1
> If x = 6 Then Sheets(k - 3).Visible = False: Exit For
> Next
>
> Ceci pour masquer si +de 5 onglets, je masque le 3eme onglet, au besoin
> changer -3
> A mettre en bas de ma précédente macro
>
> Pour faire les listes c'est possible avec Userform mais faut savoir ou
> chercher les données et comment sont-elles classées
> Donne un exemple de tes entetes de colonnes...
> Les données devis ou Facture sont-elles sur des onglets différents???
> Faut-il prévoir chercher par client (je vois que tu as un historique)
> ci-dessous cela me dit rien
>> 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
>
> Youky
>
>
> "picsounet" <picsounet***hotmail.com> a écrit dans le message de news:
> eB3iSpA7IHA.2416***TK2MSFTNGP02.phx.gbl...
>>
>> 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
>>>
>>>>
>>>>
>>>
>>>
>>
>>
>
>