Bonjour à tous
Voici j'ai récupéré une macro qui me permet de recopier les données de plusieurs fichiers pour les regrouper en un seul.
Mon souci est qu'il me recopie les formules d'où erreur (#REF!) et ne me retransmets pas les résultats des formules.
Peut-être que quelqu'un connait la solution.
Voici la macro
Sub recup()
Range("b4").Select 'sélectionner la cellule de début
Chemin = "D:\cELINE HONORAIRES\Honoraires\Bellegarde\mensuel\" '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("Donnée").Copy
ThisWorkbook.Activate
ActiveSheet.Paste
Windows(Fichier).Activate
Application.CutCopyMode = False
ActiveWorkbook.Close savechanges:=False
ThisWorkbook.Activate
Range("b65536").End(xlUp).Offset(1, 0).Select
Fichier = Dir ' Fichier suivant
Loop
End Sub
Merci d'avance.
Voici j'ai récupéré une macro qui me permet de recopier les données de plusieurs fichiers pour les regrouper en un seul.
Mon souci est qu'il me recopie les formules d'où erreur (#REF!) et ne me retransmets pas les résultats des formules.
Peut-être que quelqu'un connait la solution.
Voici la macro
Sub recup()
Range("b4").Select 'sélectionner la cellule de début
Chemin = "D:\cELINE HONORAIRES\Honoraires\Bellegarde\mensuel\" '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("Donnée").Copy
ThisWorkbook.Activate
ActiveSheet.Paste
Windows(Fichier).Activate
Application.CutCopyMode = False
ActiveWorkbook.Close savechanges:=False
ThisWorkbook.Activate
Range("b65536").End(xlUp).Offset(1, 0).Select
Fichier = Dir ' Fichier suivant
Loop
End Sub
Merci d'avance.