Re : Gestions de Commandes Journalieres
Bonsoir jpb388, Bonsoir le Forum
A l'ouverture du fichier Gestion Commande_erreur.xlsm Erreur de chargement de la Dll.
Visual Basic For application
C:\Windows\SysWOW64\VBAEND32.OLB
C:\Windows\SysWOW64\VBAEN32.OLB
C:\Windows\SysWOW64\VEN2232.OLB
C:\Windows\SysWOW64\msvbvm50.dll
C:\Windows\SysWOW64\MSVBVM60.dll
Si je coche message d'erreur Nom de module, de projet ou de bibliothèque d'objet déjà utilisé
C:\Programme Files (x86) Commonn Files\Microsoft Shared\........ le seul qui est coché
?????
À partir de cette fenêtre, barre des menus / outils / références /
et je décoches les références qui sont marquées : Manquantes
et OK cela fonctionne.
Voir format Feuil ImpCommandes dans Feuil1!
Dans la feuille je voudrai uniquement la ligne comme dans la feuille "commandes", pas une feuille d'impression.
Avec le format de ligne par commande j'ai fait un publipostage avec Word.
A la lecture du Fichier :
Dans cChk
For i = 1 To 12
If Usf.Controls("Prix" & i).Value <> "" Then TTprix = CDbl(Usf.Controls("Prix" & i).Value) + TTprix
Next i
faut-il remplacer 12 par 24
Dans cGestion
Function VerifProduitsCommandes(MaTxt As Control) As Boolean
Dim Usf As MSForms.UserForm, Mot$, i%
Set Usf = FrmCommandes
For i = 1 To 12
faut-il remplacer 12 par 24
Dans CTextbox
Case "TxtTel", "TxtCP", "Qte1", "Qte2", "Qte3", "Qte4", "Qte5", "Qte6", "Qte7", "Qte8", "Qte9", "Qte10", "Qte11", "Qte12"
Txt = Replace(Txt, ".", ",")
If Txt <> "" And Not IsNumeric(Txt) Then Txt = Len(Txt) - 1
Case "Prix1", "Prix2", "Prix3", "Prix4", "Prix5", "Prix6", "Prix7", "Prix8", "Prix9", "Prix10", "Prix11", "Prix12", "TxtAcompte"
faut-il rajouter Qte13 etc... Idem pour Prix13 etc..... jusqu'a 24
Merci A+