Re : Inserer dans des cellules la date choisie.
OK et merci ( le " je l'avais vu et corrigé )
Mais ça ne marche toujours pas ! sniff
Je l'ai mis ici :
Private Sub CommandButton1_Click()
Const MCM_FIRST& = &H1000&, MCM_GETCURSEL& = (MCM_FIRST + 1&)
Dim LeTime As SYSTEMTIME
'Récuperer la date sélectionnée
SendMessage mWnd, MCM_GETCURSEL, 0&, LeTime
With LeTime
MsgBox "Vous avez choisi le : " & vbNewLine & vbTab & _
Format(DateSerial(.wYear, .wMonth, .wDay), "dddd dd mmmm yyyy") & "."
Range("A1").Select
nouvligne = Sheets("base").Range("A65536").End(xlUp).Row
Sheets("Base").Range("A" & nouvligne).Value = Sheets("feuil1").Range("C6").Value
Sheets("Base").Range("B" & nouvligne).Value = Sheets("feuil1").Range("C9").Value
Sheets("Base").Range("C" & nouvligne).Value = Sheets("feuil1").Range("C8").Value
End With
Unload Me
End Sub
C'est bon ?
Enfin, c'est forcement pas bon, parceque ça ne marche pas...
As tu une solution ?
Merci d'avance
Ricco