Ecrire dans une cellule de plusieurs fichiers Excel

mel.crdr -  
pijaku Messages postés 12263 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

Réponse 1 / 2
yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention   Ambassadeur 1 584
 
bonjour,
peut-être commencer ainsi:
https://forums.commentcamarche.net/forum/affich-18105468-vba-excel-liste-les-dossier-d-un-repertoire
0
Réponse 2 / 2
pijaku Messages postés 12263 Date d'inscription   Statut Modérateur Dernière intervention   2 761
 
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