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 15 mars 2023 - 17 mars 2021 à 16:59
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 15 mars 2023 - 17 mars 2021 à 16:59
A voir également:
- Ecrire dans une cellule de plusieurs fichiers Excel
- Liste déroulante excel - Guide
- Formule excel - Guide
- Wetransfer gratuit fichiers lourd - Guide
- Aller à la ligne dans une cellule excel - Guide
- Excel colorer une cellule sous condition d'une autre cellule ✓ - Forum Excel
2 réponses
yg_be
Messages postés
21303
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
18 mars 2023
1 326
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
15 mars 2023
2 712
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