Bonjour à tous,
Je souhaiterai récupérer dans un seul document des données de plusieurs fichiers (qui ont la même structure) situés dans un seul et même dossier (je précise que ces données doivent être mises les unes après les autres).
Pour cela j'ai cherché un peu, à la fois sur ce forum mais également sur internet, et ai trouvé une macro simple qui me semblait bonne.
Malheureusement, cette macro s'intérompt après Range("Nom").Copy sans que j'en comprenne la cause
Le message d'erreur est "erreur d'execution '1004': Erreur définie par l'application ou par l'objet"
la macro semble ouvrir le premier fichier mais stop net.
Pour plus de précision j'ai inséré en pièce jointe le fichier de synthèse dans lequel figure la macro ainsi que 3 fichiers avec les données qui se trouvent dans le chemin : C:\Documents and Settings\test macro\dossier
Merci à la bonne âme qui offrira un peu de ses lumières au débutant que je suis.
Je souhaiterai récupérer dans un seul document des données de plusieurs fichiers (qui ont la même structure) situés dans un seul et même dossier (je précise que ces données doivent être mises les unes après les autres).
Pour cela j'ai cherché un peu, à la fois sur ce forum mais également sur internet, et ai trouvé une macro simple qui me semblait bonne.
Sub recup()
Range("A1").Select 'sélectionner la cellule de début
Chemin = "C:\Documents and Settings\test macro\dossier\" 'saisir le chemin complet du dossier où se trouvent les fichiers
Fichier = Dir(Chemin & "*.xls") ' Premier fichier
Do While Fichier <> ""
Workbooks.Open Filename:=Chemin & Fichier
Range("Nom").Copy
ThisWorkbook.Activate
ActiveSheet.Paste
Windows(Fichier).Activate
Application.CutCopyMode = False
ActiveWorkbook.Close savechanges:=False
ThisWorkbook.Activate
Range("A65536").End(xlUp).Offset(1, 0).Select
Fichier = Dir ' Fichier suivant
Loop
End Sub
Malheureusement, cette macro s'intérompt après Range("Nom").Copy sans que j'en comprenne la cause
Le message d'erreur est "erreur d'execution '1004': Erreur définie par l'application ou par l'objet"
la macro semble ouvrir le premier fichier mais stop net.
Pour plus de précision j'ai inséré en pièce jointe le fichier de synthèse dans lequel figure la macro ainsi que 3 fichiers avec les données qui se trouvent dans le chemin : C:\Documents and Settings\test macro\dossier
Merci à la bonne âme qui offrira un peu de ses lumières au débutant que je suis.
Pièces jointes
Dernière édition: