VBA - Copie colonne dans autre feuille en début de mois

Bonjour,

Je souhaiterais faire tourner une macro lorsque j'ouvre le fichier pour la première fois ce mois-ci.

Cette macro doit ensuite effectuer l'action suivante (de la feuille Data vers feuille resume) :

Copier (de DATA vers Resume) la colonne du mois correspondant au mois actuel + 3 (c'est-à-dire nous en décembre 2016, je veux copier le mois de mars 2017). Lors des mois suivants, il faudrait garder toutes les données déjà copier et coller le mois en question dans la colonne suivante de la feuille Resume. Je veux donc au fil du temps re-créer un tableau avec plusieurs mois.

Est-ce que quelqu'un dans ce forum peut m'aider?

Merci et bonnes fêtes de fin d'année

Bonsoir,

Je ne suis pas sûr d'avoir bien compris, mais peut-être ainsi :

Private Sub Workbook_Open()
    Dim ws As Worksheet, d, k%, h%, n%
    d = DateSerial(Year(Date), Month(Date) + 3, 1)
    Set ws = Worksheets("Resume")
    Do
        h = h + 1: If ws.Cells(3, h) = d Then d = 0: Exit Do
    Loop While ws.Cells(3, h) <> ""
    If d > 0 Then
        With Worksheets("Data")
            Do
                k = k + 1
            Loop Until .Cells(3, k) = d
            n = .Cells(.Rows.Count, k).End(xlUp).Row - 2
            ws.Cells(3, h).Resize(n).Value = .Cells(3, k).Resize(n).Value
        End With
    End If
End Sub

Cordialement.

Merci beaucoup pour votre aide... Cela fonctionne très bien. Vous avez très bien compris ma demande 8)

Très bonne année à vous,