Importer et Renommer Automatiquement des feuilles Excel

Bonjour à tous,

Précédemment, j'ai demandé sur le forum comment importer des feuilles Excel dans un classeur existant.

J'ai récupéré ce code qui fonctionne à Merveille !!! Encore merci à la personne du forum qui m'a aidé.

Option Explicit

Dim w, monWB As Workbook, wb As Workbook, f As Worksheet
Dim i&

Sub Importer()

    Application.ScreenUpdating = False

    Set monWB = ActiveWorkbook
    w = Application.GetOpenFilename(, , , , True)
    For i = 1 To UBound(w)
        Workbooks.Open (w(i))
            Set wb = ActiveWorkbook
            For Each f In wb.Worksheets
                f.Cells.Copy
                monWB.Sheets.Add After:=monWB.Sheets(monWB.Sheets.Count)
                monWB.Activate
                On Error GoTo DéjàImporté
                ActiveSheet.Name = f.Name
                Range("A1").Select
                ActiveSheet.Paste
                Range("A1").Select
            Next f
        Application.CutCopyMode = False
        wb.Close False
    Next i

Sheets("Accueil").Select

Exit Sub

DéjàImporté:
    Application.DisplayAlerts = False
    ActiveSheet.Delete
    wb.Activate
    MsgBox "Le nom de cette feuille exite déjà dans le fichier " & monWB.Name, 16

    Application.ScreenUpdating = True

End Sub

J'aimerais pouvoir dans une userform utiliser un bouton "importer" avec la macro ci-dessus et renommer automatiquement le fichier importé dans le classeur avec un nom prédéfini que je mettrais dans la macro.

Exemple :

La Userform me demande de sectionner le fichier A qui a un nom pouvant varier :

Le but étant que ce fichier soit renommé automatiquement "Import A" dans une nouvelle feuille du classeur.

Ps : Je souhaite pouvoir réitérer cette manipulation pour un "fichier B" par exemple et le renommer "Import B". Sachant que "Import A" et "Import B" seront des noms de feuilles préalablement établi, ils ne dépendent en aucun cas du nom du fichier initial.

J'espère que mon message est plutôt clair ...

Merci à ceux qui y jetteront un œil!!

Bon week-end

Bonjour,

Pour donner un nom à un fichier ... il suffit de le sauvegarder en lui attribuant le nom que tu veux ...

En espèrant que cela t'aide ...

Bonjour,

Merci d'avoir répondu à ma question James007. Mais ce n'est pas ce que je cherche à faire...

Je souhaite pouvoir sélectionner plusieurs fichiers et que ces fichiers importés prennent en onglet un nom prédéfini !!!

Je ne sais pas si je suis clair

Le but étant par la suite que mes macros travaillent sur les onglets ayant le nom prédéfini.

Bonne journée à tous,