guenfood
XLDnaute Occasionnel
Bonjour,
J'ai une msgbox qui après click sur le bouton 'OK' doit exécuter une macro qui contient ce code :
La commande de départ est celle-ci :
Le problème, c'est que cela ne se déclenche pas.
Comment faire pour que cela fontionne ?
J'ai une msgbox qui après click sur le bouton 'OK' doit exécuter une macro qui contient ce code :
Code:
Sub Repondre()
'
' Repondre Macro
' Envoi du classeur via Lotus Notes
'
Application.SendKeys ('%L')
Application.SendKeys ('C')
Application.SendKeys ('~')'
'
End Sub
La commande de départ est celle-ci :
Code:
Private Sub CommandButton1_Click()
FrmDefinition.Hide
If MsgBox('Voulez-vous imprimer le questionnaire ?', vbYesNo) = vbYes Then
Application.ScreenUpdating = False
Sheets('Enquete').Visible = True
Sheets('Enquete').PrintOut
Sheets('Enquete').Visible = False
Else: MsgBox 'Veuillez cliquer sur OK pour envoyer le questionnaire à l'APAC Flux Espace 150', vbOKOnly
End If
Call Repondre
MsgBox 'Le questionnaire a bien été envoyé à l'APAC Flux Espace 150'
Application.Quit
End Sub
Comment faire pour que cela fontionne ?