Discussion :

[SABHC2002]

SVP comment peut renommer la feuille d'un classeur Excel , et la donner le nom de ce même classeur ( chaque classeur contient une seule feuille), et refaire la procédure pour tous les autres classeurs du même fichier, merci d'avance

[Thautheme]

Bonjour SHBHC, bonjour le forum,

SVP comment peut renommer la feuille d'un classeur Excel , et la donner le nom de ce même classeur ( chaque classeur contient une seule feuille), et refaire la procédure pour tous les autres classeurs du même fichier, merci d'avance

Tu n'utilises pas les bon termes et ça rend la question difficile à comprendre. Je pense que tu voulais dire :
Comment peut-on renommer l'onglet (ou la feuille) d'un classeur (ou fichier) Excel , donner le même nom à ce classeur (ou fichier), et refaire la procédure pour tous les autres classeurs (ou fichiers) du même dossier ?
Si c'est bien ça que tu veux, il manque quelques d'informations :
1. Quel sera le nouveau nom (ou où va-t-on le trouver)
2. dans quel dossier se trouvent les fichiers ?

[SABHC2002]

merci Monsieur Thauthème pour votre conseil voila ce que je veux
1 j ai un répertoire ( folder) qui contient plusieurs fichier Excel ( plus que 100 fichier Excel)
2 chaque classeur excel contient une seule feuille
3 je veux renommer chaque feuille unique contenue dans le classeur et la donner le nom du classeur qui la contient

merci d'avance

[Thautheme]

Bonjour SABHC, bonjour le forum,

Essaie comme ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Macro1()
Dim CA As String 'déclare la variable CA (Chemin d'Accès)
Dim F As String 'déclare la variable F (Fichier)
Dim CL As Workbook 'déclare la variable CL (CLasseur)
 
CA = "C:\blabla\blabla\" 'définit le chemin d'accès CA (à adapter à ton cas)
F = Dir(CA & "*.xlsx") 'définit le premier fichier F ayant .xlsx comme extension et CA comme chemin d'accès (extension à adapter)
Do While F <> "" 'exécute tant qu'il existe des fichiers F
    Set CL = Workbooks.Open(CA & F) 'définit le classeur CF en l'ouvrant
    CL.Worksheets(1).Name = CL.Name 'renomme le premier onglet du classeur CL avec le nom du classeur
    CL.Close True 'ferme le claseur CL en enregistrant les changements
    F = Dir 'définit le prochain fichier F ayant CA comme chemin d'accès
Loop 'boucle
End Sub

[SABHC2002]

merci beaucoup Monsieur Thauthème pour votre aide précieuse , je suis reconnaissant mais ca n 'a pas marché , mais au moins là j'ai un début de réponse

[Thautheme]

Re,

Si tu continues dans le vague c'est sûr qu'on ne pourra pas t'aider... Bonne chance.

[SABHC2002]

Re,

Si tu continues dans le vague c'est sûr qu'on ne pourra pas t'aider... Bonne chance.

ca a marché j 'ai fait une erreur dans l'adresse, merci Monsieur Thautheme je suis très reconnaissant