<pre data-code-wrap="vba"><code class="lang-vba">Dim horodatage As String
horodatage = Format(Now, "yyyy-MM-dd hh:mm:ss")
MsgBox horodatage
</code></pre>
<p>Pour l’écrire dans une cellule :</p>
<pre data-code-wrap="vba"><code class="lang-vba">Range("A1").Value = Format(Now, "yyyy-MM-dd hh:mm:ss")
</code></pre>