Dim REQ As String
Dim Repert As String
Dim ongle As String
Dim plage As String
Dim sortie As String
Dim RSQL As QueryTable
Dim sPDFName As String
sPDFName = sortie
Application.ScreenUpdating = False
Sheets("TXT").Select
For i = 1 To Rows.Count
REQ = Cells(i, 1)
ongle = Cells(i, 3)
ongle2 = Cells(i, 4)
sortie = Cells(i, 2)
forma = Cells(i, 5)
If Cells(i, 1) = "" Then Exit For
If Dir(REQ) <> "" Then
Workbooks.Open Filename:=REQ, _
UpdateLinks:=0