Discussion :

[Rania1990]

Bonjour tout le monde,

Je voudrais copier des valeurs d'un tableau à un autre tous les premiers du mois
j'ai essayé ce code mais ça marche pas

Code :

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

1
2
3
4
5
6
7
8
9
10
 
    IF(TODAY()=DATE(YEAR(TODAY()),MONTH(TODAY()),1) then
    Sheets("Data").Select
    range("T3:AX3").Select
    Selection.Copy
    Sheets("Data Validation").Select
    range("H9").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
End Sub

Merci pour votre aide

[Transitoire]

Bonjour,

IF(TODAY()=DATE(YEAR(TODAY()),MONTH(TODAY()),1) then

a remplacer par:

Code :

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

If Day(Now) = 1 then

Le reste suivant vos besoins
Cordialement

[Transitoire]

Re voila votre code complet qui devrait fonctionner si????????

Code :

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

1
2
3
4
5
6
7
8
9
If Day(Now) = 1 then
Sheets("Data").Range("T3:AX3").Copy
    Sheets("Data Validation").Select
    Range("H9").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
Else
End if
End Sub

Cordialement

[Rania1990]

Mercii beaucoup !