Sub OuvreFich()
Workbooks.Open "\\chamois\Commun\App\analyse.xls"
End Sub
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