XL 2013 VBA qui copie les données d'un onglet dans un autre onglet en fonction de certains critères

JM27 à dit:

Bonjour
avant de poster un autre question il aurait été bien de répondre à la précédente.
https://www.excel-downloads.com/thr...isons-dans-un-fichier.20066028/#post-20499012
Le merci est le seul salaire du bénévole!
Qu'en pense tu?

Cliquez pour agrandir...

job75 à dit:

Bonjour onyirimba, JM27,

Téléchargez les fichiers joints dans le même dossier (le bureau) et ouvrez le fichier 2200A1.xlsm.

La macro dans ThisWorkbook :

VB:

Private Sub Workbook_Activate()
Dim chemin$, fichier$, mois$
chemin = ThisWorkbook.Path & "\"
fichier = Dir(chemin & "PASA*.xlsx") '1er fichier PASA du dossier, à adapter
If fichier = "" Then MsgBox "Aucun fichier 'PASA' dans ce dossier...": Exit Sub
Application.ScreenUpdating = False
While fichier <> ""
    On Error Resume Next
    Workbooks(fichier).Close False 'si le fichier est ouvert
    On Error GoTo 0
    Workbooks.Open chemin & fichier 'ouvre le fichier source
    mois = Right(CStr([B2]), 2)
    If Not mois Like "##" Or mois > "12" Then _
        Application.ScreenUpdating = True: [B2].Select: MsgBox "Le mois en B2 n'est pas correct": Exit Sub
    With ThisWorkbook.Sheets(mois)
        Cells.Copy .Cells(1)
        Cells(1).Copy .Cells(1) 'allège la mémoire
        Application.EnableEvents = False 'désactive les évènements
        ActiveWorkbook.Close False 'ferme le fichier source
        Application.EnableEvents = True 'réactive les évènements
        .Visible = xlSheetVisible 'si la feuille est masquée
        Application.Goto .Cells(1), True 'cadrage
    End With
    fichier = Dir 'fichier suivant du dossier
Wend
End Sub

Tous les fichiers .xlsx dont le nom commence par PASA sont copiés.

A+

Cliquez pour agrandir...