Integrer une date à partir d'une boite de dialogue
Bonjour ,
J'aurais besoin d'aide pour une MACRO:
Je viens de créer une boite de dialogue demandant d'indiquer une date.
If MsgBox("Veuillez indiquer la date des saisies !", vbOK) = vbOK Then
Dim resultat As String
resultat = InputBox("Date au format JJ/MM/AAAA", "Titre") 'La variable reçoit la valeur entrée dans l'InputBox
MsgBox resultat
End If
Pourriez vous m'aider a reporter la date dans la cellule AI de la feuille 1 ?
Merci d'avance pour votre aide.
Bonjour,
Avec ce code :
Sheets("Feuil1").Range("A1") = resultatSi ok, clique sur le V vert à coté du bouton EDITER pour cloturer le fil
Amicalement
Bonjour,
merci pour la réponse.
Cela fonctionne mais cela me transforme la date au format anglais.
Pourriez vous m'aider à remettre la date au format français;
merci
je me suis mal exprimé.
lorsque j 'indique le 01 juin 2012
la macro transforme en 6 janvier 2012
Merci d'avance pour votre aide.
Un collègue vient de me donner la réponse:
Il faut changer la ligne vba
"Dim resultat As String"
par
"Dim resultat As date"
Bonne journée à tous.