Ecrire dans une cellule de plusieurs fichiers Excel
Fermé
mel.crdr
-
17 mars 2021 à 11:44
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 - 17 mars 2021 à 16:59
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 - 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
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
A voir également:
- Ecrire dans une cellule de plusieurs fichiers Excel
- Aller à la ligne dans une cellule excel - Guide
- Formule excel pour additionner plusieurs cellules - Guide
- Excel cellule couleur si condition texte - Guide
- Liste déroulante excel - Guide
- Proteger cellule excel - Guide
2 réponses
yg_be
Messages postés
23476
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
20 février 2025
Ambassadeur
1 568
17 mars 2021 à 13:18
17 mars 2021 à 13:18
bonjour,
peut-être commencer ainsi:
https://forums.commentcamarche.net/forum/affich-18105468-vba-excel-liste-les-dossier-d-un-repertoire
peut-être commencer ainsi:
https://forums.commentcamarche.net/forum/affich-18105468-vba-excel-liste-les-dossier-d-un-repertoire
pijaku
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
4 janvier 2024
2 754
17 mars 2021 à 16:59
17 mars 2021 à 16:59
Bonjour,
Ou alors, avec Dir (sans doute plus simple) :
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