R
rafou77
Guest
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:
merci pour votre aide.
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:
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 Submerci pour votre aide.