Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Probléme de format de DATE quand exportation sur feuille Excel

L

Leskwal

XLDnaute Occasionnel
Bonjour le Forum et bonne année 2010 à tous.

Voilà mon problème.

Je lance un USF dans lequel se trouvent des Textbox où des dates sont inscrites à l'aide d'un calendrier.

Les dates inscrites sont dans un format FRANCAIS (10/01/2010 - 10 Janvier 2010).
En quittant le USF, les dates des textbox sont exportées sur la feuille excel....et là : PROBLEME.

Les dates exportées prennent le format AMERICAIN.

Pour être plus précis :
Quand je tape 01/05/2010 dans l'USF, sur la feuille cela me donne 05/01/2010.
En revanche quand le jour est supérieur à 12, il n'y a plus d'inversion de date/mois...

En fichier joint, l'exemple :

Que faire ?

D'avance un grand MERCI.

Pascal
 

Pièces jointes

  • DATE FORMAT US 01.zip
    20.5 KB · Affichages: 32
Trier par date Trier par votes
S

Sly le globe trotter

XLDnaute Occasionnel
Re : Probléme de format de DATE quand exportation sur feuille Excel

Salut Leskwal,

Tu as essayer en utilisant les fonctions Month, Year et Day de vba. A partir de la date saisie par l'utilisateur tu récupères ces infos et reconstruis, dans ton fichier Excel, les champs date à partir des infos récupérer.

Sly
 
Dernière édition:
Vote positif 0 Vote négatif
L

Leskwal

XLDnaute Occasionnel
Re : Probléme de format de DATE quand exportation sur feuille Excel

Merci pour vos réponses et aussi pour la rapidité

Bonjour

Il faut mettre Cdate devant la variable avant l'écriture.

JP
Cliquez pour agrandir...

Je n'arrive pas à voir où placer le Cdate dans mon fichier exemple.

Peux-tu le placer ?

Un grand Merci

Pascal
 
Vote positif 0 Vote négatif
J

jp14

XLDnaute Barbatruc
Re : Probléme de format de DATE quand exportation sur feuille Excel

Bonjour

Ci dessous le code

Code: 
With Sheets("Actions")
i = .Range("$A$65536").End(xlUp).Offset(1, 0).Row

.Range("A2") = CDate(TextBoxDebutAction.Value)
.Range("B2") = CDate(TextBoxFinAction.Value)

End With

JP
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

R
  • Question
Microsoft 365 Fonction SI avec dates et plage de données
Réponses
3
Affichages
1 K
patoche42500
P
  • Question
Autres Feuille avec Date comme nom
Réponses
7
Affichages
582
DragonBallZ1981
  • Question
Microsoft 365 format sur le calcul de date
Réponses
5
Affichages
739
merinos
S
  • Résolu(e)
Autres Pourquoi le format Date semble être différent malgré même formule ? (excel / VBA)
Réponses
8
Affichages
2 K
Scoub
S
G
  • Question
XL 2013 Calcul échéance
Réponses
3
Affichages
1 K
juvaxe
J
S
  • Question
XL 2010 excel 2010 sur 5 colonnes: calculer le stock pouvant etre consommé en tenant compte de la date et du code de plusieurs articles différents
Réponses
3
Affichages
1 K
stivus bricsus
S
P
  • Question
XL 2013 format date tcd et recherche v
Réponses
2
Affichages
600
chris
A
  • Question
XL 2019 Comptage avec condition sur plusieurs feuilles
Réponses
3
Affichages
667
abtt25
A
V
  • Résolu(e)
XL 2016 Format de date sous vba
Réponses
3
Affichages
2 K
vanin
V
  • Question
Microsoft 365 Mauvais format date dans l'export de données csv avec code VBA
Réponses
5
Affichages
2 K
chris
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…