Mettre la date de l'impression dans une colonne

Bonjour,

Je voudrais mettre la date de l'impression d'un bon de commande dans une cellule... auriez-vous le code VBA nécessaire pour?

Merci par avance pour votre aide,

Bonjour,

Pourquoi un code VBA pour inscrire la date dans une cellule?

Tu utilises la formule :

=AUJOURDHUI()

Jean-Eric a écrit :

Bonjour,

Pourquoi un code VBA pour inscrire la date dans une cellule?

Tu utilises la formule :

=AUJOURDHUI()

Je veux qu'il me mette la date de l'impression a chaque fois. Ce n'est pas forcement aujourd'hui !

si tu n'utilise pas de macro pour l'impression, je ne vois pas comment faire...

si t'a une macro, il suffit d'ajouter une ligne de code dedans:

Range("A1")=now

Re,

La fonction AUJOURDHUI() change tous les jours

Je reexplique:

sur mon document Excel, j'ai une feuilles qui s'appelle stock (ou je marque le matériel à ma disposition) et une feuille qui s'appelle: bon de commande qui se rempli automatiquement, une fois un de mes article arrive à 10. je voudrais, qu'une fois le bon de commande imprimée, qu'il me mette la date de l'impression sur un colonne de la feuille "Stocks" (comme ça je garde la date du renvoie de la commande.

J'espère que j'ai été claire cette fois-ci

Merci par avance pour votre aide

Bonjour,

Tu n'es pas très claire

Pour le principe, à copier dans le module 'ThisWorkbook'.

A chaque impression, la cellule A1 de la feuille 'Stocks' affichera la date du jour.

Option Explicit
Private Sub Workbook_BeforePrint(Cancel As Boolean)
    Worksheets("Stocks").Range("A1") = Date
End Sub

Bon d'après mon prof c'est ça:

Private Sub Workbook_BeforePrint(Cancel As Boolean)

Dim c As Range

Dim i As Integer

i = 26

Do While Feuil9.Cells(i, 1) <> Empty

Set c = Feuil5.Range("A:A").Find(Feuil9.Cells(i, 1), , xlValues, xlWhole)

If Not c Is Nothing Then

c.Cells(1, 7) = Date

End If

Loop

End Sub