Excel 2007 VBA : Pb format de colonne "date" Résolu/Fermé

Question

Bonjour, 

J'ai un sérieux soucis avec mes macros. En effet je dois effectuer des filtres "temporels" sur certaines colonnes contenant des dates.
J'importe un fichier texte et le problème est que mes dates ne sont pas au format "date" mais plutôt du style "dd/mm/yyyy hh:mm"

J'ai tenté pour éviter l'inversion des jours et des mois, propre au VB, de faire l'importation de ces colonnes en format "texte" puis de passer une boucle effectuant ceci :

For Lig1 = 2 To derlig1

                Cells(Lig1, 8).Value = CDate(Cells(Lig1, 8).Value)
                Cells(Lig1, 9).Value = CDate(Cells(Lig1, 9).Value)
                Cells(Lig1, 10).Value = CDate(Cells(Lig1, 10).Value)
                Cells(Lig1, 11).Value = CDate(Cells(Lig1, 11).Value)
                                
    Next Lig1

Mais je tombe sur un message d'erreur "incompatibilité de types"
Bref .. ca va pas.

Connaitriez vous un moyen simple de manipuler des dates venant d'un fichier CSV ? en évitant les inversions jour/mois.
Encore une fois, merci d'avance pour votre aide !

pijaku · Accepted Answer

Re-
Peux tu nous faire vite fait un fichier "type" d'un import que tu fais? Place un lien vers un fichier xls (version<2007).

Eaheru · Answer

Merci de ton aide. :)
J'ai fait un fichier Excel 2003 d'exemple. La autres colonnes étant "confidentielles" je les ai supprimées. cela explique le décalage de colonnes entre mon code et ce fichier

http://www6.play-host.net/?tdfs=1&searchbox=1&showDomain=1

Eaheru · Answer

Merci ca me permet un gros pas en avant.
Toutefois, je n'arrive pas encore à pouvoir placer mes filtres de type :

Dim Off1date As Date
    Off1date = Date + 14

 ActiveSheet.Range("A1:S" & Range("A65536").End(xlUp).Row).AutoFilter Field:=11, Criteria1:= _
        "<" & Off1date, Operator:=xlAnd
    ' Filtrage "date de début" > Aujourd'hui +14
    ActiveSheet.Range("A1:S" & Range("A65536").End(xlUp).Row).AutoFilter Field:=9, Criteria1:= _
        ">" & Off1date, Operator:=xlAnd

Les dates dans les colonnes ne semblent pas être accessibles à un filtrage temporel, (impossible a placer manuellement, ca reste grisé)

Eaheru · Answer

Le but est de filtrer les dates, en colonne 11, qui sont strictement inférieure à aujourd'hui + 14 jours et celle de la colonne 9 qui sont strictement supérieures à aujourd'hui + 14 jours.

Manuellement j'utilise un filtre chronologique "avant" pour la colonne 11, puis un autre filtre chronologique "après" pour la colonne 9

J'avais récupéré le codage de mes actions manuelles, mais peut être que je m'entête dans une mauvaise voie et qu'en VB il vaut mieux réécrire complètement ces filtres ?

Eaheru · Answer

Ah, j'ai du copié une plage déjà filtrée.
C'est pas grave, merci de ton aide, ça m'a vraiment aidé :)

Eaheru · Answer

Par contre mon probleme n'est pas reglé, car apres avoir copié les ates dans les d'autres colonnes (ou la j'ai bien des dates au bon format, je peux manuellement faire un filtre chronogique < date +14 (par exemple) mais si je fais la meme chose par ma macro, le seul filtre dispo semble etre un filtre textuel....

Du coup mon filtre ne sort aucune ligne ...
Quelqu'un verrait comment gérer ça svp ?

Eaheru · Answer

Ah oui, c'est une bonne idée :)
J'y ai travaillé tard hier soir et je suis passé par un autre biais qui est de comparer la date puis d'afficher un oui dans une autre colonne, ensuite je filtre les "oui"

Ta proposition est plus propre. Je vais tester !
Merci de ton aide :)