XL 2019 Faire référence au nom de la feuille active ( ActiveSheet )

[Atiom]

Bonjour,

Dans le code ci-dessous je souhaiterais remplacer 3 lignes

ThisWorkbook.Sheets("Base_VBA").Range("A2:A43").Value = nom
ThisWorkbook.Sheets("Base_VBA").Range("B2:B43").Value = semaine
ThisWorkbook.Sheets("Base_VBA").Range("C2:C43").Value = jour

Il faudrait remplacer ("Base_VBA") par le nom de la feuille active

J’ai essayé sans succès
ThisWorkbook. ActiveSheet.Name Range("A2:A43").Value = nom
Merci d’avance pour votre aide.

Private Sub Worksheet_Activate()
Application.ScreenUpdating = False

    Dim wbSource As Workbook
    Dim wsSource As Worksheet
    Dim semaine As Variant
    Dim nom As Variant
    Dim jour As Variant
  
 '< >Définir et ouvrir le classeur source
    Workbooks.Open "\Users\Fichier1.xlsm"
    Set wbSource = Workbooks("Fichier1.xlsm")
' <<<<<<<<<<<<<<<>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
'< >Définir la feuille du classeur
    Set wsSource = wbSource.Sheets("1")
' <<<<<<<<<<<<<<<>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

'< >Récupérer les valeurs des cellule source
    nom = wsSource.Range("H$2").Value
    semaine = wsSource.Range("D$3").Value
    jour = wsSource.Range("B5:B46").Value

    '< >Affiche les valeurs dans cette feuille
    ThisWorkbook.Sheets("Base_VBA").Range("A2:A43").Value = nom
    ThisWorkbook.Sheets("Base_VBA").Range("B2:B43").Value = semaine
    ThisWorkbook.Sheets("Base_VBA").Range("C2:C43").Value = jour

  '< >Ferme le classeur source
    wbSource.Close SaveChanges:=False
' <<<<<<<<<<<<<<<>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
      
    Application.ScreenUpdating = True
End Sub

 

[Dranreb]

Pour fermer le classeur à la fin de la sub :

wsSource.Parent.Close SaveChanges:=False