Exécution macro

[guenfood]

Bonjour,

J'ai une msgbox qui après click sur le bouton 'OK' doit exécuter une macro qui contient ce 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 :

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

Le problème, c'est que cela ne se déclenche pas.
Comment faire pour que cela fontionne ?

 

[PascalXLD]

Bonjour

Où se trouve ta macro répondre ??

Tu l'as bien mis dans un module ??

Bonne journée

 

[guenfood]

Oui, la macro se situe dans le Module1.

 

[PascalXLD]

Re

Tu as essayé de mettre un point d'arret histoire de voir où cela coinçait ??

Car ta macro peut se lancer mais je ne vois pas trop comment elle va t'envoyer ton mail par Lotus note. Faut dire que je n'y connais rien dans le domaine Lotus note.

Message édité par: Pascal76, à: 05/05/2006 09:26

 

[guenfood]

En fait, j'ai adapté un fichier xla présent sur le site en téléchargement.

Celui ci ajoute un menu Lotus Notes.

La macro est donc censée correspondre à la saisie des touches ALT+L pour activer le menu Lotus Notes, puis la touche C, pour exécuter un sous-menu, et enfin la touche entrée qui valide le formulaire.

Quand j'exécute la macro directement, cela fonctionne nickel. Mais le fait de passer dans un USF et surtout par la msgbox, je crois que la fonction ALT+L ne marche pas.

Je pense qu'il faudrait d'abord faire en sorte de quitter la msgbox pour revenir sur la feuille afin que le code puisse s'exécuter.

 

[PascalXLD]

Re

Essaies peut-être en ajoutant en début de code

sheets('toto').activate

 

[guenfood]

Bon, en fait si j'enlève

MsgBox 'Le questionnaire a bien été envoyé à l'APAC Flux Espace 150'
Application.Quit

dans le code, ca fonctionne nickel.

Est ce qu'en mettant un temps d'attente ca changerait quelque chose ?

 

[PascalXLD]

Re

et oui tu dois fermer excel par application.quit avant que tout soit fini.

Il faut de toute façon eviter ce genre de code. Si tu as un autre classeur non enregistré que tu avais ouvert avant tu risques de perdre tout ton travail.

 

[guenfood]

Bonjour jmps,

Je vais paraître stupide mais tant pis

Coment savoir si un USF est modal ou non, et comment le modifier ?

 

[PascalXLD]

Re

Si tu ne le sais pas c'est qu'il est modal.

essaies en mettant

userform1.show 0

 

[guenfood]

Heu.... J'ai oublié de préciser que j'ai Excel97.

Et les codes que vous m'avez donnés, ne fonctionne pas.
J'ai droit à 'Erreur de compilation : Membre de méthode ou de données introuva ble' :S

 

[PascalXLD]

Re

Niark cela ne fonctionne qu'à partir de 2000

Je pense néanmoins que ton problème vient de ton application.Quit