Bonjour,
J'ai essayé d'utiliser le code suivant mais en vain
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
J'ai essayé d'utiliser le code suivant mais en vain
Code:
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