Discussion :

[Steppingstone]

Bonjour,

J'aurais besoin de renommer automatiquement la première feuille de chaque .xls d'un dossier en "Sheet1"

Le chemin du dossier est D:\Users\pch\Desktop\Claims

Je n'arrive pas à trouver la bonne macro,

Merci beaucoup d'avance pour votre aide

[defluc]

Utilises l'enregistreur de macros et tu auras une solution toute faite.
Ouvrir un nouveau classeur
Lancer l'enregistreur de macros
Ouvrir un premier classeur de D:\Users\pch\Desktop\Claims
Renommer la feuille
Fermer le classeur en le sauvant
Fermer l'enregistreur de macros
Editer la macro

L'adapter par une boucle sur tous les classeurs du dossier

[Steppingstone]

Merci pour ta réponse,

Comment puis-je l'adapter par une boucle stp :

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 Rename_tab()
'
' Rename_tab Macro
'
 
'
    Workbooks.Open Filename:= _
        "D:\Users\pch\Desktop\Claims\CLA_CY_ADH_IT_201312_20140116.xls"
    Sheets("Sheet1").Select
    Sheets("Sheet1").Name = "Sheet1"
    Range("B29").Select
    ActiveWorkbook.Save
    ActiveWindow.Close
End Sub

[MarcelG]

Bonjour,

Bienvenu sur le faux rhum

Pour boucler sur les fichiers d'un répertoire, tu peux consulter la FAQ à ce sujet.

LES FICHIERS SUR LA FAQ DEVELOPPEZ.COM

[Steppingstone]

Bonjour Marcel,

J'ai consulté le FAQ mais je n'arrive pas à appliquer correctement la boucle, pourrais-je avoir votre aide svp ?

Merci

[MarcelG]

Salut,

mais je n'arrive pas à appliquer correctement la boucle

Pourrais-tu retourner ton dernier code en indiquant la(les) ligne(s) de code qui pose problème.