XL 2010 Tri sur Date

[Aldonanou]

Bonjour,

Par le biais d'un userform pour la saisie des données j'enrichi un fichier excel. Jusque là lorsque j'appliquais un tri sur une date cela fonctionnait mais maintenant le programme me convertit en pdf le fichier même si la date (TextDatePlatJ) n'est pas présente dans le fichier. Je ne sais plus comment faire, cela fonctionne correctement sur un autre programme écrit mais pas sur celui-ci. Je pense que ma condition est fausse !

Private Sub CommandButtonImport_Click()


Dim TextDatePlatJ As Date
Dim DateExtraction As Date
Dim ws As Object
Dim cellule As Range
Dim VentesA As String

TextDatePlatJ = InputBox("Saisir ici une date de fabrication. Format JJ/MM/AAAA")

MoisFichier = Mid(TextDatePlatJ, 4, 2)
AnneeFichier = Right(TextDatePlatJ, 4)
JourFichier = Left(TextDatePlatJ, 2)

DateExtraction = JourFichier & "/" & MoisFichier & "/" & AnneeFichier
DateFichier = AnneeFichier & " " & MoisFichier & " " & JourFichier

Path = "C:\Users\Documents\Etats\"
VentesA = "Ventes - " & DateFichier

' On désactive les macros
Application.EnableEvents = False

' Ouverture du fichier Ventes
Sheets("Plats").Visible = True
Sheets("Plats").Select

' Désactive
If ActiveSheet.AutoFilterMode Then
ActiveSheet.AutoFilterMode = False
End If


' Sélection en fonction du jour de la fabrication des plats
If DateExtraction <> TextDatePlatJ Then
MsgBox "Entrez une date valide"
Else
With Worksheets("Plats")
With .Range("C1:K" & Cells(.Rows.Count, "R").End(xlUp).Row)
.AutoFilter Field:=3, _
Criteria1:="=" & Format(TextDatePlatJ, "dd/mm/yyyy")
End With
End With

ActiveSheet.ExportAsFixedFormat xlTypePDF, Path & "\" & VentesA & ".pdf"
MsgBox "Etat généré"

'Else

'MsgBox "Entrez une date valide"
End If

End Sub

Quelqu'un aurait-il une idée.

Merci

 

[fanfan38]

Bonjour
Il n'y a pas d'userform dans ton fichier...
pour moi l'erreur est là:

DateExtraction = JourFichier & "/" & MoisFichier & "/" & AnneeFichier
DateFichier = AnneeFichier & " " & MoisFichier & " " & JourFichier

que je remplacerai par

DateExtraction = cdate(JourFichier & "/" & MoisFichier & "/" & AnneeFichier)
DateFichier = cdate(AnneeFichier & " " & MoisFichier & " " & JourFichier)

A+François

 

[Aldonanou]

Bonjour fanfan38,
Merci pour le message.
J'ai procédé à la modification mais du coup la date du fichier remonte avec les / ce qui bloque l'enregistrement du fichier. De plus, le tri ne s'effectue pas correctement alors que la date est inexistante dans le fichier. Dès que je serai chez moi, je transmettrai l'userform. Merci encore.

 

[fanfan38]

Bonjour
Si c'est popur un nom de fichier
DateFichier =AnneeFichier & " " & MoisFichier & " " & JourFichier
A+ François

 

[Aldonanou]

Bonjour fanfan38,

Merci pour le retour.

Grace à MaPoire j'ai pu modifier mon programme.

NbrLignes = 0
NbrLignes = ActiveSheet.AutoFilter.Range.Columns(1).SpecialCells(xlCellTypeVisible).Count - 1
If NbrLignes = 0 Then
MsgBox "Entrez une date valide"
Else

ActiveSheet.ExportAsFixedFormat xlTypePDF, Path & "\" & VentesA & ".pdf"
MsgBox "Etat généré"

End If

@+