A
Anibalion
Guest
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 ?
Je vous remercie d'avance pour votre aide
N'hésitez pas à me poser des questions si nécessaire
Bien cordialement,
Anibal
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 ?
Code:
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