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.

[Steppingstone]

Le voici :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub Rename_tab()
'
' Rename_tab Macro
'
 
'
    Workbooks.Open Filename:= _
        "D:\Users\pch\Desktop\Claims\*.xls"
    Sheets("Sheet1").Select
    Sheets("Sheet1").Name = "Sheet1"
    Range("B29").Select
    ActiveWorkbook.Save
    ActiveWindow.Close
End Sub 
Loop

Il manque apparemment un "Do", mais je ne sais pas où le placer.
Le but est que tous les .xls du dossier aient le même nom de feuille "Sheet1"

Merci pour ton aide

[MarcelG]

Salut,

3 remarques :
- Je ne vois pas de boucle sur les fichiers
- Evite ces p... de Select qui ne servent à rien d'autre qu'à rendre la lecture du code plus hardue en l'alourdissant
- Utilise les balises de code lorqsue tu postes une procédure.

Dans ton cas, tu pourrais utiliser une procédure argumentée.

A ADAPTER!

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Option Explicit
 
Sub BoucleFichiers()
    Dim Chemin As String, Fichier As String
 
    'Définit le répertoire contenant les fichiers
    Chemin = "C:\dossier\"
 
    'Boucle sur tous les fichiers xls du répertoire.
    Fichier = Dir(Chemin & "*.xls")
    'Utilisez la syntaxe suivante pour boucler sur tous les types de fichiers:
    'Fichier = Dir(Chemin & "*.*")
 
    Do While Len(Fichier) > 0
        'écrit le résultat dans la fenêtre d'exécution (Ctrl+G).
        Call change_nom_feuille(Chemin & Fichier)
        Fichier = Dir()
    Loop
 
End Sub
 
Public Sub change_nom_feuille(lefichier As String)
 
    Workbooks.Open Filename:=lefichier
    With Workbooks(lefichier)
            .Sheets("Sheet1").Name = "Sheet1"
            .Close SaveChanges:=True
    End With
 
End Sub

Etudie bien ce code en en comprenant la logique, et reviens si nécessaire.

[Steppingstone]

J'ai adapté le code comme suit, mais rien ne se passe lors de l'exécution.
Désolé mais je suis novice en matière de macros.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Option Explicit
 
Sub BoucleFichiers()
    Dim Chemin As String, Fichier As String
 
    'Définit le répertoire contenant les fichiers
    Chemin = "D:\Users\pch\Desktop\Claims"
 
    'Boucle sur tous les fichiers xls du répertoire.
    Fichier = Dir(Chemin & "*.xls")
    'Utilisez la syntaxe suivante pour boucler sur tous les types de fichiers:
    'Fichier = Dir(Chemin & "*.*")
 
    Do While Len(Fichier) > 0
        'écrit le résultat dans la fenêtre d'exécution (Ctrl+G).
        Call change_nom_feuille(Chemin & Fichier)
        Fichier = Dir()
    Loop
 
End Sub
 
Public Sub change_nom_feuille(lefichier As String)
 
    Workbooks.Open Filename:=lefichier
    With Workbooks(lefichier)
            .Sheets("Sheet1").Name = "Sheet1"
            .Close SaveChanges:=True
    End With
 
End Sub

[MarcelG]

Permets-moi de me répéter.
Les balises de code!

Pardon. Il fallait 2 arguments.

A adapter (répertoire)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
Option Explicit
 
Sub BoucleFichiers()
    Dim Chemin As String, Fichier As String
 
    'Définit le répertoire contenant les fichiers
    Chemin = "tata\"
 
    'Boucle sur tous les fichiers xls du répertoire.
    Fichier = Dir(Chemin & "*.xls")
    'Utilisez la syntaxe suivante pour boucler sur tous les types de fichiers:
    'Fichier = Dir(Chemin & "*.*")
 
    Do While Len(Fichier) > 0
        'écrit le résultat dans la fenêtre d'exécution (Ctrl+G).
        Debug.Print Fichier
        Debug.Print Chemin & Fichier
        Call change_nom_feuille(Chemin, Fichier)
        Fichier = Dir()
    Loop
 
End Sub
 
Public Sub change_nom_feuille(ledir As String, lefichier As String)
 
    Workbooks.Open Filename:=ledir & lefichier
    With Workbooks(lefichier)
            .Sheets(1).Name = "Sheet1"
            .Close SaveChanges:=True
    End With
 
End Sub

Pour sélectionner la première feuille, coder

Code :

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

.Sheets(1)

Un conseil.
Effectue une sauvegarde (copie) de ton répertoire et les fichiers qui y sont attachés avant de lancer ta procédure.

[Steppingstone]

Merci pour le retour ( j'avais pourant incorporé des balises )
Cependant rien ne se passe.
Il faut bien placer le fichier contenant la macro dans le même répertoire que les fichiers?

[MarcelG]

Salut,

L'emplacement du classeur contenant la procédure n'importe pas.

Mets la ligne

Code :

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

Call change_nom_feuille(Chemin, Fichier)

en libellé.
Puis exécute ta procédure pas à pas.

Quel résultat te donne ta fenêtre Exécution (CTRL + G)?

Vois-tu défiler les noms de fichiers et leur chemin complet.
Dans la négative, c'est ton adressage qu'il faut revoir.

[Steppingstone]

Ok merci je vais voir ça