Discussion :

[Kestion100]

Bonjour,
J'ai un code qui crée des fichiers Excel à partir d'un fichier xsl en le copiant et le nommant dans un autre répertoire.

Avec un autre code, j'ouvre ces fichier un par un les rempli et les referme.

Ce code fonctionnait depuis de nombreuses années, a fonctionné ce matin à 10H30, j'essaie de le refaire fonctionner à 11H00 et il plante complètement Excel qui se ferme.

Le workooks.open en question:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
Dos = "C:\Users\YYYY\Desktop\XXXX\EXCEL\HISTORIQUES\2024 - 2025\"
 
Fichier = Dir(Dos)
 
 
 
Do While Fichier <> ""
 
Workbooks.Open (Dos & Fichier)
 
Z = PremMin(Fichier)

Quelqu'un a une idée de ce qui se passe?


MERCI BEAUCOUP D'AVANCE.

[Valtrase]

Bonjour,
Il faut prendre le temps de déclarer les variables dans les modules.
Première chose à faire : colle Option Explicit en entête du module pour obliger la déclaration des variables.
Maintenant peut-être en visualisant sur quel fichier cela plante. Mettre un Debug.Print.
Au moment où cela plante vérifier le nom complet du classeur à ouvrir.
Pour ma part je filtrerais les fichiers *.xls

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
    Private Const Directory As String = "C:\Users\YYYY\Desktop\XXXX\EXCEL\HISTORIQUES\2024 - 2025\"
 
    Dim Fichier As String
    Fichier = Dir(Directory & "*.xls*", vbNormal)
    Do While Fichier <> ""
        Workbooks.Open (Directory & Fichier)
 
        ' // Afficher la fenêtre d'execution : CTRL + G
        Debug.Print Directory & Fichier
 
        Dim FirstFile As String
        FirstFile = PremMin(Fichier)
        '...
        '...
    Loop
    '...
    '...

?