Erreur 424 lors de l'ouverture d'un fichier à partir d'un variable

[jbballeyguier]

Bonjour,

j'ai récupéré un bout de macro permettant de scanner une arborescence et de trouver les fichiers présents dans les sous-dossiers.
Je l'ai adaptée afin qu'elle me permette d'ouvrir les fichiers trouvés les uns après les autres.
Elle regarde dans les différents dossiers dont le nom est trouvé dans une colonne de la feuille "Nomenclature" du fichier dans laquelle se trouve la macro.
Cependant la macro s'arrête avec une erreur 424 "Objet requis". Malgré mes recherches je n'arrive pas à trouver la raison de l'erreur...

auriez vous une idée ?

merci d'avance

Sub ListeFic()
    Dim ScanFic As Office.FileSearch
    Dim NomFic  As Variant
    Dim racine As String
    Dim chemin As String

h = 1
j = 1

Set ScanFic = Application.FileSearch
racine = ThisWorkbook.Sheets("Nomenclature").Cells(h, j)
chemin = (ThisWorkbook.Path + "\" + racine)

    With ScanFic
        .NewSearch
        .LookIn = chemin
        .SearchSubFolders = True
        .FileType = msoFileTypeAllFiles
        Nbr = .Execute

        For Each NomFic In .FoundFiles
            Workbook.Open Filename:=(NomFic)
        Next

    End With
End Sub

 

[PascalXLD]

Re : Erreur 424 lors de l'ouverture d'un fichier à partir d'un variable

Bonjour

en VBA ce n'est pas + mais &

 

[vbacrumble]

Re : Erreur 424 lors de l'ouverture d'un fichier à partir d'un variable

Bonjour tous


C'est plutôt ces deux lignes qui m'intriguent, non ?

Sub ListeFic()
Dim ScanFic As Office.FileSearch


Set ScanFic = Application.FileSearch


PS: le + peut aussi servir de caractére de concaténation non ?

 

[jbballeyguier]

Re : Erreur 424 lors de l'ouverture d'un fichier à partir d'un variable

Merci j'ai changé, mais mon problème initial demeure

 

[vbacrumble]

Re : Erreur 424 lors de l'ouverture d'un fichier à partir d'un variable

Re

Tu n'as pas du lire mon message?


Quelle est ta version d'Excel ?

 

[jbballeyguier]

Re : Erreur 424 lors de l'ouverture d'un fichier à partir d'un variable

@vbacrumble

Effectivement je répondais à PascalXLD.

J'ai Excel 2003.

Le debug situe le problème sur cette ligne :

Workbook.Open Filename:=(NomFic)

 

[vbacrumble]

Re : Erreur 424 lors de l'ouverture d'un fichier à partir d'un variable

Re

message édité

 

[jbballeyguier]

Re : Erreur 424 lors de l'ouverture d'un fichier à partir d'un variable

En fait, je crois qu'il est déclaré dans le For Each : il a chercher la valeur dans le résultat de la recherche de fichier.

En debug, lorsque je passe au dessus de la variable, il m'affiche bien un chemin vers un fichier, ce qui prouve que la variable a bien été alimentée.

Le problème est qu'il n'arrive pas utiliser cette valeur pour ouvrir le fichier qui correspond...

 

[vbacrumble]

Re : Erreur 424 lors de l'ouverture d'un fichier à partir d'un variable

Re


Essaie en changeant comme ceci
.SearchSubFolders = False

 

[Pierrot93]

Re : Erreur 424 lors de l'ouverture d'un fichier à partir d'un variable

Bonjour à tous

si tu cherches à ouvrir avec Excel tous les types de fichier, cela ne risque t il pas de boguer ?

.FileType = [B][COLOR="Blue"]msoFileTypeAllFiles[/COLOR][/B]

bon après midi
@+

 

[vbacrumble]

Re : Erreur 424 lors de l'ouverture d'un fichier à partir d'un variable

Bonjour Pierrot93

Bingo !


Je l'avais pas vu cette ligne.

jbballeyguier
Remplace la par celle-ci
.FileType = msoFileTypeExcelWorkbooks

 

[kjin]

Re : Erreur 424 lors de l'ouverture d'un fichier à partir d'un variable

Bonjour,

Sub ListeFic()
    Dim ScanFic As Office.FileSearch
    Dim NomFic  As Variant
    Dim racine As String
    Dim chemin As String

h = 1
j = 1

Set ScanFic = Application.FileSearch
racine = ThisWorkbook.Sheets("Nomenclature").Cells(h, j)
chemin = (ThisWorkbook.Path + "\" + racine)
    With ScanFic
        .NewSearch
        .LookIn = chemin
        .SearchSubFolders = True
        .FileType = msoFileTypeExcelWorkbooks
        .Execute
        For i = 1 To .FoundFiles.Count
            Workbooks.Open .FoundFiles(i)
        Next
    End With
End Sub

A+
kjin

 

[jbballeyguier]

Re : Erreur 424 lors de l'ouverture d'un fichier à partir d'un variable

Merci pour toutes vos réponses !
Voilà ce à quoi j'aboutis grâce à vos conseils :

Sub ListeFic()
    Dim ScanFic As Office.FileSearch
    Dim NomFic As Variant
    Dim racine As String
    Dim chemin As String
    Dim fiche As String
    Dim Ench As String

h = 1
j = 1

Set ScanFic = Application.FileSearch
racine = ThisWorkbook.Sheets("Nomenclature").Cells(h, j)
chemin = (ThisWorkbook.Path & "\" & racine)

    With ScanFic
        .NewSearch
        .LookIn = chemin
        .SearchSubFolders = True
        .FileType = msoFileTypeExcelWorkbooks
        .Execute

        For Each NomFic In .FoundFiles
            Workbooks.Open NomFic
            
            Ench = ActiveWorkbook.Name
                Workbooks(Ench).Activate
                    With Sheets("Feuil1")
                        Range(Cells(3, 1), Cells(j, 14)).Select
                        Selection.Copy
                        ThisWorkbook.Activate
                        Worksheets("INPUT").Activate
                        Range(Cells(ligne, 1), Cells(ligne + j - 2, 14)).Select
                        ActiveSheet.Paste
                        Range(Cells(ligne, 15), Cells(ligne + j - 5, 15)).Value = Ench
                    End With
        Next

    End With
End Sub

Ma macro arrive maintenant à ouvrir les fichiers... mais j'aimerai maintenant traiter les données à l'intérieur.
Rien de bien compliqué en perspective, cependant j'ai une erreur assez bizarre dès que je veux activer le classeur. Jugez plutôt :

"Excel a rencontré une erreur et supprimé une partie de la mise en forme pour éviter d'endommager le classeur. Revérifiez soigneusement votre mise en forme"

Est-ce que vous avez déjà eu cette erreur ? Et si oui, d'où cela vient-il ?

[EDIT] J'ai trouvé : c'était le fichier lui même qui était vérolé