Salut,

Je cherche a ce qu'a l'ouverture de mon classeur, si celui ci possede le nom "logiciel_offre.xls", on affecte aux cellules C12 et D13 la date d'aujourdhui:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
 
  Private Sub Workbook_Open()
 
      Dim ToDay As Date
      If ActiveWorkbook.Name = "Logiciel_offres_v8.xls" Then
          Range("C12:E12").Select
          ActiveCell.FormulaR1C1 = "=TODAY()"
          Range("D13").Select
          ActiveCell.FormulaR1C1 = "=TODAY()"
      End If
  End Sub
Et je voudrais qu'a l'ouverture d'une coipe de ce fichier, la date ne soit pas celle d'aujourd'hui mais celle de la création de ce fichier