Dépassement de capacité (erreur 6)

Bonjour à vous,

Je viens d'intégrer une entreprise depuis peu et une personne à besoin d'aide pour résoudre un gros problème qui l'a bloque. (Une macro créée par quelqu'un qui est ensuite partie.)

Cette macro doit récupérer un nombre de fichier chaque semaines. Sauf que depuis 3 semaines environ, elle bug avec cette ligne dans le débogueur :

Chemin_Repertoire_Parent = Left(Chemin_Repertoire_Parent, InStr(1, Chemin_Repertoire_Parent, "\" & Tab_Info_Structure_Fichier(i).Info_Repertoire.Nom_Repertoire_Parent) - 1)

Quelqu'un pourrait avec une idée de ce qu'il se passe ?

J'offre le champagne si vous voulez

Bonne journée à vous tous

Bonjour,

Très difficile sans avoir le fichier contenant la macro.

Si vous ne pouvez pas, juste avant cette ligne d'instruction, il faudrait insérer la ligne suivante, exécuter la macro et nous dire ce qu'elle vous affiche :

Msgbox Tab_Info_Structure_Fichier(i).Info_Repertoire.Nom_Repertoire_Parent : end

bonjour

re,

j'ajouterai 2 lignes juste en face pour voir s'il y a quelque part un problème

msgbox Chemin_Repertoire_Parent

msgbox Tab_Info_Structure_Fichier(i).Info_Repertoire.Nom_Repertoire_Parent

edit : Optimix, même idée

Bonjour à tout les deux,

Excusez moi je débute sur le forum.

Enfaite c'est cette partie du code qui gène sur l'ordinateur en question (C'est la ligne entre [ ] qui plante.

Le but de la manipulation est de récupérer un nombre important +30 000 dans une fichier....Tout fonctionnait jusqu'a peu et maintenant plus rien...

Biensur, je ne peux pas partager le fichier.

Merci

   'Liste Des Fichiers Trouvés dans le "Chemin_Repertoire_Source "
    '--------------------------------------'
            'Modifie - Tab_Info_Structure_Fichier()
            '        - Nbr_Fichier_Trouve
    [.Lister_Fichier_Dans_Repertoire Chemin_Repertoire_Source, Tab_Info_Structure_Fichier(), Nbr_Fichier_Trouve, False ]
End With 'oObjClasse_Biblio_Utile
Debug.Print Nbr_Fichier_Trouve
'--------------------------------------'
' VERIFICATION ET MODIFICATION DES EXTENSIONS DES IMAGES
'--------------------------------------'
'A REMETTRE QUAND ON VEUT 20/10/2022
If Activer_Modification_Extension_Fichier = True Then
    Verification_Extension_Fichier Tab_Info_Structure_Fichier

Bonjour,

Et meilleurs vœux à tout le monde.

Je pense qu'il serait plus intéressant de regarder les déclarations de variable

Dim Variable As ??????

Peut-être une variable en Integer qui mériterait de passer en Long

Peut-être?

Meilleur voeux a vous aussi.

Voici ce que j'ai trouvé au niveau des dim...j'ai essayer de changer certains "Long" en "Integer" mais on passe à une autre erreur donc je sais pas trop....

Merci

Dim oObjClasse_Biblio_Utile         As New cClass_Biblio_Utile
Dim Feuille_Destination             As Worksheet
Dim Feuille_Archive                 As Worksheet
Dim Chemin_Repertoire_Source        As String
Dim Tab_Info_Structure_Fichier()    As Strut_Info_Fichier
Dim Nbr_Fichier_Trouve              As Long
Dim i                               As Long
Dim Message_A_Afficher              As String
'
Dim Chemin_Fichier_Liste            As String
Dim Num_Fichier                     As Integer 'Ecriture dans fichier Texte
Dim Nom_Repertoire_Source           As String
Dim nom_Repertoire_Image            As String
'
Dim Chemin_Repertoire_Parent        As String 'Variable intermediaire
Dim Struc_Info_Image()              As Strut_Pr_Info_Image
'
Dim Plage_Banque_Image              As Range
Dim Nbr_Ligne_Destination           As Long
Dim Nbr_Colonne_Destination         As Long
Dim Mem_Chemin_Source               As String

Re-,

Non, c'est l'inverse, passer les Integer en Long, pour voir

Après, on peut voir qu'il y a des classes perso, donc sans fichier, impossible de traiter ces variables...

Regarde dans ce tuto, un petit cours sur les variables

Autrement, le but de la macro, c'est bien d'importer des données?

Il existe un outil hyper puissant pour ce faire, et nativement installé dans la version Excel utilisée (à priori 365???) : Power Query

Plus de soucis de variables, et cet outil permet d'importer, traiter et restituer des données externes (un petit aperçu sous ce lien)

A voir?

Si vous ne pouvez pas faire ce qu'on vous demande et ne pouvez pas rendre anonyme les fichiers qui vous posent problème pour pouvoir les mettre en ligne, je vois mal comment on pourrait vous aider.

Vérifiez tout de même que la structure du type Strut_Info_Fichier correspond bien à celle du fichier qui provoque l'erreur.