XL 2013 Ecrire dans une cellule de plusieurs fichiers Excel

[mel.crdr1]

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

 

[Jacky67]

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

Bonjour,
Ceci inscrit "Hello" dans chaque fichier contenu dans "Repertoire" en Sheets("1.1").[a1]
Adapter "Repertoire" au chemin réel
Adapter "LeMot" au mot à inscrire
Adapter la cellule de destination==> "A1" dans l'exemple
Ce code lancé dans un module standard devrait faire

***Oupss!! Je n'ai pas prêté attention que la feuille aussi change de nom, si c'est toujours la feuille 1,
le code modifié ci-dessous

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