Erreur 76

Bonjour,

L'exécution de cette macro me donne un erreur 76 m'affiche "path not found" alors que j'ai bien vérifier les chemins de mes répertoires et mes fichiers (je travaille sur excel 2013).

Merci de m'aider.

Sub chercheFichiersFermes()
Dim X As Integer, nbFichiers As Integer, z As Integer
Dim Tableau() As String
Dim Direction As String
Application.ScreenUpdating = False 'masque les rafraîchissements d'écran
Direction = dir("C:\Users\Dream\Desktop\Nouveau dossier\*.xls") 'adapter chemin repertoire et ajouter "\*.xls" pour dire tout les fichiers("C:\Users\Dream\Desktop\Nouveau dossier")
Dim val As String

'compter le nombre de fichier
Do While Len(Direction) > 0
nbFichiers = nbFichiers + 1
'creation d'un tableau selon le nombre de fichier
ReDim Preserve Tableau(1 To nbFichiers)
Tableau(nbFichiers) = Direction
Direction = dir()
Loop
z = 1
If nbFichiers > 0 Then
For X = 1 To (nbFichiers - 1)
If Tableau(X) <> ThisWorkbook.Name Then
z = z + 1
'copier les données et les remplir dans le tableau

With ActiveSheet.Cells(z, 1) ' K7 est l'article coller dans A
.Formula = "='C:\Users\Dream\Desktop\Nouveau dossier\[" & Tableau(X) & "]Débit" & "'!" & "K7" 'adapter chemin repertoire
.Value = .Value
End With

With ActiveSheet.Cells(z, 2) ' O2 est le MO coller dans B
.Formula = "='C:\Users\Dream\Desktop\Nouveau dossier\[" & Tableau(X) & "]Débit" & "'!" & "O2" 'adapter chemin repertoire
.Value = .Value
End With

With ActiveSheet.Cells(z, 3) 'D14 est le plan coller dans C
.Formula = "='C:\Users\Dream\Desktop\Nouveau dossier\[" & Tableau(X) & "]Débit" & "'!" & "D14" 'adapter chemin repertoire
.Value = .Value

End With

With ActiveSheet.Cells(z, 4) ' K16 est l'epaisseur coller dans D
.Formula = "='C:\Users\Dream\Desktop\Nouveau dossier\[" & Tableau(X) & "]Moulage" & "'!" & "K16" 'adapter chemin repertoire
val = .Value
.Formula = " " + val
.Value = .Value

End With

With ActiveSheet.Cells(z, 5) ' K17 est le cadre coller dans E
.Formula = "='C:\Users\Dream\Desktop\Nouveau dossier\[" & Tableau(X) & "]Moulage" & "'!" & "K17" 'adapter chemin repertoire
.Value = .Value
End With

With ActiveSheet.Cells(z, 6) ' D18 est la moule coller dans F
.Formula = "='C:\Users\Dream\Desktop\Nouveau dossier\[" & Tableau(X) & "]Moulage" & "'!" & "D18" 'adapter chemin repertoire
.Value = .Value
End With

With ActiveSheet.Cells(z, 7) ' E18 est le gabarit coller dans H
.Formula = "='C:\Users\Dream\Desktop\Nouveau dossier\[" & Tableau(X) & "]Détourage" & "'!" & "E18" 'adapter chemin repertoire
.Value = .Value
End With

With ActiveSheet.Cells(z, 8) ' E22 est le N° de toupillage main s'il y a si non 0 coller dans J
.Formula = "='C:\Users\Dream\Desktop\Nouveau dossier\[" & Tableau(X) & "]Ajustage" & "'!" & "E22" 'adapter chemin repertoire
.Value = .Value
End With
With ActiveSheet.Cells(z, 9) ' E24 est le N° de perçage coller dans K
.Formula = "='C:\Users\Dream\Desktop\Nouveau dossier\[" & Tableau(X) & "]Ajustage" & "'!" & "E24" 'adapter chemin repertoire
.Value = .Value
End With

With ActiveSheet.Cells(z, 10) ' E26 est le N° de la position/collage coller dans L
.Formula = "='C:\Users\Dream\Desktop\Nouveau dossier\[" & Tableau(X) & "]Ajustage" & "'!" & "E26" 'adapter chemin repertoire
.Value = .Value
End With

With ActiveSheet.Cells(z, 11) ' E28 esta le N° de poinçonnage coller dans M
.Formula = "='C:\Users\Dream\Desktop\Nouveau dossier\[" & Tableau(X) & "]Ajustage" & "'!" & "E28" 'adapter chemin repertoire
.Value = .Value
End With

End If
Next X
End If
'ouvrir les fichiers pour copier les données
Dim i As Long
Dim Recherche As ClFileSearch.ClasseFileSearch
Set Recherche = ClFileSearch.Nouvelle_Recherche
With Recherche
 'Définit le répertoire de recherche
    .FolderPath = "C:\Users\Dream\Desktop\Nouveau dossier\*.xls" 'adapter chemin repertoire et ajouter "\*.xls" pour dire tout les fichiers
     'Définit la recherche dans les sous dossiers (True / False)
    .SubFolders = False
    'Option de tri
    .SortBy = sort_Name
    strFilesType = msoFileTypeExcelWorkbooks
     'Option pour rechercher un type de fichier
    .Extension = "*.xls"
    'Execute la recherche
    If .Execute > 0 Then
    'Boucle sur le tableau pour afficher le résultat de la recherche
        For i = 1 To .FoundFilesCount
            Range("M" & i + 1).Value = .Files(i).strFileType
        Next i
    End If
End With
Application.ScreenUpdating = True 'affiche les rafraîchissements d'écran
End Sub

bonjour

peut-être à cause des espaces dans le chemin (voir ton Nouveau dossier)

solutions ici

http://visualbasic.ittoolbox.com/groups/technical-functional/vb-access-l/space-in-the-path-of-the-shell-function-in-vba-1329136

Bonjour,

Merci, mais l'erreur n'est pas à cause de l'espace, j'ai essayé de renommer le dossier sans faire des espaces et corrigé le chemin le même erreur 76 .

à quel endroit de la macro ?

(si besoin mettre des points d'arrêt pour trouver)