§ Macro 6 : consolider différents fichiers
Sub Consolider()
Application.ScreenUpdating = False 'ne pas voir ce qui se passe à l'écran
Application.DisplayAlerts = False
For lgn = 2 To 65 'pour boucler sur les lignes 2 à 65
Application.StatusBar = "Nombre de fichiers traités " & lgn
Sheets("Ref").Select
regate = Cells(lgn, 1).Value 'on variabilise, regate = cellule ligne de la boucle, colonne 1
Application.AskToUpdateLinks = False 'pour éviter qu’Excel demande à chaque ouverture de fichier si on veut la MAJ des liaisons
Workbooks.Open ("U:\PUBLIC\DOTC\DFI\CGC\Nathalie\Trajectoire\" & regate & ".xls")
‘on ouvre le fichier où se trouve les données du premier CC
Sheets("données").Visible = True ‘ on rend visible l’onglet caché
Sheets("données").Select
Range("A2:Q35").Select
Selection.Copy
Sheets("données").Visible = False ‘ on cache à nouveau l’onglet
Workbooks("" & regate & ".xls").Close 'fermer le fichier
Windows("Consolidation.xls").Activate ‘on se place sur le fichier consolidation, qui est déjà ouvert d’où windows
Sheets("Base").Select
If [a2] = "" Then Range("a1").Activate Else Selection.End(xlDown).Select
ActiveCell.Activate
ActiveCell.Offset(1, 0).Activate 'pour se placer sur la prochaine ligne vierge
ActiveSheet.Paste
Range("a1").Select
Workbooks(regate & ".xls").Activate
Sheets("données").Visible = False
Workbooks(regate & ".xls").Close 'fermer le fichier
Next ‘on boucle
End Sub