Pour la feuille promoteur, j'ai recopié la feuille société au niveau du code en changeant bien sur les adresses :
Download la table qui contient l'information du nombre de page :
Case 'Promoteurs'
strAdresse = 'URL; & tbltStrCompagnie(0, intCode) & '&tab=RSLTS&sortby=b_FundName&sortorder=ASC&Firstletter=&pageNo=1'
Call Societe(strAdresse, 'A60000', '4')
Pour le téléchargement :
Case 'Promoteurs'
strAdresse = 'URL; & tbltStrCompagnie(0, intCode) & '&tab=RSLTS&sortby=b_FundName&sortorder=ASC&Firstletter=&pageNo=' & intPageCount
Call Societe(strAdresse, 'A' & [B65536].End(xlUp).Offset(5, -1).Row, '5')
If intPageCount = intNbPage Then
'Va chercher les infos de la société(étiquete)
strAdresse = 'URL; & tbltStrCompagnie(0, intCode) & '&tab=RSLTS&sortby=b_FundName&sortorder=ASC&Firstletter=&pageNo=1'
Range('AO1:AZ9').ClearContents
'Stop
Call Societe(strAdresse, 'AO1', '3')
Range('AO8:AS9').Copy Destination:=Range('AO7:AS8')
Range('AO2:AT8').Copy Destination:=Range('AO1:AT7')
Columns('AO:AT').EntireColumn.Hidden = True
Application.ScreenUpdating = True
Range('B8').Select
End If
' Téléchargement Pour le longTerme.
strAdresse = 'URL; & tbltStrCompagnie(0, intCode) & '&tab=HSTRY&Firstletter=&pageNo=' & intPageCount & '&SortBy=b_FundName&sortorder=ASC'
Call Societe(strAdresse, 'V' & [Y65536].End(xlUp).Offset(5, 1).Row, '5')
Mais il y a une différence avec la feuille société au niveau des pages.
Je m'explique, la première page de la feuille société est la page=0 alors que la première page de la feuille promoteurs est la page=1.
C'est peut-être ça qui cloche mais je ne vois pas comment faire pour arranger le code.
fichier :
Bye