Discussion :

[BERRACHED SAID]

Bonjour le forum

Bon voilà j'ai un petit souci avec Excel 2007 sur le PC
Quand je tente d'imprimer,les données, la mise en page... Rien n’apparaît ! Tout ce qui s'affiche c'est son en tête et son pied de page et les titres des colonnes et bien sur à l'impression
alors que la feuille contiens bien des données
C'est un PC tout neuf, l'imprimante s'est bien installée dessus...(On a imprimé une page test sans problème) Je ne comprends pas.

c'est peut être due au format des données transférer par macro ????

comment y remédier ? c'est la dernière étape

Un petit coup de main svp ? Qu'est ce qui cloche ?

Bonne journée

[Ashireon]

Hello,
As tu définit par macro une zone d'impression ?
Si oui la zone contient bien des données ?
As tu testé le fichier ailleurs ?
Imprime tu par macro ? Donc est tu sur la bonne page a imprimé?

[BERRACHED SAID]

Salut Ashireon

Oui la zone d'impression est bien défini par macro dans le code précédemment évoqué :

Code :

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

Feuil2.PageSetup.PrintArea = "$A$1:" & Range("E" & Application.Rows.Count).End(xlUp).Address '"$A1$E"

ma feuille contiens bien données transférer par macro que tu m'a donner

j'ai pas essayer ailleurs

j'imprime par macro :

Code :

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

Worksheets("Imprim").PrintOut

je comprend pas ???????

vide a l'aperçu vide a l'impression

Merci

[mercatog]

Code :

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

1
2
3
4
With Feuil2
    .PageSetup.PrintArea = "$A$1:" & .Range("E" & .Rows.Count).End(xlUp).Address
    .PrintPreview                                '    .PrintOut
End With

Équivalent à

Code :

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

1
2
Feuil2.PageSetup.PrintArea = "$A$1:" & Feuil2.Range("E" & Feuil2.Rows.Count).End(xlUp).Address
Feuil2.PrintPreview                                '    Feuil2.PrintOut

[BERRACHED SAID]

Bonjour mercato

apparemment ça marche comme ça seul souci c'est que l'userform reste bloque il a fallu redémarrer le pc ????

pourtant j'ai mis Unload me a fin du code

Code :

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

1
2
3
4
5
With Feuil2
    .PageSetup.PrintArea = "$A$1:" & .Range("E" & .Rows.Count).End(xlUp).Address
    .PrintPreview        '.PrintOut
End With
Unload Me

merci

[Ashireon]

Creer cette partie dans un public sub d'un module
fait unload de l'userform
et lance l'impression ensuite

[mercatog]

Enlève la PrintPreview et remplace là par ton PrintOut initial

[Docmarti]

Bonjour mercato

apparemment ça marche comme ça seul souci c'est que l'userform reste bloque il a fallu redémarrer le pc ????

pourtant j'ai mis Unload me a fin du code

Code :

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

1
2
3
4
5
With Feuil2
    .PageSetup.PrintArea = "$A$1:" & .Range("E" & .Rows.Count).End(xlUp).Address
    .PrintPreview        '.PrintOut
End With
Unload Me

merci

Code :

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

1
2
3
4
5
6
 Me.Hide
With Feuil2
    .PageSetup.PrintArea = "$A$1:" & .Range("E" & .Rows.Count).End(xlUp).Address
    .PrintPreview        '.PrintOut
End With
 Unload Me

[BERRACHED SAID]

Merci a tous

voila la bonne solution

Code :

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

1
2
3
4
5
unload me
With Feuil2
    .PageSetup.PrintArea = "$A$1:" & .Range("E" & .Rows.Count).End(xlUp).Address
    .PrintPreview        '.PrintOut
End With

excellente journée a tout(e)s