Discussion :

[Dohny]

Bonjour à tous !

J'ai cherché sur le forum et sur google mais je n'ai pas trouvé la réponse à mon problème :

je souhaite importer via une macro un tableau issu de mon historique d'opérations banquaires :

12/12/2007 CHEQUE N° 56xxxxx 327,76
10/12/2007 PRELEVEMENT xxxx REF SPB 5,50
10/12/2007 FACTURE CARTE DU 071207CART 16,76
06/12/2007 FACTURE CARTE DU 051207 81,50
06/12/2007 FACTURE CARTE DU 051207 63,41
etc...

et là problème bizarre :
Si je le fais "normalement" (clic droit sur un cellule > collage special) alors pas de problème (notamment les dates sont reconnues comme telles)
Si je le fais via ma macro et la commande PasteSpecial :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
ActiveSheet.PasteSpecial Format:="Texte Unicode", Link:=False, _
DisplayAsIcon:=False

alors il interprète les dates < 12/12/2007 comme un format Américain :
13/12/2007 FACTURE CARTE DU 121207 16,90 €
12/12/2007 REMISE CHEQUES BORDEREAU 1 125,00 €
12/12/2007 FACTURE CARTE DU 041207 1,40 €
12/12/2007 CHEQUE N°xxxxx 327,76 €
12/10/2007 PRELEVEMENTxxx 5,50 €
12/10/2007 FACTURE CARTE DU 071207 16,76 €
12/06/2007 FACTURE CARTE DU 051207 81,50 €


Voilà, j'espère que je suis clair : à quoi cela est-il dû, et comment le contourner ? Vous l'aurez sans doute remarqué, je ne suis pas vraiment expert en vba/excel (amis de l'euphémisme bonsoir) mais merci d'avance pour votre aide !!

[Gorfael]

Salut
je pense que c'est du au format Unicode qui modifie le nombre d'octets utilisé. Tu as peut-être une raison de le transformer en texte unicode, mais ta date n'est pas un texte : regarde sur les format de nombre.
si tu veux transformer tes dates en texte au format unicode, il faut les transformer en texte, puis transformer le code ASCII en unicode
A+

[jyb50110]

J'ai exactement le même besoin que j'essaie aussi de résoudre par une macro.
J'ai donc aussi le même problème de format.
Dans la mesure où le format "Texte Unicode" fonctionne bien quand on l'exécute manuellement, je soupçonne le format anglophone de VBA d'être à l'origine du problème. Quelqu'un aurait-il une idée la-dessus ?

[djidji1000]

Bonjour

Voici ce que je fais :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Columns("B:B").NumberFormat = "@" 
   'converti en texte la colonne des dates
ActiveSheet.PasteSpecial Format:="Texte", Link:=False, _
   DisplayAsIcon:=False
Columns("B:B").NumberFormat = "[$-40C]d mmmm yyyy;@"
   'converti en date type "4 mars 2011" la colonne des dates

A la suite, j'ai rajouté une boucle qui force Excel mettre à jour l'affichage de la date au bon format :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
start_Row = Selection.Row ' Numéro premiére ligne
 end_Row = Selection.Row + Selection.Rows.Count - 1   ' Numéro dernnière ligne
 
 For Boucle = start_Row To end_Row
    Cells(Boucle, 2).Value = Format(Cells(Boucle, 2).Value, Cells(Boucle, 2).NumberFormat)  
     'refait le format de la date
 Next Boucle

[Didier Gonard]

alors il interprète les dates

Bonjour,

Tu as mis le doigt dessus , ce n'est pas un hasard si le problème se produit avec les jours <= à 12...

vois ce tutoriel :

Comprendre et gérer les dates sous Excel et en VBA

à : Les dates en VBA /Généralités et /Exemples de différentes saisies et leurs conséquences ou le mois de décembre est pris en exemple d'ailleurs..

cordialement,

Didier