feuil temporaire et date

[rafou77]

bonjours à tous,

J'ai un petit prob quand je génere une page temporaire pour l'impression

j'ai toutes les dates commencant par un zero qui se mettent au format anglais.

exemple 04/10/2010 devient 10/04/2010 dans le fichier temporaire et je ne sais vraiment pas pourquoi.

le code:

Private Sub CommandButton116_Click()
Dim Tableau() As Variant
Dim i As Integer
Dim j As Byte

Application.ScreenUpdating = False
Workbooks.Add 'création d'un nouveau classeur temporaire

Tableau() = ListBox2.List
j = ListBox2.ColumnCount
i = ListBox2.ListCount
Range("A1:" & Cells(i, j).Address) = Tableau()
ActiveSheet.Range("A1:" & Cells(i, j).Address).EntireColumn.AutoFit
ActiveSheet.PageSetup.Orientation = xlLandscape
ActiveWorkbook.PrintOut 'impression
ActiveWorkbook.Close True 'suppression du classeur temporaire
Application.ScreenUpdating = True

End Sub

merci pour votre aide.

 

[fhoest]

Re : feuil temporaire et date

Bonjour,
je ne sais pas ou est ta ligne de code qui concerne les dates
mais c'est une question de formatage:

Format(expression,"dd,mm,yyyy") et cela devrait fonctionner
A+

 

[rafou77]

Re : feuil temporaire et date

Merci fhoest

j'ai mis Format(expression,"mm,dd,yyyy")

et tout est rentré dans l'ordre je ne sais pas pourquoi mais bon ça fonctionne, bonne soirée

 

[fhoest]

Re : feuil temporaire et date

Bonsoir,
pourquoi ? et bien simplement parce que le format se met par défaut sur la version de date en format anglais.lors du passage de vba vers cellules excel.
A+