Bonjour Hellboy,
je viens de finir les test voici les résultats :unsure: :
Quand je télécharge 10000 essai :
Sociétés : 'désolé...' Ok
Promoteurs : 'désolé...' Ok
Catégories : 'désolé...' Ok
Catégories (%act. oblig. cash) : 'désolé...' Ok
Si je retélécharge juste après :
Sociétés : bug -> bytColumnRef = Cells(9, 1).End(xlToRight).Column
Promoteurs : Ok
Catégories : bug -> ça plante
Catégories (%act. oblig. cash) : bug -> bytColumnRef = Cells(9, 1).End(xlToRight).Column
-------------------------------------------------
Si maintenant sans télécharger 10000 essai je télécharge une page de moins de 30 fonds (donc une seule page) :
Sociétés : bug -> bytColumnRef = Cells(9, 1).End(xlToRight).Column
Promoteurs : Ok
Catégories : ça plante
Catégories (%act. oblig. cash) : bug -> bytColumnRef = Cells(9, 1).End(xlToRight).Column
-------------------------------------------------
Si maintenant sans télécharger 10000 essai je télécharge une page de plus de 30 fonds (donc plusieurs pages) :
Sociétés : bug -> bytColumnRef = Cells(9, 1).End(xlToRight).Column
Promoteurs : Ok
Catégories : ça plante
Catégories (%act. oblig. cash) : bug -> affichage de 'désolé...'
le code que j'ai inséré d'après MSN :
Private Function NbPage_All(Demande As String)
Dim Plus As Byte
Dim dblNbPageCalcul As Variant
If Demande = 'de ' Then
Plus = 3
Else
Plus = 4
End If
If InStr(Cells(60000, 2), 'No Results') = 0 And Cells(60000, 2) <> Empty And InStr(Cells(60000, 2), Demande & 0) = 0 Then
dblNbPageCalcul = Mid(Cells(60000, 2), InStr(Cells(60000, 2), Demande) + Plus, 10)
If IsNumeric(Trim(dblNbPageCalcul)) Then
dblNbPageCalcul = Mid(dblNbPageCalcul, 1, InStr(1, dblNbPageCalcul, Chr(32)) - 1) / 30
NbPage_All = Application.WorksheetFunction.RoundUp(dblNbPageCalcul, 0)
Else
NbPage_All = -1
End If
Else
NbPage_All = -1
End If
End Function
Voilà j'espère que ça pourra t'éclairer moi je vais regarder mais je doute d'y arriver
On va voir
Bye