Utiliser une formul excel dans VBA

[invite9789dd03]

Bonjour à tous et à toutes,

Dans excel si nous rentrons 2016 en A1
En A2 nous pouvons rentrer =DATE(A1;1;1)
ce qui nous donne la date du 1 janvier de cette année.
Puis nous pouvons rentrer en A3 =JOURSEM(A2;2)
Ce qui nous donne la position du jour dans la semaine (1= lundi, 7=dimanche)

J'aimerais faire exactement la même chose dans VBA.
J'aurai au préalable récuperer l'année dans une variable.

Si j'enregitre l'écriture de mes formules excel dans une macro, je récupère ceci :

ActiveCell.FormulaR1C1 = "=DATE(RC[-1])"
Range("A3").Select
ActiveCell.FormulaR1C1 = "=WEEKDAY(RC[-1])"

Le souci cest que je ne peux pas utiliser cela dans mon code VBA.
Ces formule sont uniquement valable dans excel.

Comment puis je contourner le problème ??

Merci d'avance.
-----

[invite0bbe92c0]

Bonjour

Je ne connais pas VBA (ou du moins superficiellement) mais je pense que vous devriez trouver une réponse dans les liens suivants qui traite de la manpulation datetime en VBA :

http://www.excel-easy.com/vba/date-time.html
http://www.tutorialspoint.com/vba/vba_date_time.htm

[invite9789dd03]

Merci,

J'ai trouvé ce site :
http://mhubiche.developpez.com/vba/f...ions/datetime/

Du coup j'ai réussi à compiller ceci :

Dim Annee As Integer
Dim Jour_1 As String

Annee = Application.InputBox(prompt:=" Rentrer année", Type:=1)
Jour_1 = Weekday(DateSerial(Annee, 1, 1))

Ainci je calcule le 1er jour de mon mois.