Discussion :

[Mairequimby]

Bonjour, j'essai d'importer des fichiers excel en onglet dans un autre fichier excel et par le fait même de renommer chaque onglet selon le nom de la feuille d'origine, mais une erreur se produit et m'indique que je ne peux renommer une feuille du même nom que mon fichier. Comme faire pour contourner cela. Merci de votre appui.

voici mon code.

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
33
34
35
36
37
38
39
 
ChDir ActiveWorkbook.Path
Set classeurMaitre = ActiveWorkbook
Dim DernLigne As Long
Dim ws As Worksheet
Dim Chemin As String
Dim rep As String
Dim nbfichier As Integer
Chemin = "C:dossier temporaire de ficheir\" 'a adapter
rep = Dir(Chemin & "*.xlsx")
While Not rep = ""
nbfichier = nbfichier + 1
rep = Dir
Wend
MsgBox nbfichier
 
 
 
 
Compteur = 1
  nf = Dir("*.xlsx")
  Name = Dir("*")
 
 
 
 
  Do While nf <> ""
      If nf = classeurMaitre.Name Then
 
 
    GoTo suite
    Else
      Workbooks.Open Filename:=nf
      For k = 1 To nbfichier
        Sheets(k).Copy After:=classeurMaitre.Sheets(classeurMaitre.Sheets.Count)
        classeurMaitre.Sheets(classeurMaitre.Sheets.Count).Name = nf
        Compteur = Compteur + 1
 
next

[clementmarcotte]

Bonjour,

Pas testé et après une lecture rapide. Sauf horreur de ma part, la fonction DIR retourne le nom de fichier et l'extension avec le point inclus. Toujours sauf horreur de ma part, on ne peut pas mettre de point dans un nom de feuille.

Teste en vitesse, en enlevant le point du nom de fichier. Tu devrais pouvoir le faire avec replace.

[Menhir]

une erreur se produit et m'indique que je ne peux renommer une feuille du même nom que mon fichier.

Quel est le message d'erreur ?
Sur quelle ligne l'erreur se produit-elle ?

Ta façon d'utiliser les Dir est pour le moins... chaotique : avec ou sans chemin, avec ou sans parenthèses, avec ou sans Dir() dans la boucle.
Déjà, je ne comprends pas pourquoi tu fais deux boucles.
Dans ta seconde boucle, tu ne mets pas de Dir() donc nf ne changera pas.
Dans ton Open, tu n'indiques pas le chemin pour ouvrir le fichier.
Pourquoi avoir mis une boucle For to sur le nombre de fichiers à l'intérieur de la boucle While ?
Ta boucle For tourne sur un nombre de fichiers mais sa variable k est utilisé pour un numéro de feuille ???

Entre autres...

Je pense qu'il y a un gros soucis global de conception et d'erreur de détail dans ton code.

[EBRAG]

Bonjour Menhir

Dans ta seconde boucle, tu ne mets pas de Dir() donc nf ne changera pas.

c'est ce qui apparaît à la première lecture, vue l'organisation du code, mais le next que tu vois est le next du for k pas du Do While

on ne sait pas ce qu'il y a derrière, (ni devant d'ailleurs !)

Pas facile avec un code tronqué !

[EBRAG]

Bonjour,

quand tu fais...

Code :

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

Sheets(k).Copy After:=classeurMaitre.Sheets(classeurMaitre.Sheets.Count)

la feuille est copiée avec le nom de la feuille d'origine, pourquoi vouloir la renommer ensuite ???

la ligne

Code :

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

classeurMaitre.Sheets(classeurMaitre.Sheets.Count).Name = nf

parait inutile ?

Essaie d'indenter ton code de façon cohérente de façon à faciliter la lecture...

[Mairequimby]

Merci

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
 
nf = Dir("*.*")
  Name = Dir("*")
 
Do While nf <> ""
      If nf = classeurMaitre.Name Then
     ' MsgBox (classeurMaitre.Name)
 
    GoTo suite1
    Else
      Workbooks.Open Filename:=nf
      For k = 1 To Sheets.Count
        Sheets(k).Copy After:=classeurMaitre.Sheets(classeurMaitre.Sheets.Count)
        classeurMaitre.Sheets(classeurMaitre.Sheets.Count).Name = nf
        Compteur = Compteur + 1