workbooks.open crash excel

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:

---

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.

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:

---

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

---

?