Impression d'un userform de feuille provenant d'un autre fichier

Bonjour,

j'ai trouver il y'a quelque temps ce code dans un autre forum mais je n'arrive pas à exécuter. quelqu'un pourait - t-il m'envoyer un fichier .xls avec le code exécuté. merci pour votre aide.

l'idée c'est que :

dans le classeur A j'ai un lisbox ou un userform qui liste tous les feuilles d'un classeur B. dans cette userform je selectionne une feuille ou une plage de feuille à imprimer.

voici le code :

Sub CommandButton1_Click()
Dim i As Long
Dim FEUILLES As Worksheet
Dim NOM_FICHIER2 As String ' stockage du nom du fichier B renseigné dans une cellule du fichier A

' stockage du nom du fichier à imprimer en le récupérant dans le fichier A
ThisWorkbook.Activate
Sheets("IMPRESSION").Activate
Range("E2").Select
NOM_FICHIER2 = ActiveCell.Value

' Boucle d'impression
Do While COMPTEUR_IMPRESSION < NB_COPIES
With ListBox1
For i = 0 To .ListCount - 1
If .Selected(i) = True Then Workbooks(NOM_FICHIER2).Sheets(.List(i)).PrintOut ' Impression des onglets que l'opérateur a sélectionnés
Next
End With
COMPTEUR_IMPRESSION = COMPTEUR_IMPRESSION + 1
Loop

End Sub

Sub ListBox1_Click()

End Sub

Sub UserForm_Click()

End Sub

Sub UserForm_Initialize()

' Script qui va permettre de récupérer dans la listbox le nom des onglets du fichier désigné et préselectionner les onglets de la listbox

Dim COUNT As Object
Dim NOM_ONGLET_TABLEAU As String ' variable de stockage du nom de l'onget disponible dans le tableau
Dim NOM_ELEMENT_LISTE As String ' déclaration de la variable de stockage du nom de l'onglet que l'on souhaite imprimer
Dim INDEX As Long ' déclaraion de la variable qui stocke le nom de l'élément de la listbox qui sera sélectionné
Dim NOM_FICHIER As String ' déclaration de la variable de stockage du fichier à imprimer


INDEX = 0 ' initialisation de la variable qui servira dans la boucle à définir le nom de l'élément de la liste

' stockage du nom du fichier à imprimer
ThisWorkbook.Activate
Sheets("IMPRESSION").Activate
Range("E2").Select
NOM_FICHIER = ActiveCell.Value


ListBox1.Clear ' Initialisation à Zéro de la listbox2
ListBox1.MultiSelect = fmMultiSelectExtended ' Permet de mettre en place la multisélection

' Boucle de récupération des onglets dans un fichier extérieur afin d'alimenter la listbox1 puis sélectionner
For Each COUNT In Workbooks(NOM_FICHIER).Worksheets
ListBox1.AddItem COUNT.Name
NOM_ELEMENT_LISTE = COUNT.Name
ThisWorkbook.Activate ' positionnement sur le fichier ici présent
Sheets("IMPRESSION").Select ' positionnement sur la première feuille
Range("A2").Select ' Positionnement en A2
Do While ActiveCell.Value <> ""
NOM_ONGLET_TABLEAU = ActiveCell.Value
If NOM_ELEMENT_LISTE = NOM_ONGLET_TABLEAU Then ' boucle qui va comparer l'élement du tableau avec le nom de l'élément de la liste
ListBox1.Selected(INDEX) = True
End If
ActiveCell.Offset(1, 0).Select
Loop
INDEX = INDEX + 1
Next

MsgBox ("sélection terminée, veuillez lancer l'impression")
End Sub