saisie de date et insertion date dans un texte

[Steph]

Bonjour,

j'aimerais savoir comment faire en sorte qu'une petite fenetre s'ouvre lors de l'ouverture du fichier, me demande la date et la copie colle dans des cellules contenant le texte 'Analyses de échantillons du jj/mm/aaaa' situés en feuille 2 et 3.

Il ne me semble pas avoir trouvé ceci dans les archives.

Merci bien

Steph

 

[bertrand]

bonjour

voici un petit code à travailler qui devrait répondre à ta question :

Private Sub Workbook_Open()

Date = InputBox('entrer la date')
a = Worksheets(1).Range('a1').Value
a = a & Date
Worksheets(1).Range('a1').Value = a

End Sub

 

[bertrand]

bonjour

voici une idée de code qui devrait répondre à ta demande :

Private Sub Workbook_Open()

Date = InputBox('entrer la date')
a = Worksheets(1).Range('a1').Value
a = a & Date
Worksheets(1).Range('a1').Value = a

End Sub

 

[G.David]

Salut
dans tes feuilles 2 et 3 tu as combien du cellule qui sont concernées
par cette ecriture?
soit c'est un titre et tu reperères la cellule d'a coté ou tu entre
sheets(2).range('A1').value='analyse du ' +date
soit tu mets un format speciale a tes cellules avec une mise en forme conditionnelle es une egalité a la case renseignée
en esperant etre clair
G.David

 

[Steph]

Merci bien,
j'ai remis ton code à ma sauce et il va super bien !!!

A+
Steph