Bonjour à tous
Sub test()
Workbooks.Open Filename:="R:\Commun\LOGISTIQUE\30_ORDONNANCEMENT\PLAN\SIMULATIONS\Préparation_outil_simulation_2022\Indicateurs Globaux de Stocks 2022.xlsm"
Sheets("1.6").Select
Range("Tab1.6").Select
Selection.Copy
Workbooks(1).Activate
Sheets("feuil4").PasteSpecial Paste:=xlPasteValues
End Sub
Je souhaite copier des tableaux se trouvant dans les feuilles "1.6"; "1.67";"1.6BCT". Sachant que les noms des tableaux à copier sont :Tab + nom de la feuille. J'ai fait ce code pour la feuille "1.6", le collage spécial ne s'applique pas. Auriez vous une piste de code plus optimisé ?
Merci d'avance
Jérémy