Discussion :

[Crysta17]

Bonjour à tous,

Je me permets de poster ce message car j'ai un petit problème dans ma macro VBA. Je m'explique. J'ai une vingtaine de fichiers Excel, comprenant tous plusieurs onglet de la même forme, c'est-à-dire avec un tableau de la même structure. Je me dois de les regrouper dans un seul grand tableau commun sur un fichier excel Récapitulatif.
J'ai donc écrit le code ci-dessous après de nombreuses recherches et questions (je débute en VBA, je suis en stage) :

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()
 Dim Wk As Workbook
 Dim Ws
 Dim collectivite As Range
 
    ' Parcours de tous les fichiers
    ' -----------------------------
 
    ChDir "I:\Volumes de données" 'Chemin d'accès au répértoire
    LesFichiers = Dir("I:\Volumes de données\*.xls") 'Récupère le premier fichier
    While Len(LesFichiers) > 0 'Tant que le nom du ficher a plus de 0 caractères
        Workbooks.Open LesFichiers
        Set Wk = Workbooks.Open(LesFichiers)
        For Each Ws In Wk.Worksheets
            collectivite = "mairie"
            AvantDerniereLigne = Ws.UsedRange.Rows.Count
            DerLigRecap = WsRecap.UsedRange.Rows.Count + 1
            Ws.Range("A15:W" & AvantDerniereLigne).Copy WsRecap.Range("A" & DerLigRecap)
            WsRecap.Range("A2:A" & WsRecap.UsedRange.Rows.Count) = collectivite
            Wk.Close
            Set Wk = Nothing
         Next Ws
    Wend
 
End Sub

Seulement à l'exécution de ce programme, le débogueur m'affiche : Erreur d'exécution 1004, fichier untel.xls introuvable. Pourtant mon fichier est bien dans le bon dossier. J'ai alors tenté de le supprimer pour appliquer mon programme sur mes autres fichiers, et l'erreur persiste avec le fichier suivant... J'ai cherché la solution sur plusieurs forums, mais rien ne marche, ou alors je ne comprends pas la réponse.
Quelqu'un pourrait-il m'en apprendre un peu plus sur cette erreur et pourquoi pas m'aider à la résoudre ?

En vous remerciant par avance,

Crysta

[Invité]

la fonction Dir("c:\MyRep\*.Xls") ne retourne que le nom du fichier!

Code Exemple :

Sélectionner tout - Visualiser dans une fenêtre à part

Fichier= dir("c:\myrep\*.xls") 'Exemple Fichier1.Xls; Fichier2.Xls dir ne retourne que   Fichier1.Xls et Fichier2.Xls

de plus tu tentes d'ouvrir 2 fois le même fichier!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Workbooks.Open LesFichiers
Set Wk = Workbooks.Open(LesFichiers)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Rep="I:\Volumes de données\"
LesFichiers = Dir(Rep & "*.xls") 'Récupère le premier fichier
While LesFichiers<>"" 'Tant que le nom du ficher a plus de 0 caractères
   Set Wk = Workbooks.Open(Rep  & LesFichiers)
   'Code
   Wk.close false
   set Wk=Nothing
  LesFichiers = Dir
wend