Erreur 1004, fichier.xls introuvable

Résolu/Fermé
Crysta17 Messages postés 19 Date d'inscription lundi 7 avril 2014 Statut Membre Dernière intervention 14 avril 2014 - 11 avril 2014 à 14:20
Crysta17 Messages postés 19 Date d'inscription lundi 7 avril 2014 Statut Membre Dernière intervention 14 avril 2014 - 14 avril 2014 à 09:38
Bonjour,

Je souhaite regrouper dans un même fichier Excel le contenu d'une vingtaine d'autres fichiers Excel. Ceux-ci ont tous la même forme, c'est pourquoi je souhaiterai dans un fichier récapitulatif regrouper tous mes tableaux les uns à la suite des autres.

Seulement, toujours la même erreur : "Erreur 1004 : fichier untel.xls introuvable, vérifiriez l'orthographe... ". Malgré mes recherches sur de nombreux forums, je n'arrive pas à la résoudre, et j'ai besoin du fichier récapitulatif au plus vite.

C'est pourquoi je sollicite votre aide !

Je vous montre mon programme, car je pense qu'il s'agit bien d'une erreur de programmation puisque le fichier introuvable et bel et bien au bon endroit, rangé avec les autres....


Sub CreationSynthese()
Dim Wk As Workbook
Dim Ws

' 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
AvantDerniereLigne = ActiveSheet.UsedRange.Rows.Count
Range("A15:W" & AvantDerniereLigne).Copy
Workbooks("Récapitulaif.xlsm").Activate 'Activation du fichier récap
DebutNomFichier = ActiveSheet.UsedRange.Rows.Count + 1
Range("A" & DebutNomFichier).Select
ActiveSheet.Paste
Workbooks(LesFichiers).Close
LesFichiers = Dir 'Passage au fichier suivant
Next Ws
Wend

End Sub

Je vous remercie de votre aide.

Crysta

2 réponses

f894009 Messages postés 17206 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 22 novembre 2024 1 710
Modifié par f894009 le 11/04/2014 à 16:07
Bonjour,

du fait que vous changez de lecteur courant, il faut:
ajoutez
ChDrive "I"
avant
ChDir "I:\Volumes de données" 'Chemin d'accès au répértoire

sinon le lecteur ne change pas, le repertoire non plus

ou

mettez toujours le chemin complet pour
Workbooks.Open "I:\Volumes de données\" & LesFichiers

sans mettre le Chdir
0