Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionDim retour As String, i As Integer Dim TB Dim objXLApp As Excel.Application Set objXLApp = New Excel.Application retour = ListeFichier() If retour = "" Then Exit Sub TB = Split(retour, vbNullChar) If UBound(TB) = 0 Then For i = Len(TB(0)) To 1 Step -1 If Mid(TB(0), i, 1) = "\" Then Exit For Next End If Dim j As Integer With objXLApp .Workbooks.Open (TB(0)) .Workbooks(1).Worksheets(1).Select