date aujourd hui dans textbox et supp une image

[noon]

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

 

[Arnaud]

salut,
déja pour le 1)

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

 

[noon]

merci arnaud

 

[G'Claire]

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