Ecrire dans une cellule de plusieurs fichiers Excel

Question

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

yg_be · Answer

bonjour,
peut-être commencer ainsi:
https://forums.commentcamarche.net/forum/affich-18105468-vba-excel-liste-les-dossier-d-un-repertoire

pijaku · Answer

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

Ecrire dans une cellule de plusieurs fichiers Excel

2 réponses

Votre réponse

Discussions similaires

Newsletters