[VBA] Affectation d'un classeur dans variable

bonjour le forum,

Je suis nouvelle en programmation et je n'arrive pas à me sortir du message "L'indice n'appartient pas à la sélection" provoqué par cette ligne :

FichierAppliSource = Application.Workbooks(SCheminFichier).

Je m'explique. Je cherche à mettre à jour un fichier. Pour cela, je veux ouvrir un fichier dans lequel il y a les données sources pour la mise à jour. J'aimerais que le classeur source soit affecté dans une variable pour éviter de le réécrire à chaque fois mais je bloque sur la ligne ci-dessus.

Voici mon code dans son ensemble :

Public FeuilleAppliSource As Worksheet, FichierAppliSource As Workbook        'nom de la feuille et du fichier sources  
  
Sub OuvertureFichierSource()  
  
    Dim SCheminFichier As String  
  
    'ouvrir le fichier source  
    SCheminFichier = Application.GetOpenFilename()  
      
    If SCheminFichier = "" Then  
        Exit Sub  
    Else  
        SCheminFichier = Dir(SCheminFichier)  
        FichierAppliSource = Application.Workbooks(SCheminFichier)  
    End If  
  
    FichierAppliSource.Worksheets("Résultat" ).Name = SFeuilleTravail         ' SFeuilleTravail est un string qui vaut "Mis à jour"  
    Set FeuilleAppliSource = FichierAppliSource.Worksheets(SFeuilleTravail)  
    FeuilleAppliSource.Copy After:=FeuilleAppliMAJ  
  
End Sub  

j'ai essayé aussi ces deux écritures à la place de "FichierAppliSource = Application.Workbooks(SCheminFichier)" :
' FichierAppliSource = Workbooks(ActiveWorkbook.Name)
' SCheminFichier = Left(Dir(SCheminFichier), InStr(1, Dir(SCheminFichier), ".", 1) - 1).

Mais rien ne marche

Pourriez-vous m'aider ? je suis désespérée...

Merci d'avance