Sub Ouverture()
Dim a As Variant, Nom As String
Nom = ActiveWorkbook.Name
Columns("f:f").ClearContents
On Error GoTo suite
Application.ScreenUpdating = False
nbfich = Workbooks(Nom).Sheets(1).Range("b65536").End(xlUp).Row
lig = Workbooks(Nom).Sheets(1).Range("f65536").End(xlUp).Row 'position de la ligne recevant les données
If lig > 1 Then lig = lig + 1 'astuce pour utiliser la première ligne
For nbf = 1 To nbfich 'nombre de fichiers à ouvrir
a = Sheets(1).Cells(nbf, 2).Value 'noms des fichiers à ouvrir en feuille 1 colonne 2
Workbooks.Open a 'ouverture du fichier
Workbooks(Nom).Sheets(1).Cells(lig, 6) = Sheets(1).Cells(1, 1).Value 'exemple de traitement
'n = Len(a) - InStrRev(a, "\") 'recherche du slash
'b = Right(a, n) 'procédure pour connaitre le nom du fichier
If ActiveWorkbook.Name = Workbooks(Nom).Name Then GoTo plus
ActiveWorkbook.Close
plus: 'Workbooks(b).Close 'fermeture du fichier
Workbooks(Nom).Activate 'retour au fichier de commande
reprise:
lig = lig + 1 'incrémentation de la ligne
Next
Application.ScreenUpdating = True
Workbooks(Nom).Activate
Exit Sub
suite:
n = Len(a) - InStrRev(a, "\")
b = Right(a, n)
If Err.Number = 1004 Then MsgBox " Le fichier " & b & " n'est pas présent ICI : " & a
Resume Next: GoTo reprise
End Sub