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:
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
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
Partager