Macro avec choix d'enregistrement

[Fox]

Bonjour le forum.

Voilà je possède une macro qui permet d'enregistrer un rapport et une autre qui permet d'imprimer ce rapport.


Je voudrai qu'en cliquant sur le bouton du macro qui lance l'impression une fenêtre me demande si je veux enregistrer en même temps mon rapport. Si la réponse est oui, il va chercher la macro d'impression et ensuite la macro d'enregistrement.

Si la réponse est non il va simplement chercher la macro d'impression.

Merci d'avance de votre aide.

 

[Yan L]

Un truc du genre:

Public Sub fonctionQuiDemande()
Dim i as Integer
i = MsgBox('Souhaitez vous enregistrer avant impression', vbYesNo, 'Enregistrement')
If (i = vbYes) Then
'on enregistre
Call macro d'enregistrement
End if
'impression
Call macro d'impression
End Sub

Cordialement.

Yan

 

[CBernardT]

Bonjour Fox et Yan,

Un essai qui devrait répondre aussi à la question :

Sub Imprimer()
Dim Msg As String, Style as String, Title As String
Dim MyValue As Byte

'Message de choix d'impression et d'enregistrement ou d'impression seule
Msg = 'Souhaitez-vous Imprimer et Enregistrer ce rapport ?' ' Définit le message.
Style = vbYesNo + vbCritical + vbDefaultButton2 ' Définit les boutons.
Title = 'DECISION D'IMPRIMER ET D'ENREGISTRER OU D'IMPRIMER' ' Définit le titre.
MyValue = MsgBox(Msg, Style, Title)
If MyValue = vbNo Then
' L'utilisateur a choisi Non !
'Mettre ici le nom de la macro d'impression
Exit Sub
Else
' L'utilisateur a choisi oui !
'Mettre ici le nom de la macro d'impression
'Mettre ici le nom de la macro d'enregistrement
End If
End Sub
Cordialement

Bernard

Message édité par: CBernardT, à: 04/10/2005 10:00

 

[myDearFriend!]

Bonjour Fox,

Si j'ai bien compris le problème :

Sub MacroImprimer()
Dim R As Integer
      R = MsgBox('Voulez-vous également enregistrer ce rapport ?', vbYesNo)
      'ICI ton code pour l'impression
      '
      '
        If R = vbYes Then
            'Lancer la macro d'enregistrement
            MacroEnregistrer
      End If
End Sub

Cordialement,

EDITION
Aïe... gros Carambolage là ! Désolé les gars, je ne vous ai pas vus venir... En tout cas, notre ami Fox aura de quoi faire...

Message édité par: myDearFriend!, à: 04/10/2005 09:52