Discussion :

[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.

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

[Patrice740]

Bonjour,

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 :

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
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

[slackuser]

Bonjour,

Merci beaucoup pour tes explications.
Et ton aide!