Probleme impression

Bonjour,

J'ai un petit probleme

je voudrais imprimer un nombre "n" de page suivant le nombre de course selectionner "n"

Le "n" correspond a la cellule M39 de la feuille Impression

Voici le code que j'ai fais

'Imprime la feuille Inscription
With Workbooks("Baseinscr V5.xlsm").Worksheets("Impression")
n = Range("M39").Value
End With

Sheets("Impression").PrintOut , , n

Seulement quand je lance le USF il me met :

Erreur d'execution 1004

La méthode printOut de la classe WorkSheet à échoué

et je ne comprend pas pourquoi

Merci d'avance pour votre aide

Salut,

Sans avoir ton fichier à disposition, c’est assez compliqué de t’aider.

Ton UserForm est placé dans un autre fichier que "Baseinscr V5.xlsm" ?

Merci de nous fournir un fichier exemple.

Cordialement.

Salut,

Non absolument pas il est bien dans ce classeur.

Je te joint le fichier

Je te remercie

Franck

Bonjour,

A tester.

Cdlt

Public Sub PrintCopies()
Dim ws As Worksheet
Dim nbCopies As Long, i As Long
    Application.ScreenUpdating = False
    Set ws = Worksheets("Impression")
    nbCopies = ws.Range("M39")
    For i = 1 To nbCopies
        ws.PrintOut
    Next
    Set ws = Nothing
End Sub

Bonjour,

Jean-Eric

C'est parfait tout fonctionne correctement

Merci pour ton aide