Macro : Message d'erreur

[LN1]

Bonjour à tous,

Pourriez-vous me renseigner sur un message d'erreur qui apparait lorsque je souhaite exécuter la macro ci-dessous.
Elle permet d'enregistrer un fichier sous un nom spécifique "Fiche N°..", la macro compte le nombre de fichier excel dans un répertoire pour pouvoir attribuer le bon numéro.

Seulement le message d'erreur suivant apparait: "Erreur d'exécution 6, Dépassement de capacité"
Faut-il que je modifie la macro ?

Merci à tous pour votre aide.
LN



Sub EnrgtNumeroX()
Dim Dossier As Object, Chemin As String, N As Byte
Dim Nom As String, Fiche As String

'Chemin du dossier à analyser
Chemin = "I:\LOGISTIQUE\Bordereau\"
'Attribue une référence d'objet à la variable
Set Dossier = CreateObject("Scripting.FileSystemObject").GetFolder(Chemin)
' Nombre de fichier présents
N = Dossier.Files.Count + 1 --> le message d'erreur apparait à ce moment là
'Nom et Numero à donner au nouveau classeur : N - y
'En cas de y fichiers présents en plus des classeurs "Fichier N° "
Nom = "Fiche N° " & N - 1
'ThisWorkbook.Path permet de recuperer le chemin du classeur actif
Fiche = ThisWorkbook.Path & "\" & Nom
'Enregistrement au format Htm du classeur créé
ActiveWorkbook.SaveAs Filename:=Fiche, FileFormat:=xlNormal
Sheets("Correction").Select
ActiveSheet.Unprotect
ActiveWorkbook.Save

 

[Pierrot93]

Re : Macro : Message d'erreur

Bonjour Ln1

A tout hasard, modifies la ligne de code ci dessous :

N As Byte

par

N As Integer

peut être plus de 255 fichiers dans ton dossier, sinon indiques nous quelle ligne renvoie le message d'erreur, ligne en jaune quand tu es en mode debogage.

bon après midi
@+

 

[LN1]

Re : Macro : Message d'erreur

Merci Pierrot93, j'ai modifié la ligne de code et cela fonctionne parfaitement.
et effectivement je suis déjà à 255 fichiers dans mon répertoire.

Bonne soirée.