XL 2013 Ecrire dans une cellule de plusieurs fichiers Excel

mel.crdr1 à dit:

Bonjour,

J'ai besoin de votre aide.

J'ai un répertoire de 55 fichiers excel, et j'aimerais inscrire un même mot dans une cellule de chaque fichier du répertoire. Sachant que chaque fichier à un nom différent et chaque feuille 1 ont le même nom que les fichiers (ex : nom de fichier = 1.1 / et feuille 1 = 1.1)

Merci beaucoup pour votre aide, je suis novice

Cliquez pour agrandir...

Sub incrit()
    Dim Repertoire$, Fichier$, LeMot$
    Application.ScreenUpdating = False
    Repertoire = "D:\Mes documents\toto\"  'A adapter
    Fichier = Dir(Repertoire & "*.xl*")
    LeMot = "Hello" 'A adapter
    Do While Fichier <> ""
        If Fichier <> ThisWorkbook.Name Then
            Workbooks.Open Filename:=Repertoire & Fichier
            Sheets(1).[a1].Value = LeMot
            Workbooks(Fichier).Close True
        End If
        Fichier = Dir
    Loop
End Sub