XL 2013 Plantage après impression

[guigui76]

Bonjour, j'ai un petit souci deux fois rien masi je ne trouve pas la solution.
le fichier comporte deux userforms et deux macro.
La premiere macro a pour but de récupérer les valeurs venant d' un fichier CSV, de compiler les données dans un tableau et d'imprimer un étiquette avec différentes valeurs.
la deuxième macro a pour but de refaire une impression d'étiquette.

Le souci, et que lorsque je relance un impression le fichier plante et je ne comprends pas pourquoi.

je vous remercie

 

[Lone-wolf]

Bonjour guigui

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

 

[guigui76]

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

 

[Lone-wolf]

Re

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

 

[Lone-wolf]

Re

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

 

[guigui76]

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")

 

[Lone-wolf]

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.

 

[guigui76]

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