Empêcher transformation dates format ENG depuis format FR

Fermé
Niconz Messages postés 310 Date d'inscription lundi 16 juin 2014 Statut Membre Dernière intervention 6 juillet 2020 - 2 sept. 2016 à 09:49
Niconz Messages postés 310 Date d'inscription lundi 16 juin 2014 Statut Membre Dernière intervention 6 juillet 2020 - 28 avril 2017 à 15:57
Bonjour,

Je fais face au problème suivant avec un formulaire sous VBA.
Dans le cadre de ce formulaire, plusieurs champs doivent être remplis, dont des champs format dates en Français (JJ/MM/AAAA).

Le remplissage du formulaire se fait parfaitement, et les dates rentrées sont bien enregistrées sous le format Francais.

Par contre, lorsque je reviens sur cette date, la date s'affiche désormais au format Anglais, et non plus Français.

L'objectif de mon fichier étant de mettre en place une base de données des contrats de l'entreprise.

Ainsi, si lorsque j'ajoute un nouveau contrat, avec date de début : 01/02/2017 (format Français), il me la transforme en 02/01/2017 (format Anglais), mon fichier n'a plus aucun intérêt, car il ne restitue pas correctement l'information qui a été enregistrée initialement.

Quelqu'un sait-il pourquoi Excel transforme le format des dates, et comment on peut empêcher cette transformation.

Si besoin, je peux vous envoyer le fichier dont il est question.

D'avance, merci beaucoup à tous pour votre aide,


Excellente journée,

A voir également:

127 réponses

Niconz Messages postés 310 Date d'inscription lundi 16 juin 2014 Statut Membre Dernière intervention 6 juillet 2020
18 avril 2017 à 09:59
Bonjour Francois,

Lesquels?
> Pour tous ceux qui ont la réponse "Yes" dans Tacit Renewal.
Voir l'exemple avec le fichier ci-joint :
http://www.cjoint.com/c/GDshHL61fFF


N.B : afin de déployer les changements dans mon fichier "live", j'aurai besoin à terme que vous m'indiquiez les endroits ou le code a été modifié, et comment… :)

Merci.
0
Niconz Messages postés 310 Date d'inscription lundi 16 juin 2014 Statut Membre Dernière intervention 6 juillet 2020
18 avril 2017 à 10:37
Re,

Bonjour Francois,

Lesquels?
> Pour tous ceux qui ont la réponse "Yes" dans Tacit Renewal.
Voir l'exemple avec le fichier ci-joint :
http://www.cjoint.com/c/GDshHL61fFF


N.B : afin de déployer les changements dans mon fichier "live", j'aurai besoin à terme que vous m'indiquiez les endroits ou le code a été modifié, et comment… :)

Merci.
0
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
18 avril 2017 à 10:52
Re,
Je recupere le fichier et je regarde la chose
A+
0
Niconz Messages postés 310 Date d'inscription lundi 16 juin 2014 Statut Membre Dernière intervention 6 juillet 2020
25 avril 2017 à 09:28
Salut Francois,

Alors, on m'oublie ... :(

Merci.
0
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701 > Niconz Messages postés 310 Date d'inscription lundi 16 juin 2014 Statut Membre Dernière intervention 6 juillet 2020
25 avril 2017 à 09:45
Bonjour

Non, pas d'oubli mais un peu occupe ailleurs
Ceci dit,
Si la ending date du document est supérieur à la date du jour
Comment faire pour ne pas modifier a chaque ouverture??????????
Ou y a kake (petit gâteau) qui m'echappe !!!!
0
Niconz Messages postés 310 Date d'inscription lundi 16 juin 2014 Statut Membre Dernière intervention 6 juillet 2020 > f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024
25 avril 2017 à 10:45
Re,

Comment faire pour ne pas modifier a chaque ouverture?????????? > J’ai peur de pas bien suivre votre logique, mais c’est ce que je souhaite : à chaque ouverture du fichier, et si un document comporte une ending date supérieur à la date du jour, et si Tacite renewal = Yes, il faudrait que les dates suivantes (ending date, validity of the pricing, 1st reminder & 2nd reminder) soient prolongées d’une année, et ce automatiquement, sans que l’utilisateur ait quoique ce soit à faire.

Est-ce plus claire ? ou vous ai-je embrouillé l’esprit :)

Merci.
0
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701 > Niconz Messages postés 310 Date d'inscription lundi 16 juin 2014 Statut Membre Dernière intervention 6 juillet 2020
25 avril 2017 à 11:15
Re,

à chaque ouverture du fichier, et si un document comporte une ending date supérieur à la date du jour
Ben oui, a chaque ouverture......................
0
Niconz Messages postés 310 Date d'inscription lundi 16 juin 2014 Statut Membre Dernière intervention 6 juillet 2020 > f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024
25 avril 2017 à 11:18
Oui, et ?
0
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
27 avril 2017 à 14:31
Re,

Ai trouve, il y a un decalage de colonne entre le dernier fichier de l'an dernier et celui de maintant


Petit canailloux
0
Niconz Messages postés 310 Date d'inscription lundi 16 juin 2014 Statut Membre Dernière intervention 6 juillet 2020
27 avril 2017 à 14:37
Ok, donc je décale les colonnes d'une lettre en avant, et ca devrait marcher non...

Et ben non Denis... toujours le même pb mon ami.

Private Sub Workbook_Open()
Dim TInfosED, TInfosD12, DJ

DJ = Date
With Worksheets("Legal docs listing")
derlig = .Range("O" & Rows.Count).End(xlUp).Row
TInfosED = .Range("O2:P" & derlig)
TInfosD12 = .Range("W2:Y" & derlig)
End With
Lig = UBound(TInfosED)
'boucle sur Ending date of the document
For n = 1 To Lig
If DJ > TInfosED(n, 1) And TInfosED(n, 2) = "YES" Then
TInfosED(n, 1) = DJ
TInfosD12(n, 1) = DateAdd("yyyy", 1, TInfosD12(n, 1))
TInfosD12(n, 2) = DateAdd("yyyy", 1, TInfosD12(n, 2))
TInfosD12(n, 3) = DateAdd("yyyy", 1, TInfosD12(n, 3))
End If
Next n
With Worksheets("Legal docs listing")
derlig = derlig - 1
.Range("O2").Resize(derlig, 2) = TInfosED
.Range("X2").Resize(derlig, 3) = TInfosD12
End With
End Sub
0
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701 > Niconz Messages postés 310 Date d'inscription lundi 16 juin 2014 Statut Membre Dernière intervention 6 juillet 2020
Modifié le 27 avril 2017 à 14:50
Re,
Ben chez moi, pas d'erreur!!!!!!!!!!!!!!!!!!!!!!!!!!!!
Ai meme modifie une date pour verifier changement
0
Niconz Messages postés 310 Date d'inscription lundi 16 juin 2014 Statut Membre Dernière intervention 6 juillet 2020 > f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024
27 avril 2017 à 15:01
Vous pouvez m'envoyer votre version corrigé svp.
Merci.
0
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701 > Niconz Messages postés 310 Date d'inscription lundi 16 juin 2014 Statut Membre Dernière intervention 6 juillet 2020
27 avril 2017 à 15:23
Re,
J'ai seulement pris votre code corrige avec les "bonnes" colonnes. Donc deja, dites voir quelle erreur vous avez ?
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Niconz Messages postés 310 Date d'inscription lundi 16 juin 2014 Statut Membre Dernière intervention 6 juillet 2020
27 avril 2017 à 15:45
la voici

!
0
Niconz Messages postés 310 Date d'inscription lundi 16 juin 2014 Statut Membre Dernière intervention 6 juillet 2020
28 avril 2017 à 13:45
Salut Francois,


Désolé, mais ca ne marche toujours pas. Et j'ai bien utilisé votre fichier.
Enfin, je n'ai pas de message d'erreur, mais le code n'execute pas ce que je souhaite...

J'ai ajouté un doc via le bouton Addition, et a rempli tous les champs : OK, no soucy.
J'ai ensuite écrasé les infos de dates de fin et de rappel, pour faire qu'elles soient antérieures à la date du jour. > No soucy

Par contre, quand je rouvre le fichier pour voir si la ending date de mon contrat que je viens d'ajouter a ete étendue d'une année, la ca bug.

1er bug : la fonction envoi d'un mail car un ou plusieurs contrat arrivent bientôt à échéance marche très bien, mais il ne retrouve pas les adresses e-mails, alors qu'elles étaient bien inscrites.

2eme bug : onglet Legal docs listing, les données dans les colonnes Z à AB ont été modifiées...kezako ?

Faîtes l'essai sur votre fichier, ca sera plus parlant je crois !

On a pas fini francois !
Merci.
0
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
Modifié le 28 avril 2017 à 14:46
Bonjour,

Avec tous ces echanges de fichier, vous ai pas mis le bon, soit, mais probleme avec "Yes" et "YES" va etre resolu. Je regarde aussi le reste
Les @mail ont ete remplacees a la suite du decalage de colonne entre le fichier d'avant 2017 et celui de maintenant. Colonne Document owner idem
A+

Suite:
fichier modifie, a suivre
https://mon-partage.fr/f/1HorMe2g/
0
Niconz Messages postés 310 Date d'inscription lundi 16 juin 2014 Statut Membre Dernière intervention 6 juillet 2020 > f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024
28 avril 2017 à 14:50
Re,

Ca me rassure, je croyais que c'est moi qui n'y comprenait plus rien... :).
Je regarde tout ca, merci.

N.B : j'ai bien recu vos mails :)
0
Niconz Messages postés 310 Date d'inscription lundi 16 juin 2014 Statut Membre Dernière intervention 6 juillet 2020 > f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024
28 avril 2017 à 15:07
Re,

Encore quelques bugs désolé...

Quand la date du jour est supérieur à la ending date et que le tacit R est Yes, la ending date de mon doc est bien changé, mais au lieu que ce soit la ending date initial + 1 an, c'est la date d'aujourd'hui qui apparait... catastrophe moussaillon.

Pour les 3 autres dates, elles ont bien ete repoussées + 1 an, mais pas pour celle-là (la ending date), et c'est la plus importante matelo !

C'est reparti pour un tour de pêche...
0
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701 > Niconz Messages postés 310 Date d'inscription lundi 16 juin 2014 Statut Membre Dernière intervention 6 juillet 2020
28 avril 2017 à 15:16
Re,

Juste pour voir si vous suiviez, Pacha!

TInfosED(n, 1) = DateAdd("yyyy", 1, TInfosED(n, 1))
0
Niconz Messages postés 310 Date d'inscription lundi 16 juin 2014 Statut Membre Dernière intervention 6 juillet 2020 > f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024
28 avril 2017 à 15:48
Bravo Francois,vous m'avez deja perdu.

???? edoc ertov ed iouq saif ne'j te

Amusez-vous ? vous comprendrez par quoi je passe en vous lisant !
0
Niconz Messages postés 310 Date d'inscription lundi 16 juin 2014 Statut Membre Dernière intervention 6 juillet 2020
11 avril 2017 à 13:53
« Oh non pas lui, qu’est-ce qu’il me veut encore » ?
(oui, je sais lire dans vos pensées )


Salut Francois,

Comment va ?
Toujours aussi populaire sur CCM d’après ce que je vois 

Depuis le temps, je me suis dit que je devais vous manquer, donc je viens vous poser une petite colle par rapport à mon outil.
Après déploiement, je me rends compte qu’il serait bien d’y ajouter une petite fonctionnalité.

Voici mon idée de génie :) : pour tous les documents qui se renouvellement automatiquement, j’aimerais que la date de fin et de rappels soient mise à jour, soit concrètement :

Si la ending date du document est supérieur à la date du jour et si Tacite renewal = Yes, il faudrait que les dates suivantes (ending date, validity of the pricing, 1st reminder & 2nd reminder) soient prolongées d’une année.

Pouvez-vous m’aider ?

Si ok pour vous, pouvez-vous me renvoyer le code des UF modifiés, afin que je le reproduise dans mon fichier déployé.

D’avance, un grand merci et une très belle journée,
-1
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
14 avril 2017 à 17:38
Bonjour,

« Oh non pas lui, qu’est-ce qu’il me veut encore » ?
Pas mon genre

(oui, je sais lire dans vos pensées )
Impossible, je ne pense pas

Je me remets dans votre projet pour voir de quoi il retourne
A+
0
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701 > f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024
18 avril 2017 à 07:22
Bonjour,

Voici mon idée de génie :) : pour tous les documents qui se renouvellement automatiquement
Lesquels?
Si vous avez fait des modif depuis la derniere fois, mettez votre fichier a dispo
Sioux Play
0