XL 2013 Plantage après impression

Lone-wolf

XLDnaute Barbatruc

• 19 Avril 2017

• #2

Bonjour guigui

Pour test, ça serait mieux si tu mettais le fichier csv en pièce jointe.

 

Vote positif 0 Vote négatif

G

guigui76

XLDnaute Occasionnel

• 19 Avril 2017

• #3

ce n'est pas la partie extraction qui me pose un souci. mais je te joins le fichier CSV.
je te remercie

 

Pièces jointes

• scan.zip

  323 bytes · Affichages: 24

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 19 Avril 2017

• #4

Re

Oui, mais sans le fichier la macro plante et donc impossible de faire le test.

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 19 Avril 2017

• #5

Re

VB:

Private Sub CommandButton2_Click()
    Unload Me
    Sheets("temp").Activate
    With ActiveSheet.PageSetup
        .PrintArea = "$E$35:$I$40"
    End With
    Application.Dialogs(xlDialogPrinterSetup).Show
    ActiveSheet.PrintOut
End Sub

 

Vote positif 0 Vote négatif

G

guigui76

XLDnaute Occasionnel

• 19 Avril 2017

• #6

pour quelle raison as tu mis Unload Me en début de code?
j'ai voulu supprimer le With pour éviter d'activer l'onglet "temp" et je n'avais pas réussi à faire with Sheets("temp").range ("E35:I40")

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 19 Avril 2017

• #7

Re

Par-ce que pour voir l'aperçu, il faut masquer le formulaire. J'ai fait le test avec PrintPreview. Et fait comme ceci


With Sheets("temp").PageSetup
.PrintArea = "$E$35:$I$40"
End With
Sheets("temp").PrintOut

Et laisse tel quel. Pas besoin d'ouvrir la boîte de dialogue, l'impression se fait directement.

 

Vote positif 0 Vote négatif

G

guigui76

XLDnaute Occasionnel

• 19 Avril 2017

• #8

ok, je te remercie, je testerai cela demain au boulot.
en impression PDF cela fonctionne, je verrai bien.
je te remercie.

 

Vote positif 0 Vote négatif