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

Messages postés
15838
Date d'inscription
jeudi 8 août 2002
Statut
Modérateur
Dernière intervention
4 mars 2013
- - Dernière réponse : 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

Afficher la suite 
aderko
Messages postés
7
Date d'inscription
samedi 3 mai 2003
Statut
Membre
Dernière intervention
16 août 2008
-
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
15838
Date d'inscription
jeudi 8 août 2002
Statut
Modérateur
Dernière intervention
4 mars 2013
73 -
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
150
Date d'inscription
lundi 13 octobre 2003
Statut
Membre
Dernière intervention
21 décembre 2014
-
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
15838
Date d'inscription
jeudi 8 août 2002
Statut
Modérateur
Dernière intervention
4 mars 2013
73 -
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