Récupération du focus après ouverture automatique d'un fichier

Question

Bonjour à tous, j'espère que vous aller bien

je viens en désespoir de cause.

Mon problème est le suivant :

J'ai un fichier sur lequel avec un bouton j'active une macro qui me permet de téléchargé un classeur CSV.

Ensuite j'ouvre ce classeur CSV nouvellement téléchargé via la macro suivante :

Sub OuvrirDernierFichierTelecharge()
    Dim CheminRepertoire As String
    Dim FichierLePlusRecent As String
    Dim DateModif As Date
    Dim DerniereDate As Date

    CheminRepertoire = "Le chemin de mon dossier"
    FichierLePlusRecent = ""
    DerniereDate = DateSerial(1900, 1, 1)

    Fichier = Dir(CheminRepertoire & "\*.*")

    Do While Fichier <> ""
        DateModif = FileDateTime(CheminRepertoire & "\" & Fichier)

        If DateModif > DerniereDate Then
            DerniereDate = DateModif
            FichierLePlusRecent = Fichier
        End If

        Fichier = Dir
    Loop

    If FichierLePlusRecent <> "" Then
        Workbooks.Open CheminRepertoire & "\" & FichierLePlusRecent
    Else
        MsgBox "Aucun fichier trouvé dans le répertoire."
    End If

End Sub

Cette macro me permet d'ouvrir automatiquement le tout dernier fichier que j'ai téléchargé dans un dossier dont j'ai renseigné le chemin. Jusque là aucun soucis, le fichier s'ouvre bien.

Mon but final c'est de prendre le contenue de la cellule C11 sur chaque classeur CSV que je vais télécharger et de renommer ces fichier CSV avec le contenu de leurs cellules C11 . J'ai déja créer cette macro pour renommer mon fichier tel que :

Sub renommage()

Dim Path As String, Nom As String
Path = ActiveWorkbook.Path & "\"
Nom = Range("C11").Value
ThisWorkbook.SaveAs Path & Nom

End Sub

Le problème c'est que Excel reste focus sur le tout premier fichier ( celui sur lequel avec un bouton j'active une macro) et ne se focus pas sur le dernier classeur CSV ouvert :

Je voudrais donc que lorsque mon classeur CSV s'ouvre, Excel face un focus sur ce dernier tel que :

et ainsi pouvoir exécuter la macro de renommage sur le CSV.

J'espère avoir été le plus clair possible et je vous remercie d'avance pour votre aide

galopin01 · Accepted Answer

Ben c'était tout bon jusqu'à l'avant dernière ligne : ThisWorkbook.SaveAs Path & Nom En effet ThisWorkbook est toujours (Même s'il n'est plus actif) le classeur qui contient ta macro de départ. Donc si tu veux parler du classeur que tu tu viens d'ouvrir c'est : ActiveWorkbook.... A+...