Copie de données, Changer la feuille de destination par date

Question

Je fais appel à vous aujourd'hui pour orienté une copie de feuille Excel suivant l'année ... je m'explique : Chaque mois un utilisateur fait une requête sur un site pour collecter des données, qui apparait sous format Excel (Le nom ne change jamais "Classeur1" avec une seule feuille "Feul1") Les données à collectées commence à la ligne 12 La date à collecté est dans la colonne U (donc 1er date à U12) L'agent doit copier ses données et les remettre dans un autre classeurs qui contient des feuilles qui ont pour noms les années. Je ne peux pas copier simplement la feuille parce que le classeur ou l'on copie les données en contient d'autres. Je chercher à automatiser tout ça, le truc qui me pose problème c'est au changement d'année la feuille de destination ne sera plus la même, peut on changer de feuille chaque année??? si oui comment ? J’espère avoir été le plus clair possible et précis possible, désolé de ne pouvoir vous communiquer mes fichiers Excel pour raison de confidentialité. Merci d'avance pour votre Aide. Cordialement...

MFerrand · Accepted Answer

Autrement dit, tu ne fournissais pas la configuration exacte dans laquelle tu opérais...

Voilà pour transférer les données :

Sub ImportDonnées()
    Dim wsC As Worksheet, n%, TblD
    With Workbooks("Classeur1.xls").Worksheets(1)
        .Columns("G:K").Insert
        .Columns("E").Insert
        n = .Range("B" & .Rows.Count).End(xlUp).Row - 11
        With .Cells(12, 2).Resize(n, 12)
            .Columns(4).Value = .Columns(2).Value
            .Columns(2).Value = .Columns(3).Value
            .Columns(3).ClearContents
            Set wsC = ThisWorkbook.Worksheets(CStr(Year(.Cells(1, 12))))
            TblD = .Value
        End With
    End With
    wsC.Cells(Rows.Count, 2).End(xlUp)(2).Resize(n, 12).Value = TblD
    Workbooks("Classeur1.xls").Close False
End Sub

Procédure que tu pourras faire exécuter à la suite de ta création du Classeur1...

Cordialement.

MFerrand · Answer

Ici : Sheets(Feuil1)..... erreur de syntaxe, déjà ! Ensuite, non tu n'es pas clair du tout ! Tu fournis tout ton code, s'il s'avère suffisant pour répondre à la question, tu auras des réponses utiles, sinon c'est qu'un classeur illustrant ta configuration s'avèrera nécessaire... Cordialement...

MFerrand · Answer

S'agit-il d'une simple copie (NB- je dirais plutôt transfert ou reproduction, car j'évite de copier tant que l'on peut faire autrement... mais de plus l'organisation étant différente sur la cible, la copie ne convient d'ailleurs pas !), c'est à dire on ne se préoccupe pas des données (hormis la date qui définit la destination) et donc on ajoute sur la feuille destination toutes les lignes qui ont vocation à y aller ?

Ou bien s'agit-il d'une mise à jour ? Et alors sur quels critères ?

Je suppose que l'opération sera déclenchée à partir du classeur cible (le classeur source changeant tous les mois). De quelle façon ? Ce classeur ne contient que des feuilles années. Et classeur source ouvert lors du déclenchement ou non ?

Cordialement.