Selction lien hypertexte

[Ken Hutchinson]

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

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

 

[Ken Hutchinson]

Re : Selction lien hypertexte

Ne tenez pas compte de mon message je suis un gros bourricot...

 

[skoobi]

Re : Selction lien hypertexte

Bonjour,

si tu veux descendre en A9, il faut mettre:

ActiveCell.Offset(1, 0).Select

Peux-tu envoyer la procédure "Patch_Contrainte" stp?

Edit: trop tard

 

[Guest]

Re : Selction lien hypertexte

bonjour,

Ne serait-ce pas plustôt :

ActiveCell.Offset(1, 0).Select

pour passer à la ligne suivante?

A bientôt

bonjour Skoobi, nous collisionnons