date aujourd hui dans textbox et supp une image

bonjour

voila j ai crée une textbox dans un userform
et je souhaiterais que la date d aujourd hui s inscrive
par defaut

et autre chose quand j insere un nouveau cd
je peut mettre une image qui va me la mettre dans la colonne photo
mais aussi dans l onglet fiche en "D16"
si la photo est bien en "D16"et selectionné tous va bien
mais si la photo n est pas la erreur

Private Sub CommandButton1_Click()
Sheets("fiche").Select
Selection.Delete
Sheets("feuil1").Select
listecd.Show
End Sub

alors j ai essayer ca:

Private Sub CommandButton1_Click()
Sheets("fiche").Select
on error goto fin:
Selection.Delete
Sheets("feuil1").Select
fin:
listecd.Show
End Sub

mais sur cette feuille j ai des cellule fusionner
et il veut me les defusionner
(il est fou bill gates)


comment faire ???

merci

salut,
déja pour le 1)

Private Sub UserForm_Activate()
TextBox1.Value = Date
End Sub

merci arnaud

Noon, Arnaud, le forum

Noon,

Pour ton textbox tu peu fignolé en forcant le format avec une majuscule au début du jour et du mois.


TextBox1.Value = Application.Proper(Format(Now, "dddd dd mmmm yyyy "))

Pour le reste, je ne sais pas

Salut G'Claire