Problème d'aperçu en VA

Résolu/Fermé
LANXADE Alain Messages postés 29 Date d'inscription mercredi 29 avril 2009 Statut Membre Dernière intervention 5 avril 2017 - 3 janv. 2011 à 10:50
LANXADE Alain Messages postés 29 Date d'inscription mercredi 29 avril 2009 Statut Membre Dernière intervention 5 avril 2017 - 3 janv. 2011 à 12:20
Bonjour,

Sur une UserForm lorsque j'actionne le CommandButton4, je dois obtenir un aperçu de la feuille "FicRapport"
Pour cela j'ai:
> Une Userform13
> Sur cette UF13 un CommandButton4
> Une feuille de calculs Excel : "FicRapport"
> Un code :

Private Sub CommandButton4_Click()
WorkSheets("FicRapport").Preview
End Sub



Losrque j'actionne le CommandButton4, rien ne se passe sinon que tout est bloqué UserForm apparent, (je dois éxécuter Alt, Ctrl et supprime pour me sortir du programme, l'action sur toute autre touche étant inopérante.)


Merci de votre attention.





<config>Windows XP

5 réponses

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
3 janv. 2011 à 11:00
Bonjour

Quelle est la version d'XL ?

Sur XL<2007, pour avoir un aperçu avant impression, utilises la méthode
.PrintPreview
0
lermite222 Messages postés 8702 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 1 190
Modifié par lermite222 le 3/01/2011 à 12:24
Bonjour,
Bonjour Michel.
Idem pour le 2007
Quand à ouvrir le Preview à partir d'un UF c'est une très mauvaise idée.
Quand l'UF est ouvert en mode Modal, rien à faire, le PC est bloqué.
Si ouvert en mode Non Modale, le PC n'est pas bloquer mais l'UF ne peut être déplacer ni cacher, ce qui fait qu'il reste en plein milieu de l'écran.
Mais c'est pas pour cela qu'il n'y a pas de solution.
1°) dans un module public
Sub Voir() 
    Unload UserForm1 
    Sheets("feuil1").PrintPreview 
    UserForm1.Show 
End Sub

2°) Dans le bouton de l'UF
Private Sub CommandButton1_Click() 
    Voir 
End Sub

Ca fonctionne très bien.
A+
L'expérience instruit plus sûrement que le conseil. (André Gide)
Si tu te cognes à un pot et que ça sonne creux, c'est pas forcément le pot qui est vide. ;-)(Confucius)
0
lermite222 Messages postés 8702 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 1 190
3 janv. 2011 à 12:03
Tu met ton poste en Résolu ???
Mais tu ne dis pas comment ? et si c'est une solution qui t'a été donnée sur ce poste je suppose qu'un MERCI t'aurais trop écorcher.
0
LANXADE Alain Messages postés 29 Date d'inscription mercredi 29 avril 2009 Statut Membre Dernière intervention 5 avril 2017
3 janv. 2011 à 12:08
bonjour lermite 222

Ce doit être une fausse manip. , je n'ai pas encore éssayé.

Je donne ma réponse dés que j'ai des résultats
Pardon encore pour le désagrément
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
LANXADE Alain Messages postés 29 Date d'inscription mercredi 29 avril 2009 Statut Membre Dernière intervention 5 avril 2017
3 janv. 2011 à 12:20
Bonjour à tous

Effectivement cela marche très bien, j'ai mis un peu de temps car en fait, j'avais deux UF ouverts. Mais le problème est résolu

Merci de votre aide et tous mes voeux pour la nouvelles année
0