Addition facture à partir des fichier fermé

[RONIBO]

Bonsoir le forum,

J'ai encore besoin de vos aides,

Je viens de créer un USF "Addition" accessible depuis "Attestation TVA"

Dans ce USF j'ai mis une listbox qui me permet de lister tous mes factures qui se trouve dans : C:\Ronibo\Facture

J'aimerais intégrer un code qui va me permettre d'additionner mes factures sélectionnées sans les ouvrir.

Avoir le résultat sous forme de msgbox (Le montant s'élève à 14 154.38) par exemple.

J'ai donné des noms (depuis le gestionnaire des nom) à mes cellules car il peut m'arriver d'insérer des lignes vide (Etablir des factures sur plusieurs pages)

Voici un fichier exemple (à extraire dans c: svp)

Merci d'avance

 

[Guest]

Re : Addition facture à partir des fichier fermé

Bonjour,

Je viens de m'apercevoir que le fichier joint était resté dans les tuyaux!!!!

Le voici donc. Et je réitère, sur l'arborescence donné en post #1, il fonctionne.
A+

 

[RONIBO]

Re : Addition facture à partir des fichier fermé

Bonsoir,

Merci pour le fichier,

Maintenant je bloque ici

CNX.CursorLocation = adUseClient

C'est quoi cette ligne exactement.

Des que j'essaye avec ton fichier ca marche bien mais des que je l'intègre dans mon fichier ca plante.

C'est moi qui fait mal les choses ? 🙁

A+

 

[Guest]

Re : Addition facture à partir des fichier fermé

Re,

Dans ton premier fichier tu avais la référence à Microsoft ActiveX Data Object X.X cochée, c'est pour cela que j'ai utilisé adUseClient.
Remplace adUseClient par 3 et cela le fera. Ou coche dans outils référence la plus grande versions de Microsoft ActiveX Data Object.

A+

A+

 

[RONIBO]

Re : Addition facture à partir des fichier fermé

Re,

En effet avec un 3 à la place sa fonctionne 🙂

Mais pourquoi 3? si tu peux m'éclaircir 🙂

A+

 

[Guest]

Re : Addition facture à partir des fichier fermé

Re,

Parce que 3 est la valeur de la constante aduseClient de 'Microsoft ActiveX Data Object' !

A+

 

[RONIBO]

Re : Addition facture à partir des fichier fermé

Re,

Merci pour cette info précieuse et ton aide qui m'a permit de résoudre mon problème 😉

Bonne soirée 🙂

 

[RONIBO]

Re : Addition facture à partir des fichier fermé

Re,

Désolé j'ai oublié de demander si l'on pouvez afficher un mgbox lorsqu'il y a pas de facture de sélectionnée (ex : Veuillez sélectionner des factures !)

C'est possible à faire avec ta méthode?

 

[Guest]

Re : Addition facture à partir des fichier fermé

Re,

Cela n'a rien à voir avec ma méthode qui elle intervient après!

Essaie de voir par toi-même où tu pourrais mettre ton msgbox?

A+

 

[RONIBO]

Re : Addition facture à partir des fichier fermé

Bonsoir,

J'ai essayé de faire quelque chose, mais mon msgbox se répète

Tu peux voir ou je me suis trompé stp ?

Private Sub CBAddition_Click()
Dim CNX As Object
Dim I As Integer, RS, CNT
Dim Réponse As Variant
Dim Mémoire As Boolean
Mémoire = True
Const SQL As String = "SELECT * FROM AttestationTVAMontantTTC;"
Const CNXString As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=?;Extended Properties=""Excel 12.0 Macro;HDR=YES"";"
For I = 0 To LBListeFacture.ListCount - 1
If Me.LBListeFacture.Selected(I) Then
Set CNX = CreateObject("ADODB.Connection")
CNX.ConnectionString = Replace(CNXString, "?", Chemin2 & LBListeFacture.List(I))
CNX.CursorLocation = 3
CNX.Open
Set RS = CNX.Execute(SQL)
CNT = CNT + CDbl(RS.Fields(0).Name)
RS.Close: Set RS = Nothing
CNX.Close: Set CNX = Nothing
Me.LBListeFacture.Selected(I) = False
End If
Next
If Mémoire = False Then Réponse = MsgBox("Veuillez sélectionner au moins une facture !", vbInformation, "Attention")
If Réponse = "" Then MsgBox "La somme des factures sélectionnées est de " & Format(CNT, "Currency"), vbInformation, "Résultat": Unload Me
End Sub

 

[Guest]

Re : Addition facture à partir des fichier fermé

Bonjour,

Réfléchissons! Tu as créé une variable boolean 'Memoire' qui s'il y au moins 1item sélectionné dans la liste doit passer à False. Quand, à partir de ta boucle, ce changement d'état pourrait-il bien intervenir pour que la ligne

If Mémoire = False then....
Qui peut s'écrire d'ailleur If Not Mémoire then


A+

 

[RONIBO]

Re : Addition facture à partir des fichier fermé

Bonjour,

Euh je c'est plus 🙁

Après le End if?

A+

 

[Guest]

Re : Addition facture à partir des fichier fermé

Re,

🙁 je passe la main🙁

A+

 

[RONIBO]

Re : Addition facture à partir des fichier fermé

Re,


Merci quand même 🙂