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 : Sélectionner tout - Visualiser dans une fenêtre à part
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