Discussion :

[vins86]

Bonsoir,

Je voudrais savoir c'est possible de copier des cellules sur une autre feuille le dernier jour du mois de droite en droite?

Cordialement,

Vincent

[Theze]

Bonjour,

C'est possible mais sans plus d'explications, voilà, à mettre dans le module du classeur :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Private Sub Workbook_Open()
 
    'si c'est le dernier jour du mois
    If Month(Now) < Month(Now + 1) Then
 
        'Copie des cellules...
 
    End If
 
End Sub

Hervé.

[SfJ5Rpw8]

Bonjour,

C'est possible mais sans plus d'explications, voilà, à mettre dans le module du classeur :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Private Sub Workbook_Open()
 
    'si c'est le dernier jour du mois
    If Month(Now) < Month(Now + 1) Then
 
        'Copie des cellules...
 
    End If
 
End Sub

Hervé.

plutôt :

Code :

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

if Month(Now) <> Month(Now + 1) Then

[Theze]

Bonjour bbil,

Comme(Now + 1) ne pourra jamais être inférieur à Now ma comparaison est juste ;o)

Hervé.

[SfJ5Rpw8]

sur ?

ce n'est pas now+1 que tu compare

[Theze]

Code :

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

1
2
 
If Month(Now) < Month(Now + 1) Then

En admettant que l'on soit le 30/04/2013, Month nous retourne 4, en rajoutant 1, (ce qui nous donne le 1er mai), Month(Now + 1) retourne 5 donc si je demande :

Est-ce que 4 est inférieur à 5 alors OK !

Enfin c'est comme ça que je le comprend !

Hervé.