Sélection d'onglets puis impression à partir d'un autre fichier

Bonjour cher forum,

Je vous sollicite car je fais face à un mur (excel 2016)

J'aimerais pouvoir imprimer certains onglets dans un autre fichier ouvert

Le fonctionnement de mon fichier :

A partir d'un Usf, les textbox présents dans celui-ci, vont aller alimenter des cellules spécifiques du fichier choisi par l'utilisateur de mon fichier. Une fois la saisie terminée, une impression devra être réaliser sur des onglets spécifiques. Et je bute sur cette partie parce que je veux d'abord que les utilisateurs vérifient leurs saisies avant d'imprimer (PrintPreview)

Les documents à imprimer sont listés dans un combobox (activeX)

--> Code pour Saisie Usf

VB:

Private Sub CommandButton1_Click()

Workbooks.Open Filename:"C:...Fichier1"
With Workbooks"Fichier1"
.Sheets(1).Range("V1").Value=TextBox1.Value
End With

Workbooks("Fichier principal").Activate
Unload Me

End Sub

--> Code pour Impression ComboBox

VB:

Private Sub ComboBox2_Change()

If ComboBox2="Tous les documents" Then
Windows("Fichier 1").Activate

Sheets("Feuil1").Select

Sheets("Feuil1").PrintPreview

Sheets("Feuil2").Select

Sheets("Feuil2").PrintPreview

Sheets("Feuil3").Select

Sheets("Feuil3").PrintPreview

End If

GoSub ImpPage:
Rep=MsgBox("Voulez-vous imprimer ce(s) document(s):",vbOKCancel,"ATTENTION")
If Rep=1 Then
Application.PrintCommunication=True
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
Application.PrintCommunication=False
End If
Return

End Sub

Y a-t-il besoin de fichiers test ? Mon code est répétitif, je le sais bien

Merci beaucoup pour votre retour

Bonjour,

Pas d'idées svp ?