Bonjour

je ne suis pas du tout experte en VBA, mais j'ai voulu m'y mettre et réaliser une synthese de tableau excel dans un seul tableau. J'ai classé l'ensemble des fichiers dans suivi projet.
Voici la macro que j'ai crée (inspirée d'un autre site), mais il y une erreur d'execution 1004 qui s'affiche lorsque que j'arrive à "Workbooks.Open Suiviprojetpersonne", il est marqué ne trouve pas le fichier. Bizarrement j'avais fait un test auparavant et ca avait marché et la maintenant il bug.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Sub CreationSynthese()
    Range("B1") = "Projet"
    Range("C1") = "Phase developpement"
    Range("D1") = "Phase industrielle"
    Range("E1") = "Phase lancement"
 
        'Tous les fichiers
    ChDir "\\172.22.1.15\commun\R&D\09 - Documents modèles\Suivi Projet"
    Suiviprojetpersonne = Dir("\\172.22.1.15\commun\R&D\09 - Documents modèles\Suivi Projet\*.xlsx")
    While Len(Suiviprojetpersonne) > 0
        Workbooks.Open Suiviprojetpersonne
        Workbooks(Suiviprojetpersonne).Sheets("Feuil1").Range("A2:E" & ActiveSheet.UsedRange.Rows.Count).Copy
        Workbooks("synthese.xlsm").Activate
        DebutNomFichier = ActiveSheet.UsedRange.Rows.Count + 1
        Range("B" & ActiveSheet.UsedRange.Rows.Count + 1).Select
        Workbooks("synthese.xlsm").Sheets("Feuil1").Select
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        Range("A" & DebutNomFichier & ":A" & ActiveSheet.UsedRange.Rows.Count) = Suiviprojetpersonne
        Workbooks(Suiviprojetpersonne).Close
        Suiviprojetpersonne = Dir
    Wend
 
    Columns("A:A").Replace ".xlsx", ""
    Cells.EntireColumn.AutoFit
Merci pour votre aide