Logiciel de facturation (repris de ce site) amelioré avec un convertisseur chiffre en lettre + n° de facture avec une base

Soyez le premier à donner votre avis sur cette source.

Vue 27 054 fois - Téléchargée 30 916 fois

Description

il a été telecharger dans ce site amelioration avec un convertisseur chiffre en lettre + n° de facture avec une base access

Codes Sources

A voir également

Ajouter un commentaire Commentaires
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
Messages postés
15814
Date d'inscription
jeudi 8 août 2002
Statut
Modérateur
Dernière intervention
4 mars 2013
120
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
Messages postés
144
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!
Messages postés
15814
Date d'inscription
jeudi 8 août 2002
Statut
Modérateur
Dernière intervention
4 mars 2013
120
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

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.