Bonjour !

Voici mon problème :

J'ai un dossier contenant plein de fichiers Excel qui contiennent tous plusieurs feuilles.

Il faut que je rajoute une colonne dans chacune des feuilles des fichiers (la colonne A). Puis que dans cette colonne, je rajoute sur chaque ligne le titre du fichier.

Voila ce que j'ai commencé à faire :

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
Sub rajouter_colonne()
 
Dim num_opti As Variant
Dim sh As Variant
 
num_opti = Dir("C:\Users\cboureau\Desktop\Test\" & "*.xlsx")
 
Do While Len(num_opti) > 0
 
    For Each sh In num_opti
 
        Do Until Cells(i + 1, 2).Value = ""
                 Cells(i + 1, 1).Value = num_opti
        Loop
 
    Next sh
 
num_opti = Dir
Loop
 
End Sub
Il me manque juste l'insertion de la colonne et je ne suis absolument pas sur pour le For Each...

Je vous remercie.