XL 2019 Application.Run

[Atiom]

Bonjour,
Bonne et heureuse année 2026 à tous!

Ces lignes de code fonctionne très bien, il fait référence au nom de Classeur ( 7_Version_VBA.xlsm ) et active la Macro Semaine2 à l'ouverture du classeur.

   Windows("7_Version_VBA.xlsm").Activate
   Application.Run "'7_Version_VBA.xlsm'!Semaine2"

Pour éviter d'écrire chaque fois le nom du Classeur je souhaiterai faire référence à une cellule dans une autre feuille du Classeur ( ThisWorkbook.Sheets("Info").Range("A2") )
J'ai essayé:

 Application.Run "'Porra", celluleSource.Value '!Semaine1"

Mais cela ne fonctionne pas.

Ci-dessous le code complet, Comment je dois le modifier ?
Merci d'avance pour votre aide.

Sub Porra()
Dim celluleSource As Range
    Set celluleSource = ThisWorkbook.Sheets("Info").Range("A2") ' Définir la cellule source
  
    ' Exécute "MaMacroAvecArgument" et passe la valeur de A1 comme argument
    'Application.Run "MaMacroAvecArgument", celluleSource.Value
  
    ' Ou directement avec une référence de cellule :
   ' Application.Run "MaMacroAvecArgument", Range("A2").Value

    Application.Run "'Porra", celluleSource.Value '!Semaine1"
    Windows("7_Version_VBA.xlsm").Activate

   Windows("7_Version_VBA.xlsm").Activate
   Application.Run "'7_Version_VBA.xlsm'!Semaine2"
  
    Sheets("Info").Select
End Sub

 

[Oneida]

Bonjour
Le nom du fichier doit etre entre ' '

"'" & celluleSource.Value & "'!Semaine1"

 

[Dranreb]

Bonjour et bonne année.
Essayez :

Application.Run "'" & celluleSource.Value & "'!Semaine2"

 

[Atiom]

Re,

Formidable!
Cela fonctionne parfaitement.
Merci beaucoup et bonne journée.