Macro pour modifier toute une série de fichiers

[guenfood]

Bonjour,

Je cherche à créer une macro qui me permettrait de mettre à jour toute une série de fichiers d'un répertoire donné.

Exemple : Je souhaite que dans tous les fichiers excel compris dans mon dossier C:\Toto, ma macro insère une ligne entre la ligne10 et la 11, et que dans la cellule A11, cela me mette une donnée précise (un nom), en B11 une autre donnée (un numéro de téléphone), et enfin dans la cellule E8, la date du jour de cette mise à jour.

Comment faire ?

Merci par avance.

 

[Staple1600]

Re : Macro pour modifier toute une série de fichiers

Bonsoir



Un exemple si j'ai bien compris ta demande

Sub Mise_ajour_Classeurs()
Dim a As Workbook
Dim Chemin$, Classeur$, MAJ1$, MAJ2
Chemin = "C:\Toto"
Classeur = Dir(Chemin & "\*.xls")
Set a = ThisWorkbook
MAJ1 = a.Sheets(1).[A1]
MAJ2 = a.Sheets(1).[A2]
Do While Classeur <> Empty
    With Workbooks.Open(Chemin & "\" & Classeur)
        With .Sheets(1)
         .Rows(11).Insert
        With .[A11]
        .Value = MAJ1
        .Offset(, 1).Value = MAJ2
         End With
        End With
        .Close True
    End With
    Classeur = Dir
 Loop
End Sub

 

[guenfood]

Re : Macro pour modifier toute une série de fichiers

Merci pour ta réponse.

Je jette un coup d'oeil là-dessus pour voir si ça fonctionne.

 

[guenfood]

Re : Macro pour modifier toute une série de fichiers

Je viens de tester, en apportant quelques modifications.

Ca marche nickel. Merci