bonjour le forum , quand je lance cette macro depuis mon fichier, il y' a seulement la partie ou la cellule a2 est sélectionné qui s'exécute, ensuite plus rien et pas de message d'erreur.
j'ai changé plusieurs fois le nom et le chemin du dossier source, pour voir si ca pouvait fonctionner avec un autre dossier, mais rien.
sub recup()
Range("A2").Select
'sélectionner la cellule de début
Chemin = "F:\Ancien dossier\abecd" '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
Sheets("Pre recette").Range("A2:q6000").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
j'ai récupéré ce code dans les archives du forum, cette macro devait en principe me servir a copier des données dans une feuille et plage défini de plusieurs fichier excel d'un même répertoire et dossier vers un fichier excel.
Merci pour votre aide.
j'ai changé plusieurs fois le nom et le chemin du dossier source, pour voir si ca pouvait fonctionner avec un autre dossier, mais rien.
sub recup()
Range("A2").Select
'sélectionner la cellule de début
Chemin = "F:\Ancien dossier\abecd" '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
Sheets("Pre recette").Range("A2:q6000").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
j'ai récupéré ce code dans les archives du forum, cette macro devait en principe me servir a copier des données dans une feuille et plage défini de plusieurs fichier excel d'un même répertoire et dossier vers un fichier excel.
Merci pour votre aide.