Lire un texte sur une feuille sans l'activer

Bonjour,

Comment faire pour lire un texte en feuillX sans l'activer:

J'ouvre la feuille "TexteITALIEN"

Si je clic sur >Lecture< la voix italienne lit le texte ( ça c'est OK)

Ce que je n'arrive pas à faire et j'aimerais avoir, si c'est possible?

Quand je clic sur Traduction FR La voix française lit le texte qui se trouve en feuil(TraductionTexteITALIEN), sans l'ouvrir,

de façon à écouter le français en suivant le texte italien.

Merci

@ bientôt

Bonjour,

Votre macro modifiée

Sub Traduc()
    Set Sh_Fr = Sheets("TraductionTexteITALIEN")
    On Error GoTo fin
    'Worksheet ("TraductionTexteITALIEN") ' -----> feuille à lire sans activer
    Dim DerLi As Long
    DerLi = Sh_Fr.Range("A" & Rows.Count).End(xlUp).Row
    For Each Cel In Sh_Fr.Range("A1:A" & DerLi)
        If Cel <> "" Then SayThisStringFR: Application.Speech.Speak Cel
    Next
    Sheets("jeu").Activate
fin:
    If Err.Number <> 0 Then MsgBox "VOUS AVEZ ARRETE LA LECTURE" & Chr(10) & Chr(10) & "Vous pouvez relancer la lecture"
    Set Sh_Fr = Nothing
End Sub

Cdlt

Bonjour,

et BRAVO!

Trop bien!

merci beaucoup

@bientôt