Discussion :

[Reis71]

Bonjour à tous,

Je suis face à un problème que je ne trouve pas la solution sur google
Je veux à la fois imprimer et à la fois exporter les résultats obtenue après sélection (statistiques/rapport) qui se trouve dans le formulaire. Recherche via nom et une lettre à taper et vous obtenez liste de sélection du choix mais quand je clic sur imprimer il me donne toute la feuille (le tableau).

Comment faire pour imprimer et si on le souhaite l'exporter en csv.

Merci d'avance.
A+

Rapport¨_Print_Exp.xlsm

[deedolith]

Salut,

Le plus simple est de programmer l'évènement BeforePrint du classeur.
Tu détectes si le formulaire est instancié et visible.
Tu copie les données dans une feuille temporaire.
Tu imprimes la feuille, tu l'exportes.
Tu détruits la feuille temporaire.
Tu annules l'évènement, histoire que l'impression standard ne prenne pas le relais.

Les listviews etant un composant COM 32 bits, je ne peut te proposer de code.

[Reis71]

Bonsoir le forum, Bonsoir deedolith,

Etant pas bien ds le vba est ce que tu me proposes qqch comme ça ; mais comment copier la sélection vers la feuille2 car le Range dépend de la séléction
Dans Thisworkbook

Code :

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

1
2
3
4
5
Private Sub Workbook_BeforePrint(Cancel As Boolean)
 For Each wk In Worksheets
 wk.Calculate
 Next
End Sub

Dans la macro

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Public ouvert As Boolean
 
Private Sub UserForm01_Activate()
ouvert = True
 
If UserForm01.ouvert = True Then UserForm01.Visible = True
Else
Worksheets("Etude01").Range("T_Rapport").Copy Worksheets("Feuil2") '.Range("xxxx")
End If
 
Worksheets("feuil2").PrintPreview
Kill Worksheets("feuil2")
 
End Sub

Pour d'autres solutions (si peuvent exister) elles sont les bienvenues

Merci d'avance
A +

[deedolith]

Tu me perds la,
c'est les données d'un listview ou d'une feuille que tu veux imprimer ?

Pourquoi recalculer toutes les feuilles ? Je n'en voit pas l'utilité (généralement, on imprime les données que l'on voie à l'instant T, pas à l'instant T+1).

Si c'est une feuille, pourquoi te faire chier alors que n'importe quel utilisateur peut faire cela en 2 click.
A moins que le feuille soit masquée, dans ce cas, l'instruction suivante suffit:

Code :

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

Worksheets("Etude01").Range("T_Rapport").PrintPreview

Quand à verifier si un formulaire visible, on interroge la propriété Visible !!!
On ne lui crée pas une variable membre publique de surcroit, d'une part c'est redondant, d'autre part c'est à l'encontre de toutes bonne pratique connue (Viole du principe d'encapsulation, viole de la loi de Demeter: https://en.wikipedia.org/wiki/Law_of_Demeter).