Programme affichage doc excel dans VBA

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:

---

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

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:

   ---

   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:

   ---

   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:

   ---

   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

Bonjour Ben L

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

Encore merci

Bonne journée

Cdt