Boucle sur variable

Sub test()
Dim derl As Integer
Dim sh As Worksheet
Set sh = ActiveSheet
derl = sh.Range("b65536").End(xlUp).Row
For i = 2 To derl
'Workbooks.Open Filename:=Cells(i, 2).Value
MsgBox Cells(i, 2).Value
Next
End Sub

Cliquez pour agrandir...

Egruat à dit:

En revanche je dois mettre UpdateLinks:=3 a la fin de mon workbook car sinon j'ai une fenêtre de confirmation qui s'affiche même si je mets au début de ma macro Application.Displaysalerts = False

Cliquez pour agrandir...