Bonjour Michel, Robert et le forum,
Non Robert ne vois pas dans cet échange une quelconque esquisse de persécution des 'Robert', que nous les hommes, aimons tous tu le sais bien
Sinon pour michel, je comprend bien le post que tu as joint en lien que le format date peut etre adapter à n'importe quelle sauce, mais ou je suis plus perplexe c'est quand on est obligé de tous mettre dans le désordre pour arriver au resultat désiré :
Mon code pour arriver à afficher correctement ma date :
'recupere la premiere ligne vide dans la feuil TEMP
i = ThisWorkbook.Sheets('TEMP').Range('A65536').End(xlUp).Row + 1
With ThisWorkbook.Sheets('TEMP') 'transfert les donnees dans la feuil TEMP
.Range('A' & i) = TextBox47.Value
.Range('B' & i) = Format(TextBox48, 'MM/DD/YYYY')
.Range('C' & i) = TextBox49.Value
.Range('D' & i) = TextBox50.Value
End With
Application.ScreenUpdating = False 'masquer l'ouverture du classeur 'ListeAutomatique'
'ouverture du classeur ListeAutomatique.xls ( qui doit etre dans le meme repertoire )
Set Wb = Workbooks.Open(ThisWorkbook.Path & '\\Listing ARC.xls')
If IsDate(TextBox48) Then
j = Wb.Sheets(Month(TextBox48)).Range('A65536').End(xlUp).Row + 1
With Wb.Sheets(Month(TextBox48)) 'transfert les donnees dans la feuille
.Range('C' & j) = TextBox47.Value
.Range('A' & j) = Format(TextBox48, 'MM/DD/YYYY')
.Range('D' & j) = TextBox49.Value
.Range('E' & j) = TextBox50.Value
End With
End If
Ceci pour arriver à ecrire dans cellule A: jour/mois/année !
Bizarre bizarre, @+ et bon lundi de paques à tous