Bonjours j'aimerai executé une macro qui recupère le nom de chaque onglet et créer une colonne avec . J'ai fait ce code mais celui ci ne marche pas :/ vous avez une idée de comment l'amélioré ?
Code:
Sub test()
Dim wb As Workbook
For Each wb In Workbooks
If wb.Name Like "NomClasseur*" Then
Dim nom As String
nom = wb.ActiveSheet.Name
Columns("C:C").Insert Shift:=xlToRight
Range("C1").FormulaR1C1 = nom
Range("C2:C" & Range("A65536").End(xlUp).Row).Value = wb.ActiveSheet.Name
End If
Next wb
End Sub