Empêcher transformation dates format ENG depuis format FR
Niconz
Messages postés
313
Date d'inscription
Statut
Membre
Dernière intervention
-
Niconz Messages postés 313 Date d'inscription Statut Membre Dernière intervention -
Niconz Messages postés 313 Date d'inscription Statut Membre Dernière intervention -
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,
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:
- Vba format date français
- Lire le coran en français pdf - Télécharger - Histoire & Religion
- Format epub - Guide
- Format factory - Télécharger - Conversion & Codecs
- Hp usb disk storage format tool - Télécharger - Stockage
- Format apfs - Guide
127 réponses
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.
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.
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.
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.
Re,
Je recupere le fichier et je regarde la chose
A+
Je recupere le fichier et je regarde la chose
A+
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.
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.
Re,
Ai trouve, il y a un decalage de colonne entre le dernier fichier de l'an dernier et celui de maintant
Petit canailloux
Ai trouve, il y a un decalage de colonne entre le dernier fichier de l'an dernier et celui de maintant
Petit canailloux
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
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
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
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.
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.
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/
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/
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...
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...
« 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,
(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,