Selction lien hypertexte

Ken Hutchinson

XLDnaute Occasionnel
Bonjour,

J'utilise un code que j'ai trouvé pour rechercher les fichiers d'un dossier, les lister.

Je veux maintenant les ouvrir et faire une action de copie dessus.

J'utilise le code suivant mais il marche qu'une seule fois. Je précise qu'en A8 se trouve le premier lien hypertexte et que je veux descendre en A9 pour le suivant. mais ça plante sur la ligne SELECTION.HYPERLINKS

Code:
Sub Macro3()
'
' Macro3 Macro
'
'

'
Range("A8").Select

nblignes = Application.WorksheetFunction.CountA(Range("a:a")) - 3

For i = 1 To nblignes

    Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True

Call Patch_Contrainte
    
ActiveCell.Offset(0, 1).Select

Next i

End Sub
 

Discussions similaires

Réponses
21
Affichages
1 K

Statistiques des forums

Discussions
311 733
Messages
2 082 019
Membres
101 872
dernier inscrit
Colin T