Discussion :

[a.dequidt]

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

[jfontaine]

En utilisant l'instruction Instr qui cherchera si le nom du classeur contient le texte que tu cherches.
Instr respectant la casse, met tout en majuscule avec Ucase (ou ne minusucule)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
If InStr(1, UCase(ActiveWorkbook.Name), UCase("Logiciel_offres"), vbTextCompare) > 0 Then
    Range("C12:E12").Select
    ActiveCell.FormulaR1C1 = "=TODAY()"
    Range("D13").Select
    ActiveCell.FormulaR1C1 = "=TODAY()"
End If

[AlainTech]

Avec cette syntaxe

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveCell.FormulaR1C1 = "=TODAY()"

la cellule contiendra toujours la date du jour quand on ouvrira le fichier.

[a.dequidt]

Bonjour a tous,


Jérome ta solution ne marche pas
Je pense procèdé autrement, je m'explique.

En C12 et D13, la date d'aujourd'hui via la fonction =AUJOURDHUI()
en M1, la date de l'ancienne ouverture via une copie de la date a la fermeture

J'aimerai créer une boite de dialogue a l'ouverture du fichier, qui informerai l'utilisateur de la date de l'ancienne ouverture, et lui laisserai le choix de la date, soit la date de l'ancienne ouverture soit la date d'aujourd'hui.

[jfontaine]

AlainTech a expliqué pourquoi ca ne fonctionne pas.
Insere plutot la valeur de la date plutot que la formule inserat la date du jour

[a.dequidt]

Ma solution marche

Ce que je cherche a faire maintenant c'est

J'aimerai créer une boite de dialogue a l'ouverture du fichier, qui informerai l'utilisateur de la date de l'ancienne ouverture, et lui laisserai le choix de la date, soit la date de l'ancienne ouverture soit la date d'aujourd'hui.

[ouskel'n'or]

Tu as deux demandes contradictoires, l'une concerne la date d'aujourd'hui, et les solutions proposées fonctionnent si au lieu de mettre la formule dans la cellule, tu mets la date elle-même à l'ouverture du fichier, et si, au lieu de mettre une formule dans la cellule, tu mets la date d'aujourd'hui à la fermeture du fichier, en cas d'enregistrement.
Tant que ton fichier n'aura pas été enregistré, il portera dans une cellule la date de dernier enregistrement, et dans l'autre la date d'ouverture, c à d celle d'aujourd'hui.
Tu as les événements

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Private Sub Workbook_Open()

pour coller la date d'aujourd'hui dans la cellule "La date d'aujourd'hui"

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveCell = Format(Date(), "Le format que tu veux")

et tu as l'événement

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

Où, dans la Cellule "la date de dernier enregistrement", tu mets

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveCell = Format(Date(), "Le format que tu veux")

Dans cette dernière cellule et tant que ton fichier n'est pas enregistré, tu as la date du dernier enregistrement.

[a.dequidt]

ouskel'n'or>>
J'ai déjà ça dans mon fichier, en C12 et D13 j'ai la date d'aujourd'hui et en M1 la date du dernier enregistrement.

La solution avec un userform est ce qu'il me faut, savez vous ou je peux en savoir plus sur ce cas?

[AlainTech]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveCell = Format(Date(), "Le format que tu veux")

Tss, tss...

Ne jamais forcer le format pour une date dans une cellule.
C'est le meilleur moyen d'avoir des problèmes d'interprétation par la suite.

Il faut laisser Excel stocker la valeur dans son format interne et jouer sur l'affichage de la cellule.

Autrement dit:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveCell = Date