Ecrire dans une cellule de plusieurs fichiers Excel

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,

Voici un essai où il reste à définir la façon d'affecter une valeur aux 3 variables (Mot, RefCellule et Repertoire) :

Sub Lancer()

Mot = "???" '<<<< A DEFINIR
RefCellule = "???" '<<<< A DEFINIR
Repertoire = "????\" '<<<< A DEFINIR

fichier = dir(Repertoire & "*.xls*")
while fichier <> ""
    chemin = Repertoire & fichier
    with workbooks.open(chemin)
        .sheets(1).range(RefCellule).value = Mot
        .close true
    end with
    fichier = dir
wend

end sub

Cdlt,

Je vous remercie ! ça fonctionne !!!