Copier des onglets entre classeurs variables

Bonsoir,

j'aimerais pouvoir utiliser une macro pour transférer un onglet actif, depuis un classeur choisi aléatoirement ("manuellement") et le transférer dans un classeur choisi dans une boîte de dialogue.

Je trouve des demi-solutions... la plupart du temps, le classeur source ou celui de destination est ciblé.

Auriez-vous un fichier exemple où un début de réponse?

Merci

J'ai utilisé cette macro qui fonctionne :

La feuille active, d'où est lancée la macro, est copiée sur le classeur de mon choix, avant la première feuille.

sub CopierOnglet()

Dim QuelFichier

QuelFichier = Application.GetOpenFilename("Excel, *.xlsm")

For Each Workbook In Workbooks

If QuelFichier = False Then

MsgBox "Vous venez d'annuler l'opération."

Exit Sub

Else

End If

If Workbook.Name <> ThisWorkbook.Name Then

Workbook.Close SaveChanges:=True

End If

Next Workbook

If QuelFichier <> False Then

Workbooks.Open QuelFichier

ThisWorkbook.ActiveSheet.Copy before:=ActiveWorkbook.Sheets(1)

End If

End Sub