Discussion :

[Rob's]

Bonjour,

J'ai un problème avec mon programme vba.
Quand j'appui sur "Valider" dans mon userform, une boîte de dialogue s'ouvre et me demande si je veux ouvrir ou non une FA.

Moi, je veux qu'un document excel (nommé FA) se trouvant dans un onglet appelé "FA" s'affiche quand j'appuis sur "Oui". De plus, il faut que les informations rentrées dans mon userform s'enregistre dans l'onglet "Synthese" et ensuite que mon document (nommé FA) s'ouvre.

Si je choisi "Non", l'userform se ferme et toutes mes info sont enregistrées dans mon onglet "Synthese".

J'ai réalisé ce programme mais, quand je fais "Oui", mon doc s'ouvre mais mon userform reste ouvert et tout se bloque, je ne peut cliquer sur rien... (photo en pièce jointe). Et aucunes info n'est enregistrées dans "Synthese"...

Si qqn peut m'aider se serai genial car la je galére...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Private Sub Valider_Click()
 Msg = MsgBox("Voulez vous ouvrir une FA?", vbYesNo)
 If Msg = vbYes Then
 Worksheets("FA").PrintPreview
 Unload UserForm1
 Else
 Unload UserForm1
 End If

Merci d'avance

[Ben_L]

Bonjour,

Le problème provient du fait que vous ne demandez pas simplement d'afficher la feuille FA. Vous demandez plutôt un aperçu avant impression.
VBA considère que la commande 'Worksheets("FA").PrintPreview' n'est pas finie tant que l'utilisateur n'a pas fermé manuellement la fenêtre d'aperçu.
Mais comme votre UserForm n'est pas encore cachée, l'utilisateur ne peut pas avoir accès à la feuille Excel pour fermer cet aperçu...

Plusieurs solutions sont envisageables, selon ce que vous voulez faire:

1. Le plus simple reste de cacher la UserForm courante avant de passer à l'aperçu.

   Code :

   Sélectionner tout - Visualiser dans une fenêtre à part

   1
   2
   3
   4
   5
   6
   7
   Private Sub Valider_Click()
       If MsgBox("Voulez vous ouvrir une FA?", vbYesNo) = vbYes Then
           UserForm1.Hide
           Worksheets("FA").PrintPreview
       End If
       Unload UserForm1
   End Sub

2. Vous pourriez également vous passer de l'aperçu et simplement afficher la feuille voulue.

   Code :

   Sélectionner tout - Visualiser dans une fenêtre à part

   1
   2
   3
   4
   5
   6
   Private Sub Valider_Click()
       If MsgBox("Voulez vous ouvrir une FA?", vbYesNo) = vbYes Then
           Worksheets("FA").Activate
       End If
       Unload UserForm1
   End Sub

3. Enfin vous pourriez réaliser l'aperçu uniquement à la fin du code.

   Code :

   Sélectionner tout - Visualiser dans une fenêtre à part

   1
   2
   3
   4
   5
   6
   7
   8
   9
   Private Sub Valider_Click()
       If MsgBox("Voulez vous ouvrir une FA?", vbYesNo) = vbYes Then
           AffichFA = True
       Else
           AffichFA = False
       End If
       Unload UserForm1
       If AffichFA Then Worksheets("FA").PrintPreview
   End Sub

Cdt

[Rob's]

Bonjour Ben L

Merci pour votre aide!
La 3ieme méthode me conviens parfaitement!

Encore merci

Bonne journée

Cdt