Ecrire dans une cellule de plusieurs fichiers Excel

Fermé
mel.crdr - 17 mars 2021 à 11:44
pijaku Messages postés 12259 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 9 août 2022 - 17 mars 2021 à 16:59
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

2 réponses

yg_be Messages postés 20319 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 6 octobre 2022 1 233
17 mars 2021 à 13:18
0
pijaku Messages postés 12259 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 9 août 2022 2 703
17 mars 2021 à 16:59
Bonjour,

Ou alors, avec Dir (sans doute plus simple) :

Sub BoucleDir()
Dim Chemin As String, Fichier As String, Extens As String, Wb As Workbook
    Chemin = "C:\Users\Desktop\" 'ICI ADAPTER LE CHEMIN
    Extens = "*.xls*"
    Fichier = Dir(Chemin & Extens)
    If Fichier <> vbNullString Then
        Do
            Set Wb = Workbooks.Open(Chemin & Fichier)
            With Wb.Worksheets(Wb.Name)
                .Range("A1").Value = "UN MEME MOT" 'ICI ADAPTER A1 et "UN MEME MOT"
            End With
            Wb.Close True
            Fichier = Dir
        Loop While Fichier <> vbNullString
    End If
End Sub

0