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,