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
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