1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34
| Sub consolide_EXPORT()
'importer des BDD dans un seul fichier
'ajouter la Sub sup()
'cela importe les données dans des feuilles du classeur
ChDir ActiveWorkbook.Path
Set classeurMaitre = ActiveWorkbook
'sup
nf = Dir("*missions*")
Do While nf <> ""
Workbooks.Open Filename:=nf
Nom_onglet = Right(nf, 24)
Sheets(1).Copy After:=classeurMaitre.Sheets(classeurMaitre.Sheets.Count)
classeurMaitre.Sheets(classeurMaitre.Sheets.Count).Name = Nom_onglet
Workbooks(nf).Close False
nf = Dir ' classeur suivant
Loop
Sheets(1).Select
End Sub
Sub sup()
'importer des BDD dans un seul fichier
'ajouter la Sub consolide classeur()
'cela importe les données dans des feuilles du classeur
Application.DisplayAlerts = False
If Sheets.Count > 1 Then
Sheets("Feuil1").Move Before:=Sheets(1)
Sheets(2).Select
For i = 2 To Sheets.Count
ActiveSheet.Delete
Next i
End If
End Sub |
Partager