Discussion :

[oliver75]

Bonjour,

je souhaite via une macro décaller l'ensemble des colonne (B: BI) d'une colonne lors de l'ouverture de mon fichier. La colonne B passant en C , la C en D etc.....et la colonne BH devenant BI.

je veux realiser cet manip qu'une fois par jour lors de la 1ere ouverture de mon fichier.
Les autres ouvertures journalières ne doivent pas mettre en route cette macro.

Merci de votre aide.

olivier

[mordrhim]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Private Sub Workbook_Open()
    If Format(Feuil2.Cells(1, 1), "YYYY/MM/DD") <> Format(Date, "YYYY/MM/DD") Then
        Feuil1.Columns("B:B").Insert Shift:=xlToRight
        Feuil2.Cells(1, 1) = Format(Date, "YYYY/MM/DD")
    End If
    Feuil2.Visible = xlSheetHidden
End Sub

biensur Feuil2 etant un pur exemple, il faut que tu créés une feuille pour garder le résultat lors de la fermeture, ensuite cette feuille ne devra plus être modifiéé sinon par ta macro