Bonjour Jeannot, le Forum
J'ai une macro qui fait ça:
Dans une feuille j'ai mis une plage de nom des nouvelles feuilles, une autre plage pour le chemin des classeurs à copier et une autre pour le nom des nouvelles feuilles
Sub Insérer_Nommer_Copier_Coller()
'Cette fonction va insérer les nouvelles feuilles dans le classeurs AnalyseDePerformance
'Va les nommer selon la nomenclature déterminée dans MAJ_donnees de AnalyseDePerformance
'Va copier le contenu de la feuille source et va le coller dans la nouvelle feuille de AnalyseDePerformance
Dim i As Integer, Plage As Range, PlageChemin As Range, X As String, a As String, sourceRange As Workbook, destRang As Workbook
Set Plage = Worksheets("aa_MAJ_Donnees").Range("B45:b54") 'récupère les noms des feulles à créer
Set PlageChemin = Worksheets("aa_MAJ_Donnees").Range("k45:k54") ' récupère les chemins des classeurs ou il faudra extraire les données
Set Page = Worksheets("aa_MAJ_Donnees").Range("o45
54") ' récupère le nom des feuilles à copier/coller
For i = Plage.Cells.Count To 1 Step -1
X = (Plage.Cells(i))
'MsgBox x
Sheets.Add before:=ActiveSheet '
ActiveSheet.Name = X
a = (Page.Cells(i))
'MsgBox a
Y = PlageChemin.Cells(i)
'MsgBox y
Workbooks.Open (Y)
z = X & ".xls"
'MsgBox z
Sheets(a).UsedRange.Copy
Workbooks("AnalyseDePerformance.xls").Activate
Sheets(X).Range("A1").PasteSpecial Paste:=xlValues
Vide_Presse_Papier
Workbooks(z).Save
Workbooks(z).Close
Worksheets("aa_Maj_donnees").Activate
Next i
End Sub
J'espère que ça peut t'être utile
a+
Papirus
