Addition facture à partir des fichier fermé

G

Guest

Guest

• 15 Novembre 2013

• #16

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+

 

Vote positif 0 Vote négatif

R

RONIBO

XLDnaute Impliqué

• 15 Novembre 2013

• #17

Re : Addition facture à partir des fichier fermé

Bonsoir,

Merci pour le fichier,

Maintenant je bloque ici

CNX.CursorLocation = adUseClient

Cliquez pour agrandir...

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+

 

Pièces jointes

• ex.xlsm

  82.5 KB · Affichages: 32
• ex.xlsm

  82.5 KB · Affichages: 25
• ex.xlsm

  82.5 KB · Affichages: 34

Vote positif 0 Vote négatif

G

Guest

Guest

• 15 Novembre 2013

• #18

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+

 

Vote positif 0 Vote négatif

R

RONIBO

XLDnaute Impliqué

• 15 Novembre 2013

• #19

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+

 

Vote positif 0 Vote négatif

G

Guest

Guest

• 15 Novembre 2013

• #20

Re : Addition facture à partir des fichier fermé

Re,

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

A+

 

Vote positif 0 Vote négatif

R

RONIBO

XLDnaute Impliqué

• 15 Novembre 2013

• #21

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 🙂

 

Vote positif 0 Vote négatif

R

RONIBO

XLDnaute Impliqué

• 15 Novembre 2013

• #22

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?

 

Vote positif 0 Vote négatif

G

Guest

Guest

• 15 Novembre 2013

• #23

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+

 

Vote positif 0 Vote négatif

R

RONIBO

XLDnaute Impliqué

• 15 Novembre 2013

• #24

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

Cliquez pour agrandir...

 

Dernière édition: 15 Novembre 2013

Vote positif 0 Vote négatif

G

Guest

Guest

• 16 Novembre 2013

• #25

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+

 

Vote positif 0 Vote négatif

R

RONIBO

XLDnaute Impliqué

• 16 Novembre 2013

• #26

Re : Addition facture à partir des fichier fermé

Bonjour,

Euh je c'est plus 🙁

Après le End if?

A+

 

Vote positif 0 Vote négatif

G

Guest

Guest

• 16 Novembre 2013

• #27

Re : Addition facture à partir des fichier fermé

Re,

🙁 je passe la main🙁

A+

 

Vote positif 0 Vote négatif

R

RONIBO

XLDnaute Impliqué

• 16 Novembre 2013

• #28

Re : Addition facture à partir des fichier fermé

Re,


Merci quand même 🙂

 

Vote positif 0 Vote négatif