XL 2010 Tri sur Date

Aldonanou

XLDnaute Junior
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
 

Pièces jointes

  • Essai plats.xlsx
    63 KB · Affichages: 5

fanfan38

XLDnaute Barbatruc
Bonjour
Il n'y a pas d'userform dans ton fichier...
pour moi l'erreur est là:
VB:
DateExtraction = JourFichier & "/" & MoisFichier & "/" & AnneeFichier
DateFichier = AnneeFichier & " " & MoisFichier & " " & JourFichier
que je remplacerai par
Code:
DateExtraction = cdate(JourFichier & "/" & MoisFichier & "/" & AnneeFichier)
DateFichier = cdate(AnneeFichier & " " & MoisFichier & " " & JourFichier)

A+François
 

Aldonanou

XLDnaute Junior
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.
 

Aldonanou

XLDnaute Junior
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

@+
 

Discussions similaires

Réponses
6
Affichages
233

Statistiques des forums

Discussions
313 296
Messages
2 096 922
Membres
106 787
dernier inscrit
Rachid ALIOU