Base de données (récupération de données sur plusieurs feuilles)

[Anibalion]

Bonjour à tous,

il s'agit de ma première participation sur ce forum, et je vous remercie d'avance pour l'aide que vous m'apporterez .

Voici ma problématique :

je souhaiterai réaliser une base de donnée (feuille excel) qui pourrait automatiquement récupérer des données précises issus de plusieurs feuilles (à différent moment).

Actuellement je dispose de se code qui me permet de copier l’intégralité de la feuille, pour ma part je souhaiterai sélectionner un onglet bien spécifique dans la feuille que j'essaye de charger.
Deuxième problème, a chaque utilisation de la macro les premières données sont écrasées, comment mettre les nouvelles données à la suite ?

Sub Macro1()
    Dim a As Variant, Nom As String

    Nom = ActiveWorkbook.Name
    ChDrive "C:"    ' Choix du lecteur
    ChDir "C:\"    'Choix du répertoire
    a = Application.GetOpenFilename("fichier excel (*.xlsx), *.xlsx", _
                                    , "Sélection de vos fichiers excel", , True)

    Select Case TypeName(a)
    Case Is = "Boolean"
        Exit Sub
    Case Else
        For b = LBound(a) To UBound(a)
            Workbooks.Open a(b)
        Next
    End Select

    Nom2 = ActiveWorkbook.Name
    Cells.Select
    Selection.Copy
    Windows(Nom).Activate
    Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                                                                    :=False, Transpose:=False
    Application.DisplayAlerts = False
    Windows(Nom2).Close
    Application.DisplayAlerts = True

End Sub

Je vous remercie d'avance pour votre aide

N'hésitez pas à me poser des questions si nécessaire

Bien cordialement,

Anibal

 

[Anibalion]

Re : Base de données (récupération de données sur plusieurs feuilles)

J'ai vraiment besoin de votre aide s'il vous plait, si vous avez besoin de plus d'informations n'hésitez pas.