Discussion :

[Lulugant]

Bonjour à tous,

Je finalise une petite application sur la base d'excel 2010.

J'ai souhaité masquer le classeur excel afin que seuls les userforms apparaissent à l'écran.
parallèlement, j'ai usf d'édition des états qui me permet en cliquant sur divers boutons d'ouvrir l'aperçu avant impression de plusieurs feuilles masquées du classeur.

J'ai passé le code vba suivant mais ça bug et je ne trouve pas la solution.

Pourriez vous m'aider SVP ?

Avec mes remerciements.

Voici mon code:

Code placé dans thisworkbook

Code :

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

1
2
3
4
Private Sub Workbook_Open()
    Application.Visible = False
    UserForm1.Show  
End Sub

Code de chaque bouton de l'USF d'édition des états:

Code :

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

1
2
3
4
5
6
7
Private Sub Cmd36_Click()
    Me.Hide
    Feuil4.Visible = True
    Feuil4.PrintPreview
    Feuil4.Visible = False
    Me.Show
End Sub

[Phifou]

Lequel des deux codes ne fonctionne pas ?

Essaye de cacher les workbook plutôt que l'application ou les feuilles : après tout, les userform dépendent de ton application...
Si tu fais quelque choses comme workbooks("Classeur1").hide ou .visible = true

ça doit fonctionner à priori.

[Lulugant]

Bonjour Phifou,

Merci pour ta réponse.

En fait, je ne veux pas qu'excel apparaisse pas lorsque j'ouvre le fichier. Je voudrais arriver directement sur l'Userform1, mais lorsque j'active l'application avec le code correspondant, et que je vais sur le Userform 6 pour faire un aperçu avant impression d'une des feuilles indiquées sur les boutons, l'application se bloque complètement.

Je joins le fichier afin d'être plus clair.

[Phifou]

Ce qu'il y a dans "ThisWorkbook" que tu as mis en commentaire fais très bien le travail de ne pas ouvrir ton classeur excel et d'ouvrir la userform.
De mon côté ça marche.

En revanche, quand je valide sur ta première userform j'ai des erreurs dans l'appel de "DTPicker1" j'ai pas regardé à quoi il correspond.... Il faut rajouter une référence ?

Quelle userform te permet d'afficher l'aperçu avant impression ? et en appuyant sur quel bouton ?

[Lulugant]

Bonjour,

Pour déclencher l'aperçu, il faut aller sur l'Userform6 "édition des états" et appuyer sur n'importe quel bouton tel que "bilan", "SIG",.....

Est-ce que ça bloquerait parce que j'ai masqué excel et que je lance un aperçu avant impression sur une application masquée ? là je ne comprend plus.

En revanche, pour le DTpicker, ça fonctionne bien sur mon PC.

[eriiic]

Bonjour,

Ca bug c'est vague... Un message d'erreur ?
et avec ? :

Code :

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

1
2
3
4
Private Sub Workbook_Open()
    Application.WindowState = xlMinimized
    UserForm1.Show
End Sub

Et DTpicker n'existe pas toujours selon les versions d'excel.

eric

[Lulugant]

Bonjour Eriiic et Phifou et merci de votre aide,

Après avoir fait un test sur un autre classeur excel, j'ai bien un problème de compatibilité entre le code intégré dans ThisWorbook et le code du bouton 36 sur mon USF 6.

Aucun message d'erreur n'apparaît mais le pointeur circulaire apparaît comme si je chargeais un fichier et ne s'arrête plus.

J'avais déjà essayé le code d'Eriiic, mais ça ne fonctionne pas non plus.

Cela voudrait-il dire que lorsque l'on masque le fichier excel, on ne peut plus faire un aperçu avant impression des feuilles qu'il contient ?

Le code inclus dans "ThisWorbook"

Code :

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

1
2
3
4
5
 
Private Sub Workbook_Open()
    Application.Visible = False
    UserForm1.Show  
End Sub

Le code inclus dans le bouton 36 du USF 6 destiné à ouvrir l'aperçu avant impression.

Code :

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

1
2
3
4
5
6
7
Private Sub Cmd36_Click()
    Me.Hide
    Feuil4.Visible = True
    Feuil4.PrintPreview
    Feuil4.Visible = False
    Me.Show
End Sub

Merci de votre patience

[Phifou]

Bonjour Lulugant,

En effet, lorsque tu utilise l'aperçu d'impression, celui-ci se fait justement dans l'application, tu as donc tout intérêt à ce qu'elle soit visible à ce moment là.

Pour ma part, en essayant ton code, la première partie fonctionnait. Donc ta userform s'affichait alors que ton classeur se cachait.
Pour la deuxième partie je ferais ainsi :

Code :

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

1
2
3
4
5
6
7
8
Private Sub Cmd36_Click()
    Me.Hide
    application.visible = true
    ' Feuil4.Visible = True je ne suis pas sur que ce soit nécessaire
    Feuil4.PrintPreview
    application.visible = true
    Me.Show
End Sub

à voir si ça fonctionne, sachant que le risque c'est qu'il n'attende pas que tu es cliqué sur imprimer et que tout se fasse très vite. Regarde déjà si ça ne renvoit pas d'erreur.


Philippe

[Lulugant]

Un Grand Merci PHIFOU,

Super, ça fonctionne très bien !!!!

Il ne me reste plus qu'à masquer excel lors de la fermeture du fichier (croix inactive et bouton sortie).

Peut-être as tu de bonnes solutions sur ces points ? et si oui par quelle procédure peut-on ensuite aller modifier le code VBA et éventuellement l'interface ?