Bonjour,

Grâce à ce forum, j'ai pu créer mon formulaire.

Mon problème actuel est que j'aimerais figer la date pour que l'utilisateur retrouve une tracabilité de ses demandes.

On m'a conseillé la macro suivante :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
Sub Macro1()
Range("I6").Select
SendKeys "^;~"
End Sub
qui fonctionne très bien si je l'affecte à un bouton seul.

Seulement voilà, je souhaite avoir un seul bouton à cliquer pour exécuter une suite d'action.

Actuellement j'ai un bouton qui exécute la commande suivante :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
Sub Bouton_demande()
 
    If Worksheets("aaa").[A1] <> "" Then
        ActiveWorkbook.SaveAs Filename:="U:\d" & Format(DateAdd("D", 0, Date), "YYYYMMDD") & Format(Now, "hhmm") & ".xls"
        ActiveWorkbook.SendMail Recipients:=Array("name@dddd.com"), Subject:="x"
        ActiveWorkbook.Close
    Else
        MsgBox "Des cases obligatoires ne sont pas remplies !"
        Range("C7").Select
    End If
 
End Sub
Est-ce possible de "bidouiller" pour que le bouton "envoi de la demande" exécute toutes les actions :
figer la date
enregistrer le fichier
envoyer la demande
...

Merci !