Macro impression exécutée avant affichage du formulaire

[Zouzou93]

Re-Bonjour le Forum, J'ai un autre soucis.
J'ai appliqué la macro ci dessous .... mais le soucis c'est que le msgbox qui demande de valider l'impression du formulaire se présente bien avant l'affichage du formulaire. Et du cout l'impression se fait sur le document actif.
Y at-il possibilité de règler ce timing ?
Merci
Zouzou


Sub REImprimer()

Application.ScreenUpdating = False


Dim nom As String 'déclare la variable nom
Dim noncomplet As String 'déclare la variable nomcomplet
Dim chem As String 'déclare la variable chem
nom = InputBox("Saisissez le Nr de cotation selon format : 00 000000 00")
chem = "Z:\documents\Outils\ARCHIVES COTATIONS"
With Application.FileSearch 'recherche de fichier
.LookIn = chem 'dans le même répertoire que le fichier actuel
.SearchSubFolders = True 'dans les sous-répertoires
.Filename = nom & "*.xls" 'tous les fichiers Excel commençant par le nom de la boite
If .Execute > 0 Then 'si au moins un fichier est trouvé
nomcomplet = .FoundFiles(1) 'définit le nom complet du fichier trouvé
Workbooks.Open (nomcomplet) 'ouvre le fichier
ActiveWorkbook.Activate
End If
End With

If MsgBox("Voulez-vous imprimer cette Cotation?", vbYesNo + _
vbExclamation, "Avertissement") = vbYes Then
Application.Dialogs(xlDialogPrint).Show
End If


End Sub

 

[pierrejean]

Re : Macro impression exécutée avant affichage du formulaire

bonjour Zouzou

teste

.......
End If
End With
[COLOR=red]Application.ScreenUpdating = True[/COLOR]
 
If MsgBox("Voulez-vous imprimer cette Cotation?", ....
.....

 

[Zouzou93]

Re : Macro impression exécutée avant affichage du formulaire

Bonjour PierreJean et Merci .... C'est mieux ainsi effectivement.
A bientôt
Zouzou