Soucie: Imprimer sélection sur feuille copiée d'un cadre

[GuillaumA]

Bonjour,

J'utilise la macro suivante sur Module que je lie à un bouton simple sur un cadre (ce dernier est la base de multiple feuille copiées):

Sub Print()
Dim MyValue As Byte
MyValue = MsgBox("Would you like to print ?", vbYesNo + vbDefaultButton1)
If MyValue = vbNo Then Exit Sub

NomDeLaFeuille = Sheets("Feuil3").Range("J33") [COLOR="Green"]'le nom de la feuille copiée que l'on a ouverte s'est injecté ultérieurement ici par le biais d'une macro annexe[/COLOR]
With Sheets(NomDeLaFeuille)
.PageSetup.PrintArea = "$C$3:$J$82"
With .PageSetup
.PaperSize = xlPaperA4
.Orientation = xlPortrait
.FitToPagesWide = 1
.FitToPagesTall = 1
.BlackAndWhite = True
End With
.PrintOut Copies:=1
End With
End Sub

J'ai aussi utilisé essayé avec ActiveSheet pour cibler la feuille actuelle:

Sub Print() 
Dim MyValue As Byte
MyValue = MsgBox("Would you like to print ?", vbYesNo + vbDefaultButton1)
If MyValue = vbNo Then Exit Sub

With ActiveSheet
.PageSetup.PrintArea = "$C$3:$J$82"
With .PageSetup
.PaperSize = xlPaperA4
.Orientation = xlPortrait
.FitToPagesWide = 1
.FitToPagesTall = 1
.BlackAndWhite = True
End With
.PrintOut Copies:=1

Problème, rien à faire, cela ne veut pas marcher pour les feuilles copiée. Le bouton lance bien la macro, mais la sélection n'est pas faite et du coup je me récupère une tonnes de feuilles imprimé là ou il ne devrait y en avoir qu'une seule.

Pourquoi la macro ne marche pas ? La macro est pourtant sur module et le bouton simple est bien copié et fonctionne... je ne comprend pas....


Merci de votre aide,

Cordialement,
Guillaume A.