
 'Macro pour gérer les fichiers Excel contenu dans un dossier : les ouvrir, récupérer l'information désirée et la copier dans un nouveau fichier Excel "bilan"

Dim i, Signaux, Intensite, Nombre, PositionPremChiffre, NbChiffre, NumCaractere, PremFichier, NbFeuil As Integer
Dim NomFichier, Chemin, Nom, NomAbrege, Caractere, Nombres, PreCaractere, File_Is As String
Dim NomChemFichier As Variant
Dim Fso As Object
Dim x As Boolean

 'Créer le fichier bilan sur le bureau
Workbooks.Add
ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\jerome\Bureau\bilan manip.xls"

Cells(1, 1).Value = "Nom de Fichier"
Cells(1, 2).Value = " Nombre de signaux"
Cells(1, 3).Value = "Intensité des signaux"


 'Récupérer le chemin et le nom des fichiers à ouvrir
Application.Dialogs(xlDialogOpen).Show
Nom = ActiveWorkbook.Name
Chemin = ActiveWorkbook.Path
NomAbrege = Left$(Nom, Len(Nom) - 14)
ActiveWorkbook.Close savechanges:=False

i = 1
File_Is = Dir(Chemin + "\*.XLS")
    Do Until File_Is = ""
        Workbooks.Open Filename:=Chemin + "\" + File_Is
        
        'Trier nombre de Dapi (dernière cellules active colonne A)
        NbFeuil = Worksheets.Count
            ActiveWorkbook.Worksheets(ActiveSheet.Index).Select
                Range("A65536").End(xlUp).Select
                If ActiveCell <> "" Or i > 0 Then
                    Nombre = ActiveCell.Value
                Else
                    Nombre = 0
                End If

        'Trier intensité (dernière cellule active colonne E)
           ActiveWorkbook.Worksheets(ActiveSheet.Index).Select
                Range("E65536").End(xlUp).Select
               If ActiveCell <> "" And i > 0 Then
                    Intensite = ActiveCell.Value
                Else
                    Intensite = 0
                End If

        'Trier " Zone libre " pour augmenter le nombre de paramètre


         'Transfert des données sélectionnées sur la nouvelle feuille
        
        ActiveWorkbook.Close savechanges:=False
        
        Windows("bilan manip.xls").Activate
        Sheets.Item(1).Select
        Sheets.Item(1).Cells(i + 1, 1).Value = File_Is
        Sheets.Item(1).Cells(i + 1, 2).Value = Nombre
        Sheets.Item(1).Cells(i + 1, 3).Value = Intensite

        File_Is = Dir
        i = i + 1
    Loop

End Sub
