Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

(VBA) Nommer feuille automatiquement d'après nom de fichier

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion Iwana
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
I

Iwana

Guest
Bonjour à tous,

J'ai parcouru le forum à la recherche d'une solution, sans succès.

Ma macro permet d'importer un fichier texte et d'afficher les données dans un nouvel onglet.
Quel code dois-je insérer pour qu'à chaque import de fichier la nouvelle feuille créée prenne le nom du fichier importé ?

Exemple : nom de fichier "pifpafpouf.txt"
Je souhaite que l'onglet prenne ce nom.

Merci d'avance ! 🙂

Iwana
 
Trier par date Trier par votes
Re : (VBA) Nommer feuille automatiquement d'après nom de fichier

Bonjour Pierrot,

Malheureusement, les besoins relatifs à cette macro évoluent quasi quotidiennement, et effectivement ça me complique la tâche.

Voici le bout de code en question :
Code: 
If Fichier <> "Faux" Then
        Set wk = Workbooks.Open(Fichier)
        With wk
            With .ActiveSheet.UsedRange
                pc = .Cells(1, 1).Address
                .Copy
            End With
            
            Set wk = ThisWorkbook
            Set ws = wk.Worksheets.Add(after:=wk.Worksheets(wk.Worksheets.Count))
            ws.Name = Mid(Fichier, InStrRev(Fichier, "\") + 1, Len(Mid(Fichier, InStrRev(Fichier, "\") + 1)) - 4)
            
            Set wk = ThisWorkbook
            wk.ActiveSheet.Range(pc).PasteSpecial xlValues
            Application.CutCopyMode = False
            .Close False
        End With
    End If

J'ai tenté d'insérer mon mot récurrent ("tableau" donc) au niveau du ws.Name, sans succès.
 
Vote positif 0 Vote négatif
Re : (VBA) Nommer feuille automatiquement d'après nom de fichier

Re,

essaye comme ceci :
Code: 
ws.Name =  "tableau " & Mid(Fichier, InStrRev(Fichier, "\") + 1, Len(Mid(Fichier, InStrRev(Fichier, "\") + 1)) - 4)
 
Vote positif 0 Vote négatif
Re : (VBA) Nommer feuille automatiquement d'après nom de fichier

Bien entendu, ça fonctionne impeccable, et bien entendu, j'ai tout essayé (les guillemets, tout ça tout ça) mais pas le "&".

Encore mille merci Pierrot !
 
Vote positif 0 Vote négatif
Re : (VBA) Nommer feuille automatiquement d'après nom de fichier

Bonjour tout le monde !

Toujours dans la même macro :
J'ai deux sub, une qui permet d'importer des données d'un fichier texte, une deuxième qui met en page.
Ma première sub, afin de limiter les erreurs j'ai mis des "sécurités",
notamment au niveau du type de fichier (txt en l'occurrence) qui est imposé à l'utilisateur.
Seulement, dans mon type de fichier j'ai encore deux "sous-types" que l'on ne peut différencier que si l'on ouvre le fichier.
Est-il possible de demander "si le fichier contient le mot "plouf", alors supprime la feuille et retourne à la page d'accueil avec la boîte de dialogue pour le user choisisse un autre fichier." ?
Si oui, où cela doit-il être placé dans mon code ?

Voici mon bout de code, et en gras ma tentative :
Code: 
 ' Import des données dans une nouvelle feuille
    If Fichier <> "Faux" Then
        Set wk = Workbooks.Open(Fichier)
        With wk
            With .ActiveSheet.UsedRange
                pc = .Cells(1, 1).Address
                .Copy
            End With
            
            Set wk = ThisWorkbook
            Set ws = wk.Worksheets.Add(after:=wk.Worksheets("Accueil"))
            ws.Name = "Worklist_" & Mid(Fichier, InStrRev(Fichier, "\") + 1, Len(Mid(Fichier, InStrRev(Fichier, "\") + 1)) - 4)
            
            Set wk = ThisWorkbook
            wk.ActiveSheet.Range(pc).PasteSpecial xlValues
            Application.CutCopyMode = False
            .Close False
        End With
    End If
    wk.ActiveSheet.Range("A1").Select
    Application.ScreenUpdating = True

   ' ci-dessous ce que j'ai ajouté
    Columns("A:A").Select
    For i = Range("A65536").End(xlUp).Row To 1 Step -1
            If UCase(Cells(i, 2).Value) Like UCase("*MRV*") Then ActiveSheet.Delete: GoTo choix
    Next i

fin:

End Sub

Merci d'avance !

Iwana
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

J
  • Question Question
XL 2021 Nom groupe cellules
Réponses
3
Affichages
221
Dranreb
  • Résolu(e)
Microsoft 365 rendre visible automatiquement l'onglet de la feuille active sur la barre de navigation inférieure
Réponses
11
Affichages
1 K
Eric 888
A
  • Résolu(e)
Microsoft 365 programme VBA pour "importer" les valeurs de certaines cellules d'une autre feuille appartenant à une ligne que j'identifie par un n°
2
Réponses
27
Affichages
1 K
arnomorize
A
  • Résolu(e)
XL 2013 (RESOLU) Afficher automatiquement le nom de la feuille
Réponses
4
Affichages
649
chaelie2015
G
  • Question Question
XL 2021 Macro pour changer les titres de fichier d'archive
Réponses
3
Affichages
699
fanch55
8
  • Question Question
XL 2021 Nom de feuille vba
Réponses
5
Affichages
609
89ric
8
  • Résolu(e)
Microsoft 365 Ajout d'onglet par VBA et entête de colonnes
2
Réponses
17
Affichages
2 K
Roseline
A
  • Question Question
XL 2021 Automatiser la génération de documents Word à partir d’Excel avec VBA
Réponses
12
Affichages
1 K
ali591
A
D
  • Question Question
XL 2021 Mise en forme automatique de tableaux via vba
Réponses
7
Affichages
1 K
Jacky67
P
  • Question Question
Microsoft 365 Automatisation avec création de fichier et d'onglets en fonction des valeurs
2
Réponses
15
Affichages
2 K
pene
P
EXCEL :: CLASS_LIBRARY_TOOLS_V1.0 - Classes utilitaires - Fichier Log, Gestion de pile d'exécution, isExists, Paramètres, Collection, Dictionnaire
Réponses
0
Affichages
533
oguruma
M
  • Question Question
XL 2016 Erreur d'execution '52': Nom ou numéro de fichier incorrect
Réponses
4
Affichages
2 K
macseb
M
C
  • Résolu(e)
Microsoft 365 Amélioration de mon code VBA
Réponses
9
Affichages
836
Cherrylie
C
R
  • Résolu(e)
XL 2016 Automatiser le nom de la feuille dans une formule
Réponses
3
Affichages
908
Rabeto
R
O
  • Question Question
XL 2019 Création d'un fichier - VBA ?
Réponses
1
Affichages
772
soan
S
L
  • Résolu(e)
XL 2016 Lien hypertexte VBA
Réponses
1
Affichages
1 K
Louu59
L
  • Question Question
XL 2016 VBA Compilation de données de chaque feuille vers une ligne précise d'une feuille de compilation
Réponses
0
Affichages
765
My<3
N
  • Question Question
Microsoft 365 donner a ma feuille le nom de l'onglet avant envoi par mails
Réponses
2
Affichages
1 K
Nabster
N
B
  • Question Question
XL 2016 Envoyer PDF depuis Excel
Réponses
3
Affichages
1 K
benito87
B
G
  • Résolu(e)
Microsoft 365 création d'onglet/ enregistrement fichier en CSV
Réponses
1
Affichages
2 K
AtTheOne
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…