Bonjour
1/ Tu peux commencer par supprimer toutes les feuilles différentes de "Synthèse" et puis tu importes les nouvelles feuilles. à intégrer ds ton code
1 2 3 4 5 6 7 8
| Dim w As Worksheet
Application.DisplayAlerts = False
For Each w In ThisWorkbook.Worksheets
If w.Name <> "Synthèse" Then
w.Delete
End If
Next
Application.DisplayAlerts = True |
2/ Pour mettre en ordre les feuilles importées et vu qu'il s'agit de 3 feuilles je crois que la plus simple et désigner l'emplacement via copy after
la première copy after "synthèse" et la deuxième copy after la première et ainsi de suite mais au moment de l’événement il faut que la feuille est déja importer donc il faut changer l'ordre de l'opération de copiage selon tes besoins
wkD.Sheets.Copy After:=wkA.Sheets("Synthèse")
BONNE CONTINUATION & BONNE JOURNÉE
Partager