Comment insérer un horodatage à l’aide de VBA (avec exemple)

Vous pouvez utiliser la syntaxe de base suivante dans VBA pour insérer un horodatage dans une cellule particulière dans Excel :

Sub InsertTimestamp()

Range("A1").Value = Format(Now, "mm/dd/yyyy hh:mm:ss")
    
End Sub

Cette macro particulière insère l’heure actuelle au format mm/jj/aaaa hh:mm:ss dans la cellule A1 .

Remarque : La fonction Now de VBA renvoie la date et l’heure actuelles en fonction de la date et de l’heure système de votre ordinateur.

L’exemple suivant montre comment utiliser cette syntaxe dans la pratique.

Exemple : Comment insérer un horodatage à l’aide de VBA

Supposons que nous créions la macro suivante pour insérer la date et l’heure actuelles comme horodatage dans la cellule A1 de notre feuille actuelle dans Excel :

Sub InsertTimestamp()

Range("A1").Value = Format(Now, "mm/dd/yyyy hh:mm:ss")
    
End Sub

Lorsque nous exécutons cette macro, nous recevons le résultat suivant :

La cellule A1 affiche désormais la date et l’heure actuelles d’exécution de cette macro.

Pour cet exemple particulier, la datetime est au format mm/dd/yyyy hh:mm:ss .

Notez que nous pourrions également spécifier un format différent à utiliser.

Par exemple, nous pourrions créer la macro suivante pour afficher l’heure actuelle au format jj-mm-aaaa hh:mm:ss dans la cellule B1 :

Sub InsertTimestamp()

Range("A1").Value = Format(Now, "mm/dd/yyyy hh:mm:ss")
Range("B1").Value = Format(Now, "dd-mm-yyyy hh:mm:ss")

End Sub

Lorsque nous exécutons cette macro, nous recevons le résultat suivant :

Les cellules A1 et B1 affichent désormais toutes deux la date et l’heure actuelles dans des formats différents.

Remarque : Vous pouvez trouver la documentation complète de la fonction Format dans VBA ici .

Ressources additionnelles

Les didacticiels suivants expliquent comment effectuer d’autres tâches courantes dans VBA :

Comment comparer les dates dans VBA
Comment formater l’heure dans VBA
Comment calculer la différence de temps dans VBA