Bonjour,
 
Je suis débutant en macro sur excel.  
 
J'ai un petit souci, j'aimerais pouvoir archiver la celulle X69 qui contient la formule =AUJOURDHUI() dans une autre feuille.
J'ai écris ça, mais ca me renvoi une erreur lorsquue j'execute la macro .
 
Sub Archiver()
Date = [X69]
Nom = [P11].Value
Adresse1 = [O13].Value
Adresse2 = [O16].Value
CP = [M18].Value
Ville = [R18].Value
 
Sheets("Archivage" ).Activate
 
If [A2] = "" Then
Range("A2" ).Select
Else:
Range("A1" ).Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Select
End If
ActiveCell.Value = Date
ActiveCell.Offset(0, 1) = Nom
ActiveCell.Offset(0, 2) = Adresse1
ActiveCell.Offset(0, 3) = Adresse2
ActiveCell.Offset(0, 4) = CP
ActiveCell.Offset(0, 5) = Ville
 
End Sub
 
Je vous remercie pour votre aide ;-).

Où as-tu trouver cette écriture : [X69] ?

J'ai juste mis la celulle ou il y a la formule, en esperant que ca passe pendant le report sur l'autre feuille.
 
J'ai essayé avec Date = Now, mais ca m'a rien donné non plus.

Tu ne réponds pas à la question.  
Où as-tu vu que [X69].Value était égale à Range("X69" ).Value ?

C'est un code que j'ai copié et adapté, ca a toujours fonctionné avec des données saisies.

Je connaissais pas.
Revenons à ton problème, es-tu sur que l'erreur vienne de cette ligne ?

Quand le débogage s'active, c'est cette ligne qui est concernée, oui.

Date est un mot protégé de vb, il faut que tu trouves autre chose....