XL 2013 Consolidation de plusieurs classeurs

[sr94]

Bonjour,

J'ai essayé d'utiliser le code suivant mais en vain

Sub consolide()
  ChDir ActiveWorkbook.Path
  Set classeurMaitre = ActiveWorkbook

  compteur = 1
  nf = Dir("*.xls")
  Do While nf <> ""
    If nf <> classeurMaitre.Name Then
      Workbooks.Open Filename:=nf
      With Workbooks(nf)
      For k = 1 To .Sheets.Count
        .Sheets(k).Copy After:=classeurMaitre.Sheets(classeurMaitre.Sheets.Count)
        classeurMaitre.Sheets(classeurMaitre.Sheets.Count).Name = "Mapage" & compteur
        compteur = compteur + 1
        
      Next k
      .Close False
      End With
    End If
    nf = Dir
  Loop
End Sub

Je souhaite consolider en un seul classeur tous les classeurs du répertoire où se trouve le fichier avec cette macro. Tous mes fichiers ont un seul onglet, et je souhaite avoir un onglet par classeur. (par exemple 10 classeurs= 10 onglets).

Le code ci-dessus me consolide un tas de classeurs qui ne sont pas dans le répertoire de la macro, que faut-il modifier ? par ailleurs je souhaiterai que chaque onglet prenne le nom du classeur.

Merci
Sandrine

 

[sr94]

Re : Consolidation de plusieurs classeurs

si je mets le code suivant c'est ok

classeurMaitre.SaveAs ThisWorkbook.Path & "\" & "test.xlsx", FileFormat:=51

par contre avec le suivant j'ai une erreur, en fait le nom du fichier doit être le nom du répertoire où se trouve la macro et les fichiers à consolider :

classeurMaitre.SaveAs ThisWorkbook.Path & "\" & ThisWorkbook.Path & ".xlsx", FileFormat:=51

 

[Pierrot93]

Re : Consolidation de plusieurs classeurs

Re,

dans le code qui plante tu as 2 fois "ThisWorkbook.Path " ... sans doute cela non...

 

[sr94]

Re : Consolidation de plusieurs classeurs

oui parce que le fichier doit prendre le nom du dossier ... et se trouver dans ce dossier ...

 

[Pierrot93]

Re : Consolidation de plusieurs classeurs

Re, oui mais attention, ton "path" commence par c:\ et les : pas terrible dans le nom d'un fichier....

 

[sr94]

Re : Consolidation de plusieurs classeurs

j'ai trouvé un code sur internet qui a l'air de fonctionner et me permet de récupérer le nom du répertoire :

Sub consolide()
Dim tablo() As String
tablo() = Split(ActiveWorkbook.Path, "\")
Dossier = tablo(UBound(tablo))
ChDir ActiveWorkbook.Path
  Set classeurMaitre = ActiveWorkbook
  sup
  compteur = 1
  nf = Dir(ThisWorkbook.Path & "\*.xls")
  Do While nf <> ""
    If nf <> classeurMaitre.Name Then
    Workbooks.Open Filename:=ActiveWorkbook.Path & "\" & nf
    For k = 1 To Sheets.Count
        Sheets(k).Copy After:=classeurMaitre.Sheets(classeurMaitre.Sheets.Count)
        classeurMaitre.Sheets(classeurMaitre.Sheets.Count).Name = Mid(nf, 1, Len(nf) - 13)
        compteur = compteur + 1
      Next k
      Workbooks(nf).Close False
    End If
    nf = Dir
  Loop
  classeurMaitre.SaveAs ThisWorkbook.Path & "\" & Dossier]& ".xlsx", FileFormat:=51
End Sub

 

[Pierrot93]

Re : Consolidation de plusieurs classeurs

Re,

regarde peut être aussi ceci :

With ThisWorkbook
    classeurMaitre.SaveAs .Path & "\" & Mid(.Path, InStrRev(.Path, "\") + 1), FileFormat:=51
End With

 

[sr94]

Re : Consolidation de plusieurs classeurs

non ça me met une erreur sur.path

 

[Pierrot93]

Re : Consolidation de plusieurs classeurs

Re,

AArf fonctionne pourtant chez moi...

 

[sr94]

Re : Consolidation de plusieurs classeurs

bon c'est pas grave, ça marche quand même avec le code que j'ai trouvé, je regarderai un peu plus tard quand même

Merci beaucoup !