Ecrire dans une cellule de plusieurs fichiers Excel

mel.crdr -  
pijaku Messages postés 13513 Date d'inscription   Statut Modérateur Dernière intervention   -
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

  2.
    pijaku Messages postés 13513 Date d'inscription   Statut Modérateur Dernière intervention   2 773
     
    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

Discussions similaires

Excel formule : savoir si une cellule contient partie texte
plunderer007 -
francois -

14 réponses