Bonjour à tous,
j'ai un code VBA qui ouvre plusieurs onglets excels dans mon fichier. est-ce possible de définir à quelle place les ouvre-t-on ?
Voici une capture pour être plus clair :
Est ce que dans le code on peut définir que Feuil 1 2 et 3 soient les premières pages ?
Voici mon code :
Sub ouvrir_onglets()
Application.ScreenUpdating = True
Dim myPath As String, myFile As Variant
Dim wkbk As Workbook
myPath = "C:\Users\XXXXXX\Desktop\2020-07-01\"
myFile = Dir(myPath & "\*.xls*")
c = 2
Do While myFile <> ""
Cells(c, 1) = myFile
Set wkbk = Workbooks.Open(myPath & myFile)
wkbk.Activate
wkbk.ActiveSheet.Copy After:=ThisWorkbook.Sheets(Sheets.Count)
wkbk.Close SaveChanges:=False
myFile = Dir()
c = c + 1
Loop
End Sub
Merci beaucoup!