LOGICIEL DE FACTURATION (REPRIS DE CE SITE) AMELIORÉ AVEC UN CONVERTISSEUR CHIF

cs_DARKSIDIOUS Messages postés 15814 Date d'inscription jeudi 8 août 2002 Statut Membre Dernière intervention 4 mars 2013 - 28 mars 2007 à 10:44
aderko Messages postés 7 Date d'inscription samedi 3 mai 2003 Statut Membre Dernière intervention 16 août 2008 - 16 août 2008 à 17:22
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/41991-logiciel-de-facturation-repris-de-ce-site-ameliore-avec-un-convertisseur-chiffre-en-lettre-n-de-facture-avec-une-base-access

aderko Messages postés 7 Date d'inscription samedi 3 mai 2003 Statut Membre Dernière intervention 16 août 2008
16 août 2008 à 17:22
ce programme est impec...
je voudrais ajouter une pic dans la facture...si vous pouvez m'aider
ce serait sympa...merci
cs_DARKSIDIOUS Messages postés 15814 Date d'inscription jeudi 8 août 2002 Statut Membre Dernière intervention 4 mars 2013 131
13 avril 2007 à 12:28
Un pc sans word d'installé ? C'est plus commun que tu le crois :
* dans les PME, ils utilisent parfois works, parfois open office, ou autre suite bureautique, et même parfois : ils n'utilisent pas de suites bureautiques !
* Chez les utilisateurs lambda : IDEM, ceux qui utilisent leur pc pour internet ou le jeux, ou la vidéo par exemple, ils n'ont pas forcément besoin d'un traitement de texte, ou dépenser autant pour en avoir un !
* Dans les entreprises, là aussi, même si word est souvent installé, c'est pas systèmatique : les entreprises qui ont fait le choix d'une autre suite bureautique ne migrera pas facilement dans une autre solution !
* Dans les services publics : on l'a vu récement, ils se tournent vers les solutions open source, donc bye bye word !

Quand je parlais de report, je ne voulais pas dire un report access !!! Je parlais soit du report de vb (le datareport), soit une solution plus souple (Report Manager par exemple), car là c'est encore pire : pour exécuter l'aperçu avant impression du report, il me semble bien qu'il faut access d'installé, et là le pourcentage des postes ayant access d'installé doit être vraiment faible !

DarK Sidious
pifou25 Messages postés 144 Date d'inscription lundi 13 octobre 2003 Statut Membre Dernière intervention 21 décembre 2014
13 avril 2007 à 10:43
haha c'est rigolo comme remarque, j'ai jamais vu un pc sans word installé, à plus forte raison lorsqu'il y a access car en général il y a toute la suite office ;)
mais c'est vrai qu'un report access c'est bien plus puissant qu'un publipostage sous word. Je savais pas qu'on trouvait ce genre de 'logiciel' ici!
cs_DARKSIDIOUS Messages postés 15814 Date d'inscription jeudi 8 août 2002 Statut Membre Dernière intervention 4 mars 2013 131
28 mars 2007 à 10:44
La moindre des choses aurait été de mettre le lien de la source originale... tu crois pas ?

Sans vouloir être méchant, voici mes impressions sur ce projet :

Que dire de cà ???
# .Selection.Font.Name = "Times New Roman"
# .Selection.Font.Size = 12
# .Selection.TypeParagraph
# .Selection.TypeText Text:=Form1.com(0).Text
# .Selection.TypeParagraph
# .Selection.TypeText Text:=Form1.com(1).Text
# .Selection.TypeParagraph
# .Selection.TypeText Text:=Form1.com(2).Text
# .Selection.TypeParagraph
# .Selection.TypeText Text:=Form1.com(3).Text
# .Selection.TypeParagraph
# .Selection.TypeText Text:=Form1.com(4).Text
# .Selection.TypeParagraph
# .Selection.TypeText Text:=Form1.com(5).Text
# .Selection.TypeParagraph
# .Selection.TypeText Text:=Form1.com(6).Text
# .Selection.TypeParagraph
# .Selection.TypeText Text:=Form1.com(7).Text
# .Selection.TypeParagraph
# .Selection.TypeText Text:=Form1.com(8).Text
# .Selection.TypeParagraph
# .Selection.TypeText Text:=Form1.com(9).Text
# .Selection.TypeParagraph
# .Selection.TypeText Text:=Form1.com(10).Text
# .Selection.TypeParagraph
# .Selection.TypeText Text:=Form1.com(11).Text
# .Selection.TypeParagraph
# .Selection.TypeText Text:=Form1.com(12).Text
# .Selection.TypeParagraph
# .Selection.TypeText Text:=Form1.com(13).Text
# .Selection.TypeParagraph
# .Selection.TypeText Text:=Form1.com(14).Text
# .Selection.TypeParagraph
# .Selection.TypeText Text:=Form1.com(15).Text
# .Selection.TypeParagraph
# .Selection.TypeText Text:=Form1.com(16).Text
# .Selection.TypeParagraph
# .ActiveDocument.Shapes.AddTextbox(msoTextOrientationHorizontal, 420, 185, 40, 400).Select
# .Selection.ShapeRange.Line.ForeColor.RGB = RGB(192, 192, 192)
# .Selection.Font.Name = "Times New Roman"
# .Selection.Font.Size = 12
# .Selection.TypeParagraph
# .Selection.TypeText Text:=Form1.quat(0).Text
# .Selection.TypeParagraph
# .Selection.TypeText Text:=Form1.quat(1).Text
# .Selection.TypeParagraph
# .Selection.TypeText Text:=Form1.quat(2).Text
# .Selection.TypeParagraph
# .Selection.TypeText Text:=Form1.quat(3).Text
# .Selection.TypeParagraph
# .Selection.TypeText Text:=Form1.quat(4).Text
# .Selection.TypeParagraph
# .Selection.TypeText Text:=Form1.quat(5).Text
# .Selection.TypeParagraph
# .Selection.TypeText Text:=Form1.quat(6).Text
# .Selection.TypeParagraph
# .Selection.TypeText Text:=Form1.quat(7).Text
# .Selection.TypeParagraph
# .Selection.TypeText Text:=Form1.quat(8).Text
# .Selection.TypeParagraph
# .Selection.TypeText Text:=Form1.quat(9).Text
# .Selection.TypeParagraph
# .Selection.TypeText Text:=Form1.quat(10).Text
# .Selection.TypeParagraph
# .Selection.TypeText Text:=Form1.quat(11).Text
# .Selection.TypeParagraph
# .Selection.TypeText Text:=Form1.quat(12).Text
# .Selection.TypeParagraph
# .Selection.TypeText Text:=Form1.quat(13).Text
# .Selection.TypeParagraph
# .Selection.TypeText Text:=Form1.quat(14).Text
# .Selection.TypeParagraph
# .Selection.TypeText Text:=Form1.quat(15).Text
# .Selection.TypeParagraph
# .Selection.TypeText Text:=Form1.quat(16).Text
# .Selection.TypeParagraph
# .ActiveDocument.Shapes.AddTextbox(msoTextOrientationHorizontal, 460, 185, 50, 400).Select
# .Selection.ShapeRange.Line.ForeColor.RGB = RGB(192, 192, 192)
# .Selection.Font.Name = "Times New Roman"
# .Selection.Font.Size = 12
# .Selection.TypeParagraph
# .Selection.TypeText Text:=Form1.pu(0).Text
# .Selection.TypeParagraph
# .Selection.TypeText Text:=Form1.pu(1).Text
# .Selection.TypeParagraph
# .Selection.TypeText Text:=Form1.pu(2).Text
# .Selection.TypeParagraph
# .Selection.TypeText Text:=Form1.pu(3).Text
# .Selection.TypeParagraph
# .Selection.TypeText Text:=Form1.pu(4).Text
# .Selection.TypeParagraph
# .Selection.TypeText Text:=Form1.pu(5).Text
# .Selection.TypeParagraph
# .Selection.TypeText Text:=Form1.pu(6).Text
# .Selection.TypeParagraph
# .Selection.TypeText Text:=Form1.pu(7).Text
# .Selection.TypeParagraph
# .Selection.TypeText Text:=Form1.pu(8).Text
# .Selection.TypeParagraph
# .Selection.TypeText Text:=Form1.pu(9).Text
# .Selection.TypeParagraph
# .Selection.TypeText Text:=Form1.pu(10).Text
# .Selection.TypeParagraph
# .Selection.TypeText Text:=Form1.pu(11).Text
# .Selection.TypeParagraph
# .Selection.TypeText Text:=Form1.pu(12).Text
# .Selection.TypeParagraph
# .Selection.TypeText Text:=Form1.pu(13).Text
# .Selection.TypeParagraph
# .Selection.TypeText Text:=Form1.pu(14).Text
# .Selection.TypeParagraph
# .Selection.TypeText Text:=Form1.pu(15).Text
# .Selection.TypeParagraph
# .Selection.TypeText Text:=Form1.pu(16).Text
# .ActiveDocument.Shapes.AddTextbox(msoTextOrientationHorizontal, 510, 185, 50, 400).Select
# .Selection.ShapeRange.Line.ForeColor.RGB = RGB(192, 192, 192)
# .Selection.Font.Name = "Times New Roman"
# .Selection.Font.Size = 12
# .Selection.TypeParagraph
# .Selection.TypeText Text:=Form1.dt(0).Text
# .Selection.TypeParagraph
# .Selection.TypeText Text:=Form1.dt(1).Text
# .Selection.TypeParagraph
# .Selection.TypeText Text:=Form1.dt(2).Text
# .Selection.TypeParagraph
# .Selection.TypeText Text:=Form1.dt(3).Text
# .Selection.TypeParagraph
# .Selection.TypeText Text:=Form1.dt(4).Text
# .Selection.TypeParagraph
# .Selection.TypeText Text:=Form1.dt(5).Text
# .Selection.TypeParagraph
# .Selection.TypeText Text:=Form1.dt(6).Text
# .Selection.TypeParagraph
# .Selection.TypeText Text:=Form1.dt(7).Text
# .Selection.TypeParagraph
# .Selection.TypeText Text:=Form1.dt(8).Text
# .Selection.TypeParagraph
# .Selection.TypeText Text:=Form1.dt(9).Text
# .Selection.TypeParagraph
# .Selection.TypeText Text:=Form1.dt(10).Text
# .Selection.TypeParagraph
# .Selection.TypeText Text:=Form1.dt(11).Text
# .Selection.TypeParagraph
# .Selection.TypeText Text:=Form1.dt(12).Text
# .Selection.TypeParagraph
# .Selection.TypeText Text:=Form1.dt(13).Text
# .Selection.TypeParagraph
# .Selection.TypeText Text:=Form1.dt(14).Text
# .Selection.TypeParagraph
# .Selection.TypeText Text:=Form1.dt(15).Text
# .Selection.TypeParagraph
# .Selection.TypeText Text:=Form1.dt(16).Text

De petites boucles for auraient été les bienvenues...

Sans compter les très nombreuses variables globales à tout le projet

De plus utiliser Word pour faire l'impression d'une facture, c'est pas ce qui se fait de mieux : cela oblige les clients à installer word pour utiliser cette application... vu le prix de word, cela n'est pas négligeable ! Un petit report aurait mieux fait l'affaire.

Quite à reprendre un projet existant, tu aurais pu l'optimiser.

DarK Sidious