Discussion :

[hasarddeux]

Bonjour à tous, je suis entrain d'automatiser une procédure en Vba et je bloque sur un point, à cause des dates.
Mon programme rapatrie les données d'un autre Excel à l'aide d'un

Code :

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

1
2
3
4
5
6
7
8
    nbrLigne = Range("A" & Rows.Count).End(xlUp).Row 'cherche le nombre de lignes
    Range("A1:P" & nbrLigne).Select
    Selection.Copy
    ActiveWorkbook.Close SaveChanges = False
 
    Workbooks(NomFic).Activate
    Worksheets("Export").Activate
    Range("A1").PasteSpecial

(y'a quelques Select et activate, désolé :v)

Je m'intéresse ensuite à la Colonne "N" comportant plusieurs millier de dates. Je veux filtrer et faire apparaitre les dates de plus d'un an. Jusque la tout va bien, j'ai résolu le problème de format US

Mon soucis vient du fait que, lors du copié collé, une partie des dates est collée en format date et l'autre en format texte, le format texte n'est pas reconnu par ma macro et tout se casse la geule.

- j'ai essayé "Paste", "PasteSpecial xl...." mais seul un simple pastSpecial marche, le reste fait planter la macro
- j'ai essayé de multiplier la colonne par 1 ou additionner 0. je me retrouve avec le "code" de la date (43650, 49651....) et de le remettre au format date. Ça fonctionne à la main mais la macro enregistrée n'a d'effet que sur les dates au format date et ignore celles au format texte......
- j'ai essayé la fonction "convertir" du bandeau de données mais ici aussi la macro enregistrée ne marche pas

j'avoue que je m'arrache un peu les cheveux sur cette histoire de format de date...si l'un d'entre vous a une piste ou une explication !
merci d'avance pour votre aide !

[78chris]

Bonjour

Es-tu sûr que tes dates de départ ne sont pas en format texte (mauvais import) ?

[hasarddeux]

Bonjour,
Visiblement mon import contient bien des dates (alignées à droite de la cellule)

[Igloobel]

Bonjour,

dans ta macro tu peux tester ta cellule avant avec "IsNumeric" et "IsDate" par exemple et si c'est du texte utiliser "CDate" pour convertir en date

sinon je te conseille cede lire ce tuto qui explique en long en large et en travers ce qu'il faut savoir sur la gestion de date

https://didier-gonard.developpez.com...-excel-et-vba/

@+

[hasarddeux]

IsDate m'annonce que toutes mes dates sont des dates, malgré tout j'ai toujours le même problème.......
la vraiment ça me dépasse, malgré le tuto que j'avais déja déniché

Je me permet de mettre des fichiers type, (subtilement) anonymisés. l'idée est d'aller dans le fichier test et d'ouvrir l'export production pour importer les données. je vais alors, avec le filtre BB et >1 an opérer sur les dates de la colonne N mais forcément rien ne va avec mon probleme.
La macro d'import est assez basique pourtant

Merci beaucoup

test.xlsm
PRODUCTION - Copie.xls

[Igloobel]

Ton fichier Production il arrive directement comme cela, ou il est bidouillé avant (ajout suppression de colonne ou fichier texte ou CSV au départ ...)