Voilà, j'aimerai insérer une ligne dans chaque fichier d'un dossier.
Je pense ne pas en être très loin car pour le moment le code insère des lignes que dans le fichier d'où je lance la macro.
Par exemple: j'ai 10 fichiers dans mon dossier, il va m'insérer 10 lignes dans mon fichier d'où je lance la macro alors que je voudrais qu'il insère qu'une seule ligne dans tous les fichiers du dossier !
Merci de votre aide !
Je pense ne pas en être très loin car pour le moment le code insère des lignes que dans le fichier d'où je lance la macro.
Par exemple: j'ai 10 fichiers dans mon dossier, il va m'insérer 10 lignes dans mon fichier d'où je lance la macro alors que je voudrais qu'il insère qu'une seule ligne dans tous les fichiers du dossier !
Code:
Option Explicit
Sub Macro()
Dim chem As String
Dim fs, d, f1, fd
Dim cl As Workbook
Dim cel As Range
chem = ThisWorkbook.Path & "\" 'définit le chemin, ici c'est le dossier courant
Set fs = CreateObject("Scripting.FileSystemObject") 'définit la variable fs (Fichiers Système)
Set d = fs.GetFolder(chem) 'definit la variable d (dossier)
Set fd = d.Files 'définit la variable fd (Fichiers du Dossier)
For Each f1 In fd 'boucle sur tous les fichier du dossier
If f1.Name <> "Decleor - TOTAL.xls" Then
Workbooks.Open chem & f1.Name
End If
Next f1
For Each cl In ThisWorkbook
Rows(10).Insert
Next cl
For Each cl In Workbooks
If cl.Name <> ThisWorkbook.Name Then cl.Close SaveChanges:=True
Next cl
End Sub
Merci de votre aide !