PB Traitement chaine de caractère dans VBA [Résolu]

Signaler
Messages postés
47
Date d'inscription
jeudi 16 juin 2005
Statut
Membre
Dernière intervention
21 mai 2007
-
Messages postés
47
Date d'inscription
jeudi 16 juin 2005
Statut
Membre
Dernière intervention
21 mai 2007
-
Bonjour à tous;

J'ai une probléme avec une variable de format date que je dois retraitée pour être exportée dans un fichier "CSV" (Texte) pour une interface entre 2 systèmes.

Il faut que j'arrive à inserer les "0" zéro devant les chiffres des jours et des mois. Quand la date au départ est du type "10.12.2006" le code fonctionne bien elle devient "10/12/2006", lorsque elle est du type 01.12.2006 elle devient "1/12/2006" est cela ne fonctione plus.

S'agissant d'un fichier texte il me faut absoluement les zero devant les chiffres. Je ne peux pas utiliser le format  nombre car ce n'est pas un nombre.
J'ai pensé à une petite boucle qui me permet de vérifier le format et rajouter le zero quand il manque, mais je n'ai pas trouvé les instructions.

D'avance merci pour l'aide
   
Maxou

3 réponses

Messages postés
1854
Date d'inscription
jeudi 23 mai 2002
Statut
Membre
Dernière intervention
24 juin 2018
26
 Bonjour à tous

MaDate = "1/12/2006"If Len(MaDate) 9 Then MaDate CDate(0 & MaDate)
MsgBox MaDate &vbTab& "longueur variable date: " & Len(MaDate)

jean-marc
Messages postés
7668
Date d'inscription
samedi 5 novembre 2005
Statut
Membre
Dernière intervention
22 août 2014
25
Private Sub Command1_Click()
  coucou = " 1 /3/2006"
  MsgBox Format(coucou, "dd/mm/YYYY") ' =====>>> 01/03/2006
End Sub
Messages postés
47
Date d'inscription
jeudi 16 juin 2005
Statut
Membre
Dernière intervention
21 mai 2007

Bonjour

Merci à jmfmarques et Jean-marc, j'ai choisi la solution format (.....) car elle convient parfaitement au code et evite la boucle dans le programme de traitement.

Merci à vous, en fait je me suis focalisé sur l'indstruction Numberformat  alors qu'il existait une fonction de formatage direct de chaine de caractère. Mon probléme est de trouver la fonction ou l'instruction qui convient dans l'imposante bibliothéque de VBA...

Maxou