Beaucoup trop lent

[XGuarden]

Const sConnect As String = "driver={SQL Server};server=[removed by admin];uid=[removed by admin];pwd=[removed by admin];database=[removed by admin]"

Public Sub UpdateSQL()


    Dim Page As String
    Dim Cellule As String
    Dim Selection As String
    Dim Exclusion As String
    Dim Annee As String
    
    Annee = Sheets("Paramêtres").Range("B3")
    
Dim x As Integer

With Sheets("Paramêtres")
    For x = 10 To 108
        Page = .Range("B" & x)
        Cellule = .Range("C" & x)
        Selection = .Range("D" & x)
        Exclusion = .Range("E" & x)
    
        Call Afficher(Page, Cellule, SelectionSQL(Selection, Exclusion) & Annee & "'")
    Next x
End With

End Sub

Private Sub Afficher(Page As String, Cellule As String, SQL As String)
On Error Resume Next
    Dim rs As ADODB.Recordset
    
    Sheets(Page).Select
        
    Set rs = New ADODB.Recordset

    rs.Open SQL, sConnect, asOpenForwardOnly, adLockReadOnly
    
    'Range(Cellule).Select

    If rs.Fields(0).Value <> 0 Then
        Range(Cellule) = CDec(rs.Fields(0).Value)
    Else
        Range(Cellule) = 0
    End If

    If CBool(rs.State And adStateOpen) Then rs.Close
    Set rs = Nothing
    
End Sub

Private Function SelectionSQL(Selection As String, Exclusion As String) As String

Dim SQL As String
Dim Caractere As String
Dim chaine As String

Dim Increment As Integer

Increment = 1

SQL = "SELECT SUM(SLDE) FROM dbo.FIN_GLG WHERE (NO_CMPT like '"

'Calcul de la selection
Do While Increment <> Len(Selection) + 1

    Caractere = Mid(Selection, Increment, 1)

If Caractere = "*" Then
    chaine = chaine & "_"
ElseIf Caractere = "/" Then
    SQL = SQL & chaine & "' OR NO_CMPT like "
    chaine = "'"
Else
    chaine = chaine & Caractere
End If

    Increment = Increment + 1

Loop

SQL = SQL & chaine & "')"


 'Calcul de l'exclusion
If Exclusion <> "" Then

    chaine = ""
    Caractere = ""
    Increment = 1
    
    SQL = SQL & " AND NOT NO_CMPT like '"
 
    Do While Increment <> Len(Exclusion) + 1

        Caractere = Mid(Exclusion, Increment, 1)

        If Caractere = "*" Then
            chaine = chaine & "_"
        ElseIf Caractere = "/" Then
            SQL = SQL & chaine & "' AND NOT NO_CMPT like "
            chaine = "'"
        Else
            chaine = chaine & Caractere
        End If

        Increment = Increment + 1

    Loop

    SQL = SQL & chaine & "'"
    
End If

SQL = SQL & " AND EXER_FIN = '"

SelectionSQL = SQL

End Function

[Edited by admin]

 

[Juan Pablo González]

(Pardon my french)

Et votre question est quelle ? Et je pense que c'est important d'effacer l'username et le password dans le post.

 

[XGuarden]

PRécision

J'avais changer les informations par des lettres au assards. JE donnerais pas le login etle mot de passe comme sa,....
La questino est simple
Je veut optimizer le code pour qu'il soit plus rapide
Il est extremement lent.

 

[XGuarden]

I can speack english. I just need help for optimize the code. The code is extremly slow.

 

[Greg Truby]

My French grammar is so bad as to be offensive, so I'll try in English. Juan is 10× better at this stuff than I (and that's a conservative estimate), but I would think that perhaps you could pull a recordset one time and then apply filters to that record set rather than reopening the recordset time after time. If your recordsets are huge that might not be an option. But that's what I would try first.

Oh, and it should not matter because adOpenForwardOnly = 0 but you have an error in the constant name (you have asOpenForwardOnly).

 

[erik.van.geit]

Bonjour, XGuarden,
BIENVENU à Bord !!!

Les recordset etcetera n'est pas ma spécialité, mais peut-être deux remarques pourraitnet être utiles.

1. Il serait préférable d'éviter l'utilisation de variables nommées comme "selection" (et increment, ...), puisque c'est des mots qui ont déjà une signifacation spécifique dans "la syntaxe générale" de VBA. En plus il ne s'agit pas d'une selection proprement dite mais du contenu de cette selection, à moins que j'aie mal compris. Ceci une parenthèse qui n'influencera pas vraiment le fonctionnement, mais peut-être bien la facilité de rédiger le code dans le futur.
2. est-ce que ce "loop" ne pourrait pas être évité, au moins partiellement ?

Do While Increment <> Len(Selection) + 1 

    Caractere = Mid(Selection, Increment, 1) 

If Caractere = "*" Then 
    chaine = chaine & "_" 
ElseIf Caractere = "/" Then 
    SQL = SQL & chaine & "' OR NO_CMPT like " 
    chaine = "'" 
Else 
    chaine = chaine & Caractere 
End If 

    Increment = Increment + 1 

Loop

Il me semble aussi qu'un "For ... Next" serait plus rapide que le "Loop ... While"

For I = 1 To Len(Selection) + 1
Caractere = Mid(Selection, I, 1)

Il se peut que ma compréhension de que tu veux faire n'est pas complète, quelques examples de "selections" possibles seraient utiles, les commentaires suivantes sont donc à voir ...
la partie ci-dessous pourrait être effectué en une seule ligne

If Caractere = "*" Then 
    chaine = chaine & "_"

utilisant Application.Substitute

Const test = "abcd*fghi*kl"
MsgBox Application.Substitute(test, "*", "_")

pensons aussi à utiliser la function Instr afin d'éviter trop de "loop" non-nécessaires ...
exemple

Const test = "abcd*fghi*k/l"
MsgBox InStr(1, test, "/")  'position de la première apparance de "/"

en espérant que ceci puisse être utile ou au moins donner de nouvelles idées ...

bien à toi,
Erik