Bonjour,
 
Je n'y connais rien en vba donc je me permets de faire appel à vos lumières..
J'ai une liste de lien hypertexte (1000 lignes environ) sur une feuille excel et souhaite faire une macro pour :
Ouvrir les liens un par un et copier chaque page ouverte sur une autre feuille excel.
 
J'arrive à le faire une fois mais pas à répéter l'action pour les 1000 lignes
 
j'ai ce code :
 
    Range("A1" ).Select
    Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
    Sheets("Feuil3" ).Select
    Range("A1" ).Select
    ActiveSheet.PasteSpecial Format:="Texte", Link:=False, DisplayAsIcon:= _
    False
    Range("A632" ).Select
    Sheets("Feuil1" ).Select
 
 
j'ai mis A632 car ce que je copie tiens 632 lignes donc je dois copier toutes les 632 lignes.
Je veux répeter ce copier coller pour mes 1000 liens hypertextes.
 
Merci d'avance pour tout

For i = 1 To 1000
    Range("A" & i).Select
    Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
    Sheets("Feuil3" ).Select
    Range("A" & ((632 * (i-1)) - 1).Select
    ActiveSheet.PasteSpecial Format:="Texte", Link:=False, DisplayAsIcon:= _
    False
    Range("A" & (632 * i)).Select
    Sheets("Feuil1" ).Select
Next

C'est gore, mais ça doit marcher

PS : T'es limité à 65000 et quelques lignes (2^16) dans une feuille Excel, donc évidement, 1000 * 632 ça va te péter à la gueule, mais c'est une autre histoire.

Avec 256 colonnes ca devrait aller.
 
 
for i=1 to 100
  for a=1 to 10
    cells(i,a).Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
    ...
    ...
  next a
next i

pourquoi tu t'emmerdes à coller tes liens sous excel alors qu'un fichier texte et une routine vb suffiraient ? au pire si t'as pas VB une routine TRASH sous ACCESS tu crées un formulaire et tu colles ton code dedans c'est plus simple les fichiers texte... tu peux leur injecter 300 000 lignes ils diront "presque" rien...
Bon c'est sur que si tu DOIS utiliser EXCEL, là je peux pas t'aider
Bon courage