XL 2021 EXCEL IMPORTER du texte de plusieurs fichier en 1 fichier

Sub Consolider_CC_réalisé()

Application.ScreenUpdating = False   ‘ne pas voir ce qui se passe à l’écran
Application.DisplayAlerts = False

Dim n As Integer

Workbooks.Open ("U:\PUBLIC\DOTC\DFI\CGC\Nathalie\Cockpit\Cc\CC réalisé.xls") 'ouvrir fichier de réception (synthèse)

ThisWorkbook.Activate

Sheets("Fichiers_CC").Select
mois = Sheets("param").Range("D10").Value  ‘choix du mois
rep = Range("b2").Value & mois & "\"  ‘sélection du répertoire avec mois choisi
Sheets("regate").Select
Range("d2").Activate
regate = ActiveCell.Value

Do While ActiveCell.Value <> ""  ‘boucler tant qu’il y a un code regate

 If ActiveCell.Offset(0, 1).Value = "Présent" Then ‘si le fichier est présent dans le répertoire
        
        ordre = ActiveCell.Offset(0, -3).Value  ‘garde en mémoire n° ordre de l’établissement
        Workbooks.Open (rep & "CC-" & regate & ".xls") ‘ouvre le fichier du code regate correspondant
        n = Sheets().Count  ‘compte le nb d’onglets dans le fichier ouvert
            
For i = 1 To n   
Sheets(i).Select
Range("C5:N5").Copy  ‘copie plage voulue
onglet = ActiveSheet.Name  ‘variabiliser nom onglet
Workbooks("CC réalisé.xls").Activate  ‘aller sur fichier synthèse
Sheets(onglet).Select  ‘sélectionner onglet correspondant à la copie
Range("E" & ordre + 3).PasteSpecial xlPasteValues  ‘colonne Eordre + 3 car 3 colonnes déjà remplies
Workbooks("CC-" & regate & ".xls").Activate  ‘retourner sur fichier CC
Next i  ‘répéter l’opération pour l’onglet suivant jusqu’au dernier onglet
Workbooks("CC-" & regate & ".xls").Close  ‘fermer le fichier CC
ThisWorkbook.Activate
ActiveCell.Offset(1, 0).Activate  ‘aller à la ligne suivante
regate = ActiveCell.Value    ‘prendre le regate (le 2ème en fait)
        
    Else   ‘si le fichier n’est pas présent
        ActiveCell.Offset(1, 0).Activate   ‘aller à la ligne suivante
        regate = ActiveCell.Value
    End If

Loop 
Workbooks("CC réalisé.xls").Save    ‘sauvegarder fichier de synthèse
Workbooks("CC réalisé.xls").Close    ‘fermer fichier de synthèse

Application.ScreenUpdating = True   ‘réactiver vision écran
Application.DisplayAlerts = True             
End Sub