VBA Excel Modification de la date en fonction du nom du classeur

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:

---

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

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:

---

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

---

Avec cette syntaxe

Code:

---

ActiveCell.FormulaR1C1 = "=TODAY()"

---

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

Bonjour a tous,


Jérome ta solution ne marche pas :bug:
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.

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

Ma solution marche ;)

Ce que je cherche a faire maintenant c'est

Citation:

---

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.

---

Bonjour,
Voir du côté d'un userForm et quelques contrôles
A+

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:

---

Private Sub Workbook_Open()

---

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

Code:

---

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

---

et tu as l'événement

Code:

---

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

---

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

Code:

---

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.

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?

Dans l'environemment VBA (Alt+F11) tu ajoute un UserForm (dans insertion)
Dés qu'il est ouvert tu tape :f1:
A+

Citation:

---

Envoyé par ouskel'n'or

Code:

---

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:

---

ActiveCell = Date

---

Citation:

---

Envoyé par AlainTech

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:

---

ActiveCell = Date

---

---

Je serais d'accord avec toi s'il s'agissait d'une colonne au format de date mais là, il ne dit pas quel est le format de la colonne et parle d'une plage de cellules sur une même ligne ( Range("C12:E12") ) et il m'étonnerait bien que les colonnes correspondantes contiennent également de dates... mais c'est pas sûr... :mouarf: