Excel traitement par lot de fichiers

Bonjour,
je suis en train de faire des tests pour un traitement par lot de fichier .xlsx
Les fichiers semblent bien d'ouvrir à la suite, mais rien ne s'écrit. ici je veux juste ecrire un "hello world"
Est-ce que quelqu'un sait ou est l'erreur ? merci d'avance.

voici le code

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

Sub EditionL()   Dim repertoire As String Dim wbook As Workbook repertoire = "C:\Users\TOTO\"   unFichier = Dir(repertoire & "*.xlsx") While unFichier <> "" Set wbook = Workbooks.Open(repertoire & unFichier, , True)   'traitement debut : Worksheets("Feuil1").Activate Worksheets("Feuil1").Range("A1") = "Hello World" 'traitement fin.   wbook.Close False unFichier = Dir   Wend End Sub

---

Bonjour,

Citation:

---

Envoyé par slackuser

Bonjour,
je suis en train de faire des tests pour un traitement par lot de fichier .xlsx
Les fichiers semblent bien d'ouvrir à la suite, mais rien ne s'écrit. ici je veux juste ecrire un "hello world"
Est-ce que quelqu'un sait ou est l'erreur ? merci d'avance.

---

L'erreur c'est de ne pas enregistrer le fichier modifié lors de sa fermeture (.Close False).

Ceci dit :
- il est inutile d'activer une feuille pour la modifier.
- au lieu de désigner la feuille par un nom qui n'existe peut-être pas ("Feuil1"), il est préférable de la désigner par son numéro d'index.
- dans un environnement multi-fichiers il vaut mieux désigner systématiquement le classeur (wbook.) auquel se rattache une feuille.
- il est aussi conseillé de précise la propriété (.Value) sur laquelle on veut agir.
- mettre Option Explicit en début de module évite d'oublier la déclaration de certains variables.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Option Explicit Sub EditionL() Dim repertoire As String Dim unFichier As String Dim wbook As Workbook   repertoire = "C:\Users\TOTO\" unFichier = Dir(repertoire & "*.xlsx") While unFichier <> "" Set wbook = Workbooks.Open(repertoire & unFichier, , True) wbook.Worksheets(1).Range("A1").Value = "Hello World" wbook.Close True unFichier = Dir Wend   End Sub

---

Bonjour,

Merci beaucoup pour tes explications.
Et ton aide!