Bonjour a tous,
Voila, j'aimerai lors de l'ouverture d'un fichier excel, récupérer les tableaux qui sont compilés dans différents fichiers qui se trouvent dans un dossier qui est toujours au même emplacement.
j'ai donc récupérer une macro, qui normalement fait le job, mais seulement arrivé à la ligne Workbooks.Open ClasseurRegional j'ai une fenêtre de débogage, m'infirmant que le fichier xxx ne peut être trouvés. d'ou ce la peut-il birn venir.
Vos conseils me seront précieux
Voila, j'aimerai lors de l'ouverture d'un fichier excel, récupérer les tableaux qui sont compilés dans différents fichiers qui se trouvent dans un dossier qui est toujours au même emplacement.
j'ai donc récupérer une macro, qui normalement fait le job, mais seulement arrivé à la ligne Workbooks.Open ClasseurRegional j'ai une fenêtre de débogage, m'infirmant que le fichier xxx ne peut être trouvés. d'ou ce la peut-il birn venir.
Vos conseils me seront précieux
HTML:
Sub auto_open()
nom1 = ActiveWorkbook.Name 'nom du fichier en cours
ChDir "E:\Laboratoire commun\Gestion des moules\Blocs\TCD_Year" 'chemin ou se trouve le dossier
ClasseurRegional = Dir("E:\Laboratoire commun\Gestion des moules\Blocs\TCD_Year\*.xlsx") 'lister tous les fichiers excel
While Len(ClasseurRegional) > 0
Workbooks.Open ClasseurRegional 'ouvrir chaque classeur
Range("A3:O" & [A65536].End(xlUp).Row).Copy 'recuperer l'ensemble du tableau
Workbooks(nom1).Activate
DebutNomFichier = ActiveSheet.UsedRange.Rows.Count + 1
Range("A" & ActiveSheet.UsedRange.Rows.Count + 1).Select
ActiveSheet.Paste 'coller sur le fichier les données
Range("A" & DebutNomFichier & ":A" & ActiveSheet.UsedRange.Rows.Count) = ClasseurRegional
Application.DisplayAlerts = False
Workbooks(ClasseurRegional).Close 'fermer le classeur
ClasseurRegional = Dir 'passer au suivant
Wend
End If
End Sub