bonsoir Hellboy,
Génial ton code, il évite de boucler sur les références dans la feuille, du coup on peut supprimer des lignes et le code de suppression des doublons devient inutile.
j’aime bien nbpage = Mid(Cells(60000, 2), InStr(Cells(60000, 2), 'sur ') + 4, 10)
nbpage = (Mid(nbpage, 1, InStr(1, nbpage, Chr(32)) - 1) / 30) – 1
je ne comprends pas tout :
quelques questions :
- pourquoi aller en ligne 6000 ?
- est-ce que le code tient compte de toutes les pages à télécharger ? (ma remarque du 07/05/2005 15:09)
sur la remarque à propos de l’adresse, en effet,une partie des informations a disparu dans l’étiquette (au-dessus des historiques), après téléchargement
\\'la fiche entreprise ne marche
pas très bien non plus. \\'
je n'ai pas trop le temps de regarder ce soir
à +
albert